-
-
[原创]让程序自己变成注册机(VFP)
-
发表于: 2009-5-7 13:41
-
最近遇到一个古董级的VFP写的程序,因为我不会VF,大体能看懂的,本来想写算法注册机的
无奈有几行代码不太懂
就把源程序改造成注册机了
程序加壳是
ASProtect 2.3 SKE build 06.26 Beta [Extract]
用脚本脱壳就损坏了程序
于是拿unfoxall直接反编译
这一试不要紧哪,差点成残疾,这屋里的气氛可就有点不对劲啦
带壳就把程序源码导出来了,虽然没有测试是不是能编译整个项目
找到了我最关心的register.SCT如下
PUBLIC registerOK,zcm
registerOK = .f.
zcm = ""
newnamenumber1 = ""
newnamenumber = ""
LOCAL oWbemLocator, oWMIService, oItems, oItem
oWbemLocator = CREATEOBJECT("WbemScripting.SWbemLocator")
oWMIService = oWbemLocator.ConnectServer(".", "root/cimv2")
*oItems = oWMIService.ExecQuery("SELECT Caption FROM " + "Win32_DiskDrive")
oItems = oWMIService.ExecQuery("SELECT Caption FROM " + "Win32_DiskDrive")
FOR EACH oItem IN oItems
Diskinfo1 = LEFT(RIGHT(oItem.Caption,12),10)
IF LEN(ALLTRIM(diskinfo1))=10
EXIT
ENDIF
ENDFOR
*用ASC（）函数将用户名中所有字符的ASCII码都取出来并连接成一个字符串
for m=1 to len(alltrim(diskinfo1))
thisstr=substr(alltrim(diskinfo1),m,1) &&取出一个字符
newnamenumber1=newnamenumber1+alltrim(str(asc(thisstr)))
endfor
NewNameNumber1=padl(newnamenumber1,10,"0")
CPKJ=val(NewNameNumber1)
IF !USED("register")
USE register
ENDIF
SELECT register
IF ISNULL(rname) OR LEN(ALLTRIM(rname))=0
thisname="江南" &&取得用户名
ELSE
thisname = ALLTRIM(rname)
ENDIF
*用ASC（）函数将用户名中所有字符的ASCII码都取出来并连接成一个字符串
for m=1 to len(alltrim(thisname))
thisstr=substr(alltrim(thisname),m,1) &&取出一个字符
newnamenumber=newnamenumber+alltrim(str(asc(thisstr)))
endfor
NewNameNumber=padl(newnamenumber,10,"0")
NAM=val(NewNameNumber)
ZCM1=alltrim(str(bitor(CPKJ,NAM)))
ZCM2=alltrim(str(bitand(CPKJ,NAM)))
ZCM3=alltrim(str(bitor(CPKJ,NAM)))
*ZCM3=alltrim(str(bitxor(CPKJ,NAM)))
one=left(zcm1,3)+"-" &&取出前三位加“-”
two=substr(zcm2,4,4)+"-" &&取出中间三位加“-”
three=right(zcm3,3)
ZCM=one+two+three
SELECT register
regname = rname
regsn = rsn
hardsn = hsn
thisform.text1.Value = regname
thisform.text3.Value = hardsn
IF LEN(ALLTRIM(regsn))>1
thisform.text2.Value = regsn
ENDIF
IF LEN(ALLTRIM(thisform.text1.Value))>2
thisform.text2.SetFocus
ELSE
thisform.text1.SetFocus
ENDIF
IF ALLTRIM(zcm) == ALLTRIM(thisform.text2.Value) AND LEN(zcm) = LEN(ALLTRIM(thisform.text2.Value))
registerOK = .t.
*thisform.command1.Enabled = .f.
ELSE
registerOK = .f.
*thisform.command1.Enabled = .t.
ENDIF
这应该是软件启动注册验证的函数吧?虽然大约能看懂,但是翻译不成Delphi的程序
于是找到下面的按钮事件
ROCEDURE Click
zcm = ""
newnamenumber1 = ""
newnamenumber = ""
LOCAL oWbemLocator, oWMIService, oItems, oItem
oWbemLocator = CREATEOBJECT("WbemScripting.SWbemLocator")
oWMIService = oWbemLocator.ConnectServer(".", "root/cimv2")
*oItems = oWMIService.ExecQuery("SELECT Caption FROM " + "Win32_DiskDrive")
oItems = oWMIService.ExecQuery("SELECT Caption FROM " + "Win32_DiskDrive")
FOR EACH oItem IN oItems
Diskinfo1 = LEFT(RIGHT(oItem.Caption,12),10)
IF LEN(ALLTRIM(diskinfo1))=10
EXIT
ENDIF
ENDFOR
*用ASC（）函数将用户名中所有字符的ASCII码都取出来并连接成一个字符串
for m=1 to len(alltrim(diskinfo1))
thisstr=substr(alltrim(diskinfo1),m,1) &&取出一个字符
newnamenumber1=newnamenumber1+alltrim(str(asc(thisstr)))
endfor
NewNameNumber1=padl(newnamenumber1,10,"0")
CPKJ=val(NewNameNumber1)
thisname = ALLTRIM(thisform.text1.Value)
*用ASC（）函数将用户名中所有字符的ASCII码都取出来并连接成一个字符串
for m=1 to len(alltrim(thisname))
thisstr=substr(alltrim(thisname),m,1) &&取出一个字符
newnamenumber=newnamenumber+alltrim(str(asc(thisstr)))
endfor
NewNameNumber=thisform.text3.Value///编辑框用来输入别的机器的机器码
//在这里直接给NewNameNumber赋值成别的机器的机器码
NewNameNumber=padl(newnamenumber,10,"0")
NAM=val(NewNameNumber)
ZCM1=alltrim(str(bitor(CPKJ,NAM)))
ZCM2=alltrim(str(bitand(CPKJ,NAM)))
ZCM3=alltrim(str(bitor(CPKJ,NAM)))
*ZCM3=alltrim(str(bitxor(CPKJ,NAM)))
one=left(zcm1,3)+"-" &&取出前三位加“-”
two=substr(zcm2,4,4)+"-" &&取出中间三位加“-”
three=right(zcm3,3)
ZCM=one+two+three
这里真正的注册码就出来了
thisform.text2.Value =ALLTRIM(zcm)
*thisform.text1.Value = regname
IF ALLTRIM(zcm) == ALLTRIM(thisform.text2.Value) AND LEN(zcm) = LEN(ALLTRIM(thisform.text2.Value))
registerOK = .t.
*thisform.command1.Enabled = .f.
ELSE
registerOK = .f.
*thisform.command1.Enabled = .t.
ENDIF
IF !USED("register")
USE register
ENDIF
OK整个程序分析完了,吧修改后的表导入到新建的VFP项目里面编译出exe
执行注册别的机器码生成的注册码在别的机器注册OK
下载地址
http://www.namipan.com/d/test.rar/f4afc664810d6989c65f14affd0459d7e2a29e73aaab6501
只是不明白为什么不用脱壳就能反编译出来源代码呢
往大牛赐教
无奈有几行代码不太懂
就把源程序改造成注册机了
程序加壳是
ASProtect 2.3 SKE build 06.26 Beta [Extract]
用脚本脱壳就损坏了程序
于是拿unfoxall直接反编译
这一试不要紧哪,差点成残疾,这屋里的气氛可就有点不对劲啦
带壳就把程序源码导出来了,虽然没有测试是不是能编译整个项目
找到了我最关心的register.SCT如下
PUBLIC registerOK,zcm
registerOK = .f.
zcm = ""
newnamenumber1 = ""
newnamenumber = ""
LOCAL oWbemLocator, oWMIService, oItems, oItem
oWbemLocator = CREATEOBJECT("WbemScripting.SWbemLocator")
oWMIService = oWbemLocator.ConnectServer(".", "root/cimv2")
*oItems = oWMIService.ExecQuery("SELECT Caption FROM " + "Win32_DiskDrive")
oItems = oWMIService.ExecQuery("SELECT Caption FROM " + "Win32_DiskDrive")
FOR EACH oItem IN oItems
Diskinfo1 = LEFT(RIGHT(oItem.Caption,12),10)
IF LEN(ALLTRIM(diskinfo1))=10
EXIT
ENDIF
ENDFOR
*用ASC（）函数将用户名中所有字符的ASCII码都取出来并连接成一个字符串
for m=1 to len(alltrim(diskinfo1))
thisstr=substr(alltrim(diskinfo1),m,1) &&取出一个字符
newnamenumber1=newnamenumber1+alltrim(str(asc(thisstr)))
endfor
NewNameNumber1=padl(newnamenumber1,10,"0")
CPKJ=val(NewNameNumber1)
IF !USED("register")
USE register
ENDIF
SELECT register
IF ISNULL(rname) OR LEN(ALLTRIM(rname))=0
thisname="江南" &&取得用户名
ELSE
thisname = ALLTRIM(rname)
ENDIF
*用ASC（）函数将用户名中所有字符的ASCII码都取出来并连接成一个字符串
for m=1 to len(alltrim(thisname))
thisstr=substr(alltrim(thisname),m,1) &&取出一个字符
newnamenumber=newnamenumber+alltrim(str(asc(thisstr)))
endfor
NewNameNumber=padl(newnamenumber,10,"0")
NAM=val(NewNameNumber)
ZCM1=alltrim(str(bitor(CPKJ,NAM)))
ZCM2=alltrim(str(bitand(CPKJ,NAM)))
ZCM3=alltrim(str(bitor(CPKJ,NAM)))
*ZCM3=alltrim(str(bitxor(CPKJ,NAM)))
one=left(zcm1,3)+"-" &&取出前三位加“-”
two=substr(zcm2,4,4)+"-" &&取出中间三位加“-”
three=right(zcm3,3)
ZCM=one+two+three
SELECT register
regname = rname
regsn = rsn
hardsn = hsn
thisform.text1.Value = regname
thisform.text3.Value = hardsn
IF LEN(ALLTRIM(regsn))>1
thisform.text2.Value = regsn
ENDIF
IF LEN(ALLTRIM(thisform.text1.Value))>2
thisform.text2.SetFocus
ELSE
thisform.text1.SetFocus
ENDIF
IF ALLTRIM(zcm) == ALLTRIM(thisform.text2.Value) AND LEN(zcm) = LEN(ALLTRIM(thisform.text2.Value))
registerOK = .t.
*thisform.command1.Enabled = .f.
ELSE
registerOK = .f.
*thisform.command1.Enabled = .t.
ENDIF
这应该是软件启动注册验证的函数吧?虽然大约能看懂,但是翻译不成Delphi的程序
于是找到下面的按钮事件
ROCEDURE Click
zcm = ""
newnamenumber1 = ""
newnamenumber = ""
LOCAL oWbemLocator, oWMIService, oItems, oItem
oWbemLocator = CREATEOBJECT("WbemScripting.SWbemLocator")
oWMIService = oWbemLocator.ConnectServer(".", "root/cimv2")
*oItems = oWMIService.ExecQuery("SELECT Caption FROM " + "Win32_DiskDrive")
oItems = oWMIService.ExecQuery("SELECT Caption FROM " + "Win32_DiskDrive")
FOR EACH oItem IN oItems
Diskinfo1 = LEFT(RIGHT(oItem.Caption,12),10)
IF LEN(ALLTRIM(diskinfo1))=10
EXIT
ENDIF
ENDFOR
*用ASC（）函数将用户名中所有字符的ASCII码都取出来并连接成一个字符串
for m=1 to len(alltrim(diskinfo1))
thisstr=substr(alltrim(diskinfo1),m,1) &&取出一个字符
newnamenumber1=newnamenumber1+alltrim(str(asc(thisstr)))
endfor
NewNameNumber1=padl(newnamenumber1,10,"0")
CPKJ=val(NewNameNumber1)
thisname = ALLTRIM(thisform.text1.Value)
*用ASC（）函数将用户名中所有字符的ASCII码都取出来并连接成一个字符串
for m=1 to len(alltrim(thisname))
thisstr=substr(alltrim(thisname),m,1) &&取出一个字符
newnamenumber=newnamenumber+alltrim(str(asc(thisstr)))
endfor
NewNameNumber=thisform.text3.Value///编辑框用来输入别的机器的机器码
//在这里直接给NewNameNumber赋值成别的机器的机器码
NewNameNumber=padl(newnamenumber,10,"0")
NAM=val(NewNameNumber)
ZCM1=alltrim(str(bitor(CPKJ,NAM)))
ZCM2=alltrim(str(bitand(CPKJ,NAM)))
ZCM3=alltrim(str(bitor(CPKJ,NAM)))
*ZCM3=alltrim(str(bitxor(CPKJ,NAM)))
one=left(zcm1,3)+"-" &&取出前三位加“-”
two=substr(zcm2,4,4)+"-" &&取出中间三位加“-”
three=right(zcm3,3)
ZCM=one+two+three
这里真正的注册码就出来了
thisform.text2.Value =ALLTRIM(zcm)
*thisform.text1.Value = regname
IF ALLTRIM(zcm) == ALLTRIM(thisform.text2.Value) AND LEN(zcm) = LEN(ALLTRIM(thisform.text2.Value))
registerOK = .t.
*thisform.command1.Enabled = .f.
ELSE
registerOK = .f.
*thisform.command1.Enabled = .t.
ENDIF
IF !USED("register")
USE register
ENDIF
OK整个程序分析完了,吧修改后的表导入到新建的VFP项目里面编译出exe
执行注册别的机器码生成的注册码在别的机器注册OK
下载地址
http://www.namipan.com/d/test.rar/f4afc664810d6989c65f14affd0459d7e2a29e73aaab6501
只是不明白为什么不用脱壳就能反编译出来源代码呢
往大牛赐教
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！
|
|
|---|---|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
