generate proc HWID:DWORD,_NAME:DWORD,SERIAL:DWORD
local _d,_n,_c,_m,_temp,hwlen,_subname
mov _c,rv(_BigCreate,0)
mov _d,rv(_BigCreate,0)
mov _m,rv(_BigCreate,0)
mov _n,rv(_BigCreate,0)
mov _temp,alloc(1000)

mov _subname,left$(_NAME,4)
mov hwlen,len(HWID)
invoke szCopy,HWID,_temp
mov eax,_temp
add eax,hwlen
invoke HexEncode,_subname,4,eax

invoke _BigIn,SADD("7C052D25D1A689B85184B3FCB4CB3509"), 16, _n
invoke _BigIn,SADD("7B6D0F648F04A613E5B12FB7A4251D1D"), 16, _d
invoke _BigIn,_temp, 16, _c
invoke _BigPowMod, _c, _d, _n, _m
invoke _BigOut,_m,36,SERIAL
invoke _BigDestroy,_c
invoke _BigDestroy,_d
invoke _BigDestroy,_m
invoke _BigDestroy,_n
free _temp


    Ret
generate endp