|
Registriert seit: 20. Okt 2009
Ort: Wildau
19 Beiträge
Delphi 6 Professional
|
Re: datei kodieren und speichern
4. Feb 2010, 19:01
mit dem debugger ist alles o.k
vielleicht noch eine ergänzung;
procedure TForm1.FormCreate(Sender: TObject);
var i :integer;
begin
randseed:=code;
randomize;
for i := 1 to high(superkey) do superkey[i]:=random(255);
end;
wobei einmal als var
superkey : array[1..keysize] of byte;
deklariert ist.
als z. bsp. als const
keysize = 1234;
code = 5678; gesetzt sind. ( können auch andere Zahlenkombinationen sein! )
vielleicht hilft's weiter, habe inzwischen alles probiert!
die datei lädt schon meines erachtens schon richt, sehe ich ander zeichenkette, es muss am decodieren
nach einem neustart liegen!
malu
|