ايران ويج

کد: 
function Generate_Serial_by_IMPosTOR(User_name:string):string;

var r1,r2,n,n1: string;

    i,j: integer;

begin

 if length(User_name) < 5 then begin

  S1 := '[!] Error Username must > 5';

  S2 := '[!] Error Username must > 5';

  S3 := '[!] Error Username must > 5';

  exit;

 end;

 for i := 1 to length(User_name) do begin

  n := inttostr(ord(User_name[i]));

  for j := 1 to length(n) do r1 := r1 + n[j];

 end;

 S1 := r1;

 for i := 1 to length(S1) do begin

  n1 := inttostr(ord(S1[i]));

  for j := 1 to length(n1) do r2 := r2 + n1[j];

 end;

 S2 := r2;

 S3:='01234567891011121314';

end;

Result = s1 , s2 ,s3

impostor