Jag har hållit på hela dagen med att få till en enkel RSA-kryptering och jag har nästan lyckats. Det fungerar att kryptera med publika nyckeln och dekryptera med den privata, men jag behöver få det att fungera åt det andra hållet, dvs kryptera med den privata och dekryptera med den publika. Det är alltså en signering av datan jag vill göra.

Koden jag använder mig av:
<code>
'Testkod i en form eller något, som fungerar:
Sub Test1()
Dim cEncryption As New classEncryption
Dim ED() As Byte, Msg As String
cEncryption.CreateKeys("c:")
ED = cEncryption.EncryptText("Ett litet test", "c:\public.key")
Msg = cEncryption.DecryptText(ED, "c:\private.key")
Messagebox.Show(Msg)
End Sub

'Testkod som inte fungerar:
Sub Test2()
Dim cEncryption As New classEncryption
Dim ED() As Byte, Msg As String
cEncryption.CreateKeys("c:")
ED = cEncryption.EncryptText("Ett litet test", "c:\private.key")
Msg = cEncryption.DecryptText(ED, "c:\public.key")
Messagebox.Show(Msg)
End Sub


'classEncryption.vb:
Imports System.Security.Cryptography

Public Class classEncryption

Public Function EncryptText(ByVal TextToEncrypt As String, ByVal KeyFile As String) As Byte()
Try
Dim Enc As New System.Text.UTF8Encoding
Dim rsaCSP As New RSACryptoServiceProvider
rsaCSP.ImportCspBlob(ReadBinaryFile(KeyFile))
Return rsaCSP.Encrypt(Enc.GetBytes(CType(TextToEncrypt, Char()), 0, TextToEncrypt.Length), False)
Catch Ex As Exception
MessageBox.Show("Fel vid kryptering: " & Ex.Message)
End Try
End Function

Public Function DecryptText(ByVal EncryptedText() As Byte, ByVal KeyFile As String) As String
Try
Dim Enc As New System.Text.UTF8Encoding
Dim fromEncrypt() As Byte
Dim roundTrip As String
Dim rsaCSP As New RSACryptoServiceProvider
rsaCSP.ImportCspBlob(ReadBinaryFile(KeyFile))
fromEncrypt = rsaCSP.Decrypt(EncryptedText, False)
roundTrip = Enc.GetString(fromEncrypt)
Return roundTrip
Catch Ex As Exception
MessageBox.Show("Fel vid dekryptering: " & Ex.Message)
End Try
End Function

Public Sub CreateKeys(ByVal DirPath As String)
Dim rsaCSP As New System.Security.Cryptography.RSACryptoServiceProvider(1024)
Dim PrivateBlob() As Byte = rsaCSP.ExportCspBlob(True)
Dim PublicBlob() As Byte = rsaCSP.ExportCspBlob(False)
System.IO.File.WriteAllBytes(DirPath & "\public.key", PublicBlob)
System.IO.File.WriteAllBytes(DirPath & "\private.key", PrivateBlob)
End Sub

Private Function ReadBinaryFile(ByVal FilePath As String) As Byte()
Dim fs As System.IO.FileStream
Try
fs = System.IO.File.Open(FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
Dim lngLen As Long = fs.Length
Dim abytBuffer(CInt(lngLen - 1)) As Byte
fs.Read(abytBuffer, 0, CInt(lngLen))
Return abytBuffer
Catch exp As Exception
Return Nothing
Finally
If Not fs Is Nothing Then
fs.Close()
End If
End Try
End Function
End Class
</code>

Nån som har tips?


Thomas

Byt namn på c:\private.key till c:\public.key och tvärtom...

/micke

Den privata nyckeln innehåller egentligen både den privata och den publika nyckeln, så jag kan inte bara byta plats på dom.


Thomas