Visual Basic VS Delphi -> String Encode / Decode

[agm65]

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