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

[fkerber]

hi!

Such doch einfach mal nach Verschlüsselung, dann findest du bestimmt was ähnliches.


Ciao fkerber

[MrSpock]

Hallo agm65,

du kannst ja den Code in Pascal Notation neu schreiben. Mid ersetzt du durch Copy, der Rest geht fast direkt. Versuche es einfach einmal und sag Bescheid, wo du nicht weiterkommst.

[agm65]

zu 1: hab schon im forum gesucht und nichts gefunden..
zu 2: ja könnte echt vielleicht klappen leider reichen meine delphi skills nicht aus (bin ein abtrünniger vbler) bräuchte da echt deine hilfe....thx !

[MrSpock]

Hallo agm65,

das ist gar nicht so schwer:

Code:

VB              PASCAL
=               :=
Len             Length
Mid(s, ab, anz) Copy(s, ab, anz)
Asc             Ord
Do Until...Loop repeat ... until bedingung

Und Function Encode(What As String) As String wird zu

Delphi-Quellcode:

function Encode(what: string): string;
var
  ...
begin

end;

[agm65]

ich versuch das jetzt....wäre 1a wenn das laufen würde !

[MrSpock]

Hallo agm65,

wenn du an der einen oder anderen Stelle nicht weiterkommst, bekommst du hier sicher Hilfe.

[agm65]

ich komm jetzt schon nicht weiter ...kannst du mir nicht die encode funktion machen, und ich mach die decode...interessiert bestimmt noch mehr..und die funktion ist echt top...

[fkerber]

Hi!

An welcher Stelle genau hängst du denn?

Ciao fkerber

[MrSpock]

Hallo agm65,

kannst ja in den Chat kommen, da bekommst du kostelosen online-Support