Gurkenalghoritmus = Verschlüsselungsalghoritmus
Hab aus Spaß mal versucht eine Textdatei mit eigenem Alghoritmus verschlüsseln zu lassen, jetzt ist es so, dass ich manchmal eine Exception kriege, dass der Index ausserhalb des Bereichs ist (Beim entschlüsseln) und manchmal klappt die Ver- und Entschlüsselung. Hier ist der Code (Hab die Stelle markiert wo die exception kommt)
:
Hab aus Spaß mal versucht eine Textdatei mit eigenem Alghoritmus verschlüsseln zu lassen, jetzt ist es so, dass ich manchmal eine Exception kriege, dass der Index ausserhalb des Bereichs ist (Beim entschlüsseln) und manchmal klappt die Ver- und Entschlüsselung. Hier ist der Code (Hab die Stelle markiert wo die exception kommt)
:
VB.NET-Quellcode
- Option Strict On
- Public Class Anwendung
- Private Charstring As String = "0abcdefghi3jklmnop1qrstuv2wxyzAB7CDEFGH5IJKLM9NOPQ6RSTUV8WXYZ-?.,#+´ß"
- Private Zufallsbuchstabe As New Random
- Private Zufall As Integer = Zufallsbuchstabe.Next(0, Charstring.Length)
- Private Aktiv As Boolean = False
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Erstellen()
- End Sub
- Private Sub Erstellen()
- If Not TextBox1.Text.Length < 1 Then
- Dim Passwort(TextBox1.Text.Length - 1) As String
- For Buchstabe = 0 To TextBox1.Text.Length - 1
- Passwort(Buchstabe) = TextBox1.Text(Buchstabe)
- For Zufal = 0 To Zufall - 1
- Passwort(Buchstabe) &= Charstring.Chars(Zufall)
- If Aktiv = False Then
- Entschlüsselungszufall.Add(Zufall)
- Aktiv = True
- End If
- Zufall = Zufallsbuchstabe.Next(0, Charstring.Length)
- Next
- Aktiv = False
- Next
- For Schreiben As Integer = 0 To Passwort.Length - 1
- My.Computer.FileSystem.WriteAllText("C:\Users" & Username & "\Desktop\Passwort.txt", Passwort(Schreiben), True)
- Next
- My.Computer.FileSystem.WriteAllText("C:\Users" & Username & "\Desktop\Passwort.txt", vbCrLf, True)
- End If
- End Sub
- Private Zähler As Integer = 1
- Private Entschlüsselung As String
- Private Entschlüsselungszufall As New List(Of Integer)
- Private Zählerzwei As Integer = 0
- Dim Username As String = Environment.GetEnvironmentVariable("USERNAME")
- Private Sub auslesen()
- If System.IO.File.Exists("C:\Users" & Username & "\Desktop\Passwort.txt") Then
- For Each line As String In System.IO.File.ReadAllLines("C:\Users" & Username & "\Desktop\Passwort.txt")
- Entschlüsselung &= line.FirstOrDefault
- For Each Buchstabe As String In line
- If Zähler = Entschlüsselungszufall(Zählerzwei) + 2 Then 'Exception!!!!
- Entschlüsselung &= Buchstabe
- Zählerzwei += 1
- Zähler = 1
- End If
- Zähler += 1
- Next
- Next
- My.Computer.FileSystem.WriteAllText("C:\Users" & Username & "\Desktop\Passwort.txt", Entschlüsselung, False)
- Zähler = 1
- Entschlüsselung = ""
- Zählerzwei = 0
- End If
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- auslesen()
- Entschlüsselungszufall.RemoveRange(0, Entschlüsselungszufall.Count)
- End Sub
- End Class
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RushDen“ ()