Umwandlungs Probleme mit Move

[H. Leesch]

Hallo,<p>
habe folgendes Problem:<br>
möchte gerne eine String 'MOF' (was ein Password darstelt)<br>
decodieren. Die Logik Erstes Zeichen (M) um 1 nach links ver-<br>
schieben also wird aus 'M' -> 'L' und Zeite um 2 und so weiter..<br>
Das Password ist also 'LMC'. Nun habe ich mir da eine Procedure<br>
geschrieben. Aber ich erhalte immer wieder Schutzverletzungen..<br>
lasse ich halt move weg geht alles...(bis auf password auswertung)<br>
habe aber keine Idee.<p>
<PRE>
procedure TFormHaupt.B_LoginClick(Sender: TObject);
var b: Array of Byte;
i,c: Integer;
s: String;
begin
if E_Name.Text = '' then exit;
A_T_LoginUser.First;
while not A_T_LoginUser.Eof do
if A_T_LoginUser.Fields[0].AsString = E_Name.Text then
begin
s := Trim(A_T_LoginUser.Fields[2].AsString);
c := Length(s);
Move( s, b, SizeOf(s));
for i := 0 to c-1 do b[i] := b[i] - i - 1;
Move( b, s, SizeOf(b));
if s = E_Pass.Text then P_Login.Visible := False;
Break;
end else A_T_LoginUser.Next;
if not P_Login.Visible then
begin
SpeedButton1.Enabled := True;
Logout1.Enabled := True;
Application.CreateForm(TDM, DM);
end;
end;
</PRE><p>
hendrik leesch

[Johann Steiner]

Hallo Hendrik,
versuch die Variable b zu initialisieren.

Grüße Han

[Hagen Reddmann]

schmeis B komplett raus und nutze

<pre>

for I := 1 to Length(S) do
S[I] := Char(Ord(S[I]) - I);

</pre>

Gruß Hagen

PS: aber sicher ist das Passwort dadurch nicht, es ist so sicher wie ein lesbar gespeichertes Passwort.

&#10

[H. Leesch]

Ja danke Jungs..

M.f.G. Hendri