Hallo liebe Community,
ich hab da ein kleines Problem. Ich arbeite momentan an der überarbeitung von meinem PassKey - Passwort Generator.
Ich versuche derzeit eine Datei mit AES zu verschlüsseln. Das Klappt soweit mit folgender Funktion auch wunderbar.
Aufgerufen so:
das problem hab ich beim Decrypten. (Beim Encrypter.decrypt())
ich hab da ein kleines Problem. Ich arbeite momentan an der überarbeitung von meinem PassKey - Passwort Generator.
Ich versuche derzeit eine Datei mit AES zu verschlüsseln. Das Klappt soweit mit folgender Funktion auch wunderbar.
VB.NET-Quellcode
- Function encrypt(ByVal DATA As String, ByVal key As Byte(), ByVal IV As Byte(), Optional ByVal ConvertToBase64 As Boolean = False)
- Dim aesProv As New AesCryptoServiceProvider
- Dim encrypted() As Byte
- Dim encryptor As ICryptoTransform = aesProv.CreateEncryptor(key, IV)
- Using msEncrypt As New MemoryStream()
- Using csEncrypt As New CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write)
- Using swEncrypt As New StreamWriter(csEncrypt)
- swEncrypt.Write(DATA)
- End Using
- encrypted = msEncrypt.ToArray()
- End Using
- End Using
- If ConvertToBase64 = False Then
- Return encrypted
- Else
- Return Convert.ToBase64String(encrypted)
- End If
- End Function
Aufgerufen so:
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim fbd As New FolderBrowserDialog
- If fbd.ShowDialog = DialogResult.OK Then
- Dim zipper As New Zimpler.ZipFile
- zipper.AddFolder(fbd.SelectedPath, True)
- zipper.Save(My.Computer.FileSystem.CurrentDirectory & "\test.zop")
- Dim Encrypter As New SeToNet.core.aesClass
- Encrypter.create()
- Dim fileBytes() As Byte = File.ReadAllBytes("test.zop")
- Dim data As String = Convert.ToBase64String(fileBytes)
- File.WriteAllBytes("archive.encrypted", Encrypter.encrypt(data, Encrypter.key, Encrypter.IV, False))
- Dim fileBytes2() As Byte = File.ReadAllBytes("archive.encrypted")
- Dim data2 As String = Convert.ToBase64String(fileBytes)
- File.WriteAllBytes("archive.decrypted", Encrypter.decrypt(data2, Encrypter.key, Encrypter.IV, False))
- End If
- End Sub
das problem hab ich beim Decrypten. (Beim Encrypter.decrypt())
VB.NET-Quellcode
- Function decrypt(ByVal DATA As String, ByVal key As Byte(), ByVal IV As Byte())
- Dim aesProv As New AesCryptoServiceProvider
- aesProv.GenerateKey()
- 'MsgBox(BitConverter.ToString(aesProv.Key))
- aesProv.GenerateIV()
- Dim cyphertext As Byte() = Convert.FromBase64String(DATA)
- Dim decryptor As ICryptoTransform = aesProv.CreateDecryptor(key, IV)
- Dim plaintext As String = String.Empty
- Using msDecrypt As New MemoryStream(cyphertext)
- Using csDecrypt As New CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read)
- Using srDecrypt As New StreamReader(csDecrypt)
- 'Write all data to the stream.
- plaintext = srDecrypt.ReadToEnd()'Hier wird ausgeworfen dass es kein vollständiger Block sei. (Mit strings klappt das alles wunderbar eig ... )
- End Using
- End Using
- End Using
- Return plaintext
- End Function
- End Class
Viele Frauen kamen, viele sind gegangen, eine ist geblieben 12.5.12 ich liebe dich Schatz