=> Noch nicht angemeldet? Es gibt ein Problem mit dem BB-Code dieser betrifft jedoch nur den [code]-Teil. Darum bitte wir jegliche Codes vorübergehend mit [quote] zu gestalten.
Hallo zusammen,
Hier habe ich ein Programm, dass Texte mit einem vorher erstellen Key, nach einem Verfahren, dass bisjetzt als unmöglich zu knachen gilt, verschlüsselt. Einfach den Text in die erste Zeile eigeben. Danach die Buttons von 1 - 3 drücken. Währendem diesem Vorgang wird auch noch eine Textdatei erstellt. Wo die ZwischenlagerungsKeys gespeichert werden.
Für wissbegierige habe ich hier noch den SourceCode :
Zitat:
Imports System.Text
Imports System.IO
Imports System.Security.Cryptography
Public Class Form1
Private des As New DESCryptoServiceProvider()
Private filename As String = "EncryptedFile.txt"
Public Function ConvertStringToByteArray(ByVal s As String) As Byte()
Dim ucenc As New UnicodeEncoding()
Return (ucenc.GetBytes(s))
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim byteArr() As Byte = ConvertStringToByteArray(RichTextBox1.Text)
Dim desEncrypt As ICryptoTransform = des.CreateEncryptor
Dim fs As New FileStream(filename, FileMode.Create, FileAccess.Write)
Dim cryptoStrm As New CryptoStream(fs, desEncrypt, CryptoStreamMode.Write)
cryptoStrm.Write(byteArr, 0, byteArr.Length)
cryptoStrm.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim descrypt As ICryptoTransform = des.CreateDecryptor
Dim fs As New FileStream(filename, FileMode.Open, FileAccess.Read)
Try
Dim cryptoStrm As New CryptoStream(fs, descrypt, CryptoStreamMode.Read)
Dim strmRead As New StreamReader(cryptoStrm, New UnicodeEncoding())
RichTextBox2.Text = strmRead.ReadToEnd()
cryptoStrm.Close()
Catch ex As Exception
MsgBox(ex.Message, "Falscher Schlüssel"
Finally
fs.Close()
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RichTextBox3.Text = File.ReadAllText(filename)
End Sub
End Class
