Ultra's Crack Me 1

[impostor]

کد:

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