Hallo,
ich habe ein Verschlüsslungsprogramm geschrieben, mal sehr wer mein Code als erstes Knack wenn ihr hier das überhaupt könnt:
Der zu knackende Code:
1080108152229364350576471788592991061131201271341411481551621691761831901972042112182252322392462532602672742801839305177770578085052847005388550569009053862405277770538778054762305185470547700051777705780850518855053893205884700538085057762305380080568932057885505691630537777052877805389320548855052762305780080537469054770005277770577469053754605777770588778054916305874690578008051877805
Und ihr das Programm:
function verschüssel (Wort: string) : string;
var i,f,x,v,ran:integer;
test, test1, test2, ran_str, test3 : string;
begin
test := '';
ran_str := '';
ran := 0;
For i := 1 to length(wort) do begin
ran := random(8)+1;
test2 := Inttostr(Ord(Wort)*154) ;
v := Ord(Wort) * 154 * length(test2);
test2 := InttoStr(v) + InttoStr(length(test2));
test := Test+ InttoStr(ran);
If length(test) <10 then ran_str := ran_str + '0' + inttostr(length(test)) else
ran_str := ran_str + InttoStr(length(test));
test := test + test2;
end;
If length(test)> 9 then ran_str := ran_str + inttostr(length(test)) else ran_str := ran_str + '0' + InttoStr(length(test));
test3 := InttoStr(Length(ran_str));
If strtoint(test3) < 9 then test3 := '0' + test3;
result := test3 + ran_str + test;
end;
ich habe ein Verschlüsslungsprogramm geschrieben, mal sehr wer mein Code als erstes Knack wenn ihr hier das überhaupt könnt:
Der zu knackende Code:
1080108152229364350576471788592991061131201271341411481551621691761831901972042112182252322392462532602672742801839305177770578085052847005388550569009053862405277770538778054762305185470547700051777705780850518855053893205884700538085057762305380080568932057885505691630537777052877805389320548855052762305780080537469054770005277770577469053754605777770588778054916305874690578008051877805
Und ihr das Programm:
function verschüssel (Wort: string) : string;
var i,f,x,v,ran:integer;
test, test1, test2, ran_str, test3 : string;
begin
test := '';
ran_str := '';
ran := 0;
For i := 1 to length(wort) do begin
ran := random(8)+1;
test2 := Inttostr(Ord(Wort)*154) ;
v := Ord(Wort) * 154 * length(test2);
test2 := InttoStr(v) + InttoStr(length(test2));
test := Test+ InttoStr(ran);
If length(test) <10 then ran_str := ran_str + '0' + inttostr(length(test)) else
ran_str := ran_str + InttoStr(length(test));
test := test + test2;
end;
If length(test)> 9 then ran_str := ran_str + inttostr(length(test)) else ran_str := ran_str + '0' + InttoStr(length(test));
test3 := InttoStr(Length(ran_str));
If strtoint(test3) < 9 then test3 := '0' + test3;
result := test3 + ran_str + test;
end;