//coded by IMPosTOR
//impostor@de-compiler.me
//www.de-compiler.me


function Generate_Serial_by_IMPosTOR(User_Name: string): string;
var a1,a2,a3,a4,a5,a6,a7,fi,p,p1,p2,p3 : string;
    a,b,c,d,e,f,i,j                    : integer;
begin
 result := 'Error : 01';

  a1 := 'B251i1g8M5n';
  a2 := User_Name + a1 ;
  a3 := copy(a2,1,length(a2) div 2);
  a4 := copy(a2,length(a3) + 1,length(a2));
  a5 := a4 + a3;
  a6 := copy(a5,6,length(a5));
  a7 := copy(a5,1,10);           

  a := $100;
  j := 0;

  for i := 1 to length(a7) do begin
   j := j + 1;

   b := (ord(a7[i]));
   c := b + a;
   d := $FF;
   e := c mod d;

    if j > length(a6) then j := 1;

   f := (ord(a6[j]));
   a := f xor e;
   fi := fi + sbinttohex(a,2,0);
  end;
  
   p  := '100' + fi;
   p1 := copy(p,1,15);
   p2 := InsertString(p1,'-',6);
   p3 := InsertString(p2,'-',12);

 result := p3;
end;