Hallo !
Versteht jemand vielleicht Delphi UND C++ ? Habe nämlich eine Verschlüsselung
in Delphi geschrieben und würde sie auch mal gerne in C++ ausprobieren !
Hier ist der Code:
function TForm1.xorver(text: String; schluessel: integer): String;
var laenge, stelle, i, wert1, wert2: Integer; ergebnis: String;
begin
stelle:=1;
laenge:=length(text);
for i:=1 to laenge do
begin
wert1:=ord(copy(Text, stelle, 1)[1]);
wert2:=schluessel + wert1;
ergebnis:=ergebnis + chr(Wert2);
stelle:=stelle + 1;
schluessel:=wert2+wert1;
end;
Result:=ergebnis;
end;
Als Anhang ist noch der komplette Quellcode beigefügt !
Versteht jemand vielleicht Delphi UND C++ ? Habe nämlich eine Verschlüsselung
in Delphi geschrieben und würde sie auch mal gerne in C++ ausprobieren !
Hier ist der Code:
function TForm1.xorver(text: String; schluessel: integer): String;
var laenge, stelle, i, wert1, wert2: Integer; ergebnis: String;
begin
stelle:=1;
laenge:=length(text);
for i:=1 to laenge do
begin
wert1:=ord(copy(Text, stelle, 1)[1]);
wert2:=schluessel + wert1;
ergebnis:=ergebnis + chr(Wert2);
stelle:=stelle + 1;
schluessel:=wert2+wert1;
end;
Result:=ergebnis;
end;
Als Anhang ist noch der komplette Quellcode beigefügt !