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
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
Comment