//clicked (none) returns long [pbm_bnclicked]
//long ancestorreturnvalue
string ls_key
string ls_reg_code


CALL SUPER::clicked
ls_reg_code = trim(PARENT.regedit_code.text)
ls_key = "HKEY_LOCAL_MACHINE\SOFTWARE\FYSOFT"
registryset(ls_key,"registcode",regstring!,ls_reg_code)
registryget(ls_key,"registcode",regstring!,ls_regedit_code)
IF mid(f_regedit_reg_success("fy5.0"),1,15) = ls_regedit_code THEN //6
messagebox("注册","软件注册成功!")
ELSE //6
messagebox("注册","软件注册失败!请检查你输入的注册码!")
END IF //6
RETURN


//Public function f_regedit_reg_success (string soft_ver) returns string
//string soft_ver
string ls_disk_serial


ls_disk_serial = f_regedit("c:")
IF len(ls_disk_serial) > 5 THEN //4
ls_disk_serial = mid(ls_disk_serial,1,5)
END IF //4
ls_disk_serial = ls_disk_serial + soft_ver
RETURN gf_md5string(ls_disk_serial)


//Public function f_regedit (string rootpath) returns string
//string rootpath
string ls_rootpath
string ls_volumnename
ulong lul_volumenamesize
ulong lul_volumeserialnumber
ulong lul_maximumcomponentlength
ulong lul_filesystemflags
string ls_filesystemnamebuffer
ulong lul_filesystemnamesize
boolean lb_rtn


ls_rootpath = rootpath
ls_volumnename = space(256)
lul_volumenamesize = 256
lul_maximumcomponentlength = 256
ls_filesystemnamebuffer = space(256)
lul_filesystemnamesize = 256
lb_rtn = FALSE
lb_rtn = getvolumeinformationa(ls_rootpath,ls_volumnename,lul_volumenamesize,lul_volumeserialnumber,lul_maximumcomponentlength,lul_filesystemflags,ls_filesystemnamebuffer,lul_filesystemnamesize)
IF lb_rtn = TRUE THEN //19
f_encry_password("1",string(lul_volumeserialnumber))
ELSE //19
ls_rootpath = ls_rootpath + "\"
lb_rtn = getvolumeinformationa(ls_rootpath,ls_volumnename,lul_volumenamesize,lul_volumeserialnumber,lul_maximumcomponentlength,lul_filesystemflags,ls_filesystemnamebuffer,lul_filesystemnamesize)
IF lb_rtn = TRUE THEN //30
f_encry_password("1",string(lul_volumeserialnumber))
ELSE //30
HALT
END IF //30
END IF //19
RETURN string(lul_volumeserialnumber)


//Public function f_encry_password (string as_pwd,string as_action) returns string
//string as_pwd
//string as_action
string ls_temp
string ls_return
integer i
integer li_pos


IF as_pwd = "" THEN //4
RETURN ""
END IF //4
IF as_action = "1" THEN //8
FOR i = len(as_pwd) TO 1 STEP -1 //3
ls_return = ls_return + char(asc(mid(as_pwd,i,1)) + 5)
NEXT //3
ELSE //8
FOR i = len(as_pwd) TO 1 STEP -1 //7
ls_return = ls_return + char(asc(mid(as_pwd,i,1)) - 5)
NEXT //7
END IF //8
RETURN ls_return

[招生]系统0day安全班，企业级设备固件漏洞挖掘，Linux平台漏洞挖掘！