Hallo Leute ich habe eine top Visual Basic, String Encode - Decode Funktion:
Encode - Decode über ein Passwort.
Da wollte ich mal fragen, ob es sowas auch für Delphi gibt... Wenn ja bitte hier posten ! Thx !
Code:
' Visual Basic
Function Encode(What As String) As String
Zeile = What
PW = "Password"
U = 0
P = 0
Do Until Len(Zeile) = P
k = k + 1
U = U + 1
P = P + 1
If k = Len(PW) Then k = 1
Z2 = Mid(PW, k, 1)
If Z2 = " " Then
Z2 = Mid(PW, k + 1, 1)
k = k + 1
End If
Zeichen = Mid(Zeile, P, 1)
NewChar = Asc(Zeichen) + Asc(Z2)
If NewChar > 255 Then NewChar = NewChar - 255
Crypt = Crypt + Chr$(NewChar)
Loop
Encode = Crypt
End Function
Function Decode(What As String) As String
Zeile = What
PW = "Password"
U = 0
P = 0
Do Until Len(Zeile) = P
k = k + 1
U = U + 1
P = P + 1
If k = Len(PW) Then k = 1
Z2 = Mid(PW, k, 1)
If Z2 = " " Then
Z2 = Mid(PW, k + 1, 1)
k = k + 1
End If
Zeichen = Mid(Zeile, P, 1)
NewChar = Asc(Zeichen) - Asc(Z2)
If NewChar < 0 Then NewChar = NewChar + 255
Crypt = Crypt + Chr$(NewChar)
Loop
Decode = Crypt
End Function