Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function GenerationKey(var Key:string;const len:Integer):string;
- var
- i,j:Integer;
- tmp,NewKey,OldKey:string;
- CalcNumb:integer;
- f:Boolean;
- begin
- tmp:=Key[1];
- OldKey:=Key;
- f:=False;
- while f=False do
- begin
- CalcNumb:=strtoint(Key[1]) xor strtoint(Key[26]);
- Key:=key+inttostr(CalcNumb);
- NewKey:=Copy(Key,2,Length(Key));
- key:=NewKey;
- tmp:=tmp+key[1];
- if key=OldKey then
- begin
- f:=True;
- end;
- end;
- result:=tmp;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement