Šifrování a podepisování   zodpovězená otázka

VB.NET, Bezpečnost

před 16 lety

anonym
 

77.78.93.207

Zdravím, nevíte někdo o nějakém dobrém informační zdroji, kde by se dalo naštudovat jak ve visual basicu(2008) pomcí certifikátu zašifrovat nebo podepsat třeba část kódu s xml strukturou? Bo jestli máte někdo zkušenost, tak popřípadě tu mě návest správným směrem?

Díky
nahlásit spamnahlásit spam 0 odpovědětodpovědět

před 16 lety

Petr Žižka
 

Hodnocení 21     Příspěvků 116

V "hlavě" nosím jen tento snippet, který jsem kdysi objevil.

http://zdrojaky.vyvojar.cz/doku.php?id=s...
nahlásit spamnahlásit spam 0 odpovědětodpovědět

před 16 lety

Ondřej Linhart
 

Hodnocení -553     Příspěvků 3274

Toto je nepoužitelné už jen proto, že soukromý klíč je natvrdo v kódu...
nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

před 16 lety

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Doporučuji prohrabat web aspnet.cz, Michal A. Valášek tam má několik článků o šifrování a digitálních podpisech.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

před 16 lety

Ondřej Linhart
 

Hodnocení -553     Příspěvků 3274

Na CodeProjectu jsem kdysi nalezl naprosto vynikající, ale poměrně dost složitý příklad jak udělat podepsaný XML soubor (RSA algoritmus) pomocí metodiky specifikované organizací W3C.

http://www.codeproject.com/KB/security/x...
nahlásit spamnahlásit spam 0 odpovědětodpovědět

před 16 lety

anonym
 

77.78.93.207

Tak že jsem našel takovýto návod

podepsání:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim myStore As New CAPICOM.Store
Dim myCert As CAPICOM.Certificate
Dim signature As String
Dim signData = New CAPICOM.SignedData
Dim signer = New CAPICOM.signer
 
// otevření úložiště certifikátů
myStore.Open
 
// nalezení podpisového certifikátu
For Each myCert In myStore.Certificates
….
Next
Set signer.Certificate = myCert
signData.Content = xRELPDMsg.xml
 
// podepsání zprávy
signature = signData.Sign(signer, True)

šifrofání:

?
1
2
3
4
5
6
7
8
9
Dim cryptCert = SelectEncryptingCertificate()
Dim encData = New CAPICOM.EnvelopedData
 
 encData.Algorithm.KeyLength = CAPICOM. CAPICOM_ENCRYPTION_KEY_LENGTH.  CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM
 encData.Algorithm.Name = CAPICOM. CAPICOM_ENCRYPTION_ALGORITHM. CAPICOM_ENCRYPTION_ALGORITHM_3DES
 encData.Content = xRELPDMsg.xml
 encData.Recipients.Add cryptCert
 
 encryption = encData.Encrypt()
nahlásit spamnahlásit spam 0 odpovědětodpovědět

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback