Forum: Multimedia
Delphi
by Penelopee,
15. Dez 2005
was meinst du mit "Zufstring"??Und was macht das xor?
Forum: Multimedia
Delphi
by Penelopee,
15. Dez 2005
Hier nochmal mein Quelltext:
procedure TForm1.FormActivate(Sender: TObject);
begin
s:=Memo1.Lines.Text;
end;
function GetOneTimePadKey(Text:String):String;var i:Integer;
begin
Forum: Multimedia
Delphi
by Penelopee,
15. Dez 2005
Wie kann ich einstellen , dass der key genau so lang sein soll wie der Klartext???
Forum: Multimedia
Delphi
by Penelopee,
14. Dez 2005
danke für die hilfe , aber es will einfach nicht klappen.Hab im Anhang mal mein Quelltext und ich will jetzt auf OTP umprogrammieren , könnt ihr euch mal mein Projekt bitte runterladen und mir zeigen wo ich den key ersetlle???
Vielen Dank , ich sitz schon seit stunden hier und komm nciht weiter , hab so nen blöden lehrer , der nichts erklärt!
Forum: Multimedia
Delphi
by Penelopee,
14. Dez 2005
geht das nicht auch mit einem array of string??Das würde mir besser gefallen!!Aber danke schon mal!
Forum: Multimedia
Delphi
by Penelopee,
14. Dez 2005
bin jetzt bei der One Time Pad Verschlüsselung!
Wie erstelle ich einen Key??Der Key soll genau so lang sein wie der Klartext und aus zufälligen zeichen bestehen!Habe einen dynamischen array erstellt , aber wie gehts weiter???
Forum: Multimedia
Delphi
by Penelopee,
12. Dez 2005
bringt mich leider nicht weiter.
Forum: Multimedia
Delphi
by Penelopee,
12. Dez 2005
Hier mein Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
for k:=0 to Memo1.Lines.Count-1
do begin
for i:=1 to length(s)
do begin