注册按钮的click事件
*--
local skey,sn
set procedure to test6
sn = ALLTRIM(THISFORM.TEXT2.value) &&得到注册码
skey = destr(sn,diskno)
skey = md5string(skey,LEN(skey))
cstring = "2C7136347B5A73280616677076FC999CE497A0E9FA9AECE9AFE29AF2F271687A57604940190F172922232A5758"
scode = destr(cstring,skey)
*if md5string(scode,LEN(scode)) == "5D854D7F3300A3FD9E473D5639D7E33E"
if .T.
MESSAGEBOX("暴破成功!,做人低调点好",48,"CRACKME")
*&sCode
else
MESSAGEBOX("注册失败!",48,"CRACKME")
endif
test2.prg
public scode &&设一个全程变量
set talk OFF &&设置几个全程开关
set century on
set hours to 24
set seconds OFF
*定义几个任明汉他们几个搞的VFP的API
declare string encstr in "MyDll.dll" string, string
declare string getserial in "MyDll.dll" integer &&取得磁盘号
declare string MD5String in "mydll.dll" as MD5STRING string, integer &&进行MD5加密
public diskno &&定义一个用于取硬盘号的变量
do form ttttt1 &&执行tttt1表单
read events
test6.prg
定义一组自定义的API
declare string encstr in "MyDll.dll" string, string
declare string getserial in "MyDll.dll" integer
declare string MD5String in "mydll.dll" as MD5STRING string, integer