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

1) : Make this file .
------------------------------------------------------
wake.ini :
	if WinXP then
	 \Documents and Settings\All Users\Application Data\AutoPowerOn\wake.ini

	if Win7_Vista then
	 \ProgramData\AutoPowerOn\wake.ini
------------------------------------------------------
2) : Generate the serial and set this data in "wake.ini" .
------------------------------------------------------

[Option]
first=0
mfirst=0

[time]
server=time.nist.gov

[reg]
name=IMPosTOR - www.de-compiler.me
code=7Y1N7G9004944298DB2F0198C18D2DB7MQ67

[date]
dd=0

------------------------------------------------------



function DeCode1(User_Name : string) : string;
var p1,p2          : string;
    a,b,i          : integer;
    b1,b2,b3       : integer;
    c1,c2,c3,c4,c5 : integer;
begin

 for i := length(User_Name) downto 1 do begin
  a := ord(User_Name[i]);
  b := ($27D4AA mod a);
  p1 := p1 + inttostr(b);
 end;

 c1 := 4;
 c2 := 0;
 c3 := 0;
 c4 := 0;

 for i := 1 to length(p1) do begin
  b1 := ord(p1[i]);
  b2 := (b1 + $D0) and $FF;
  //b3 := (b2 - $0A) and $FF;

  c1 := c2 * $A;
  c2 := c1 + b2;

  c5 := c4 + c3;
  c4 := c5 * $A;

  asm
   mov dword ptr ss:[esp+$0c],$A
   mov eax,c2
   mul dword ptr ss:[esp+$0c]
   mov c3,edx
  end;

  p2 := sbinttohex(c5,4,0) + inttohex(c2);
 end;

 result := p2;
end;

function DeCode2(User_Name : string) : string;
var p1,p2          : string;
    a,b,i          : integer;
    b1,b2,b3       : integer;
    c1,c2,c3,c4,c5 : integer;
begin

 for i := length(User_Name) downto 6 do begin
  a := ord(User_Name[i]);
  b := ($877 mod a);
  p1 := p1 + inttostr(b);
 end;

 c1 := 4;
 c2 := 0;
 c3 := 0;
 c4 := 0;

 for i := 1 to length(p1) do begin
  b1 := ord(p1[i]);
  b2 := (b1 + $D0) and $FF;
  //b3 := (b2 - $0A) and $FF;

  c1 := c2 * $A;
  c2 := c1 + b2;

  c5 := c4 + c3;
  c4 := c5 * $A;

  asm
   mov dword ptr ss:[esp+$0c],$A
   mov eax,c2
   mul dword ptr ss:[esp+$0c]
   mov c3,edx
  end;

  p2 := sbinttohex(c5,4,0) + inttohex(c2);
 end;

 result := p2;
end;

function Generate_Serial_by_IMPosTOR : string;
var de1,de2,rn : string;
begin
 result := 'Error : 01';

 rn  := Random_Serial(6,6);
 de1 := DeCode1(rn);
 de2 := DeCode2(de1);

 result := rn + Random_Serial(1,6) + de1 + Random_Serial(1,6) + de2 + Random_Serial(4,6);
end;