Krypter et password. Er bedømt af 4 brugere Fra : rean Vist : 656 gange Dato : 01-12-00 19:55

procedure TForm1.Button1Click(Sender:TObject); var s : string[255]; c : array[0..255] of Byte absolute s; i:Integer; begin {krypter} s:='Dette er en lille test'; For i:=1 to ord(s[0]) do c[i] := 23 XOr c[i]; Label1.Caption:=s; {dekrypter} s:=Label1.Caption; For i:=1 to Length(s) do s[i] := 23 XOr ord(s[i])); Label2.Caption:=s; end;

Bedømmelse Fra : tom.kise Dato : 19-01-01 22:30

Bedømmelse Fra : crissi2 Dato : 22-05-02 19:53

Bedømmelse Fra : nuser34 Dato : 18-10-01 15:30

Bedømmelse Fra : ospekos Dato : 19-10-01 16:08

Du har følgende muligheder

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip. Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.