Hallo liebe Community.
Ich habe folgendes Problem:
Zurzeit arbeite ich an meiner Verschlüsselungs-dll und nun bin ich vernam, jedoch will es einfach nicht funktionieren:
Das wäre der Code für eine klassische Vernam-Verschlüsselung, jedoch gibt es hier das Problem das original nichts passiert.
Ich rufe diesen Code ganz einfach so auf:
PS:// Mir ist klar das encrypt_String genau das selbe wie decrypt_String ist.
Bitte um Hilfe!
Ich habe folgendes Problem:
Zurzeit arbeite ich an meiner Verschlüsselungs-dll und nun bin ich vernam, jedoch will es einfach nicht funktionieren:
VB.NET-Quellcode
- Public Function encrypt_String(ByVal strString As String, ByVal strPassword As String)
- Dim ret As String = ""
- For i As Integer = 0 To strString.Length - 1
- Dim o As String = strString.Substring(i, 1)
- Dim k As String = strPassword.Substring(i, 1)
- ret &= Convert.ToChar(Asc(o) Xor Asc(k))
- Next
- Return ret
- End Function
- Public Function decrypt_String(ByVal strString As String, ByVal strPassword As String)
- Dim ret As String = ""
- For i As Integer = 0 To strString.Length - 1
- Dim o As String = strString.Substring(i, 1)
- Dim k As String = strPassword.Substring(i, 1)
- ret &= Convert.ToChar(Asc(o) Xor Asc(k))
- Next
- Return ret
- End Function
Das wäre der Code für eine klassische Vernam-Verschlüsselung, jedoch gibt es hier das Problem das original nichts passiert.
Ich rufe diesen Code ganz einfach so auf:
PS:// Mir ist klar das encrypt_String genau das selbe wie decrypt_String ist.
Bitte um Hilfe!