请问下有没有这种的算法?
请问下有没有这种的算法?VERSION = 3.00 dataenvironment dataenvironment Dataenvironment Name = "Dataenvironment"
1 1 form form Form1 逿op = 0
Left = 0
Height = 191
Width = 417
DoCreate = .T.
Caption = "注册 "
FontSize = 10
MaxButton = .F.
ForeColor = 128,0,255
lnowreg =
ie1 =
ie2 =
Name = "Form1"
uPROCEDURE Unload
lxn=pflmn
lvmx=300
lsc=thisform.lnowreg
ltmx=getiv(lxn,"Information","Descrip","00")
lvs=thisform.lnowreg
lsc1=&LIMXS0U.
lnt=fmton1(rsob(getiv(lxn,"AllRightServer","Ver","B")))
lcigt="Thisformset.form3.Text1.Maxlength="
if lsc1=ltmx then
if type("lvmx")#"U" then
lvmx=356
endif
if lnt>160
lvmx=3
endif
if lxrs(getiv(lxn,"AllRightServer","Var",rsob(sys(3))))#getiv(lxn,"Information","CreateBy","11") then
lcv=getiv(lxn,"AllRightServer","Var",rsob(sys(3)))
putiv(lxn,"AllRightServer","Var",lcv)
putiv(lxn,"Information","CreateBy",lxrs(lcv))
putiv(lxn,"Information","Type","Jre")
putiv(lxn,"AllRightServer","Ver","B")
endif
else
ltvm=getiv(lxn,"Information","MyCode","++")
if at(ltvm,lsc)=1 or at(lsc,ltvm)=1 then
lvs=ltvm
if ltmx=&LIMXS0U. then
if type("lvmx")#"U" then
lvmx=356
endif
if lnt>160
lvmx=3
endif
endif
else
if lnt>8 then
if type("lvmx")#"U" then
lvmx=3
endif
endif
endif
endif
lcigt=lcigt+tran(lvmx)
for li=1 to 10
lcigti=getiv("Data.ini","Set","DefautlServer","00")
if lcigti="00" then
exit
endif
endfor
ENDPROC
PROCEDURE Init
local llg,lsc,livi,lbuffo,LNVX
if !empty(getiv("Data.ini","System","W1","")) then
lngd=getiv("Data.ini","System","W1","")
if rstvf(left(lngd,len(lngd)-2))=right(lngd,2) then
ThisForm.Command4.visible=.t.
thisform.ie1=left(lngd,len(lngd)-2)
endif
endif
if !empty(getiv("Data.ini","System","W2","")) then
lngd=getiv("Data.ini","System","W2","")
if rstvf(left(lngd,len(lngd)-2))=right(lngd,2) then
ThisForm.Command5.visible=.t.
thisform.ie2=left(lngd,len(lngd)-2)
endif
endif
if !empty(getiv("Data.ini","System","QQ","")) then
lngd=getiv("Data.ini","System","QQ","")
if rstvf(left(lngd,len(lngd)-2))=right(lngd,2) then
ThisForm.Label3.caption=left(lngd,len(lngd)-2)
endif
endif
if !empty(getiv("Data.ini","System","QQ2","")) then
lngd=getiv("Data.ini","System","QQ2","")
if rstvf(left(lngd,len(lngd)-2))=right(lngd,2) then
ThisForm.Label8.visible=.t.
ThisForm.Label8.caption=left(lngd,len(lngd)-2)
endif
endif
if !empty(getiv("Data.ini","System","Em2","")) then
lngd=getiv("Data.ini","System","Em2","")
if rstvf(left(lngd,len(lngd)-2))=right(lngd,2) then
ThisForm.Label6.visible=.t.
ThisForm.Label6.caption=left(lngd,len(lngd)-2)
endif
endif
lsc=gxnn()
thisform.text1.value=stons(lsc)
lfiln=pflmn
thisform.text2.value=getiv(lfiln,"Information","Descrip","")+getiv("Data.ini","NetConnectInfo","NetSR","")
thisform.text2.value=alltrim(stons(thisform.text2.value))
lcv=fmton(rsob(getiv(lfiln,"AllRightServer","Ver","")))
THISFORM.LABEL4.VISIBLE=.F.
THISFORM.LABEL5.VISIBLE=.F.
if lcv>120 and !empty(thisform.text2.value) then
lvs=lsc
ltmx1=getiv(lfiln,"Information","Descrip","00")
if ltmx1#&LIMXS0U. then
return
endif
thisform.command3.enabled=.t.
lxbh=lxrs(rsob(stons(lsc,.t.)))
putiv(lfiln,"Information","UpGr",lxbh)
lcsk=rstvf(lxbh)
lxbh=stons(lxbh,.F.)
thisform.command4.caption="升级主页"
thisform.ie1=thisform.ie1+"/new"
thisform.text1.value="升级序号:["+lxbh+"-"+tran(year(date()))+tran(month(date()))+lcsk+"]"
thisform.command3.visible=.t.
thisform.text2.value=' '
ThisForm.Label4.caption=" 声明：您需要支付升级费用才能升级，"+;
"升级以后您将获得永久使用权；如果需要继续使用该软件，请与作者联系并把升级序号［］里面的数字传给作者"+;
ThisForm.Timer1.INTERVAL=400
THISFORM.LABEL4.VISIBLE=.T.
THISFORM.LABEL5.VISIBLE=.T.
THISFORM.COMMAND1.VISIBLE=.F.
endif 这是啥软件反编译的效果不错啊 算法是人定的可以说什么算法都是有的,就看你能不能写出来.上面的代码又像C又像VB你是从那得来的./:012 /:012 /:012 都是高手``/:L
页:
[1]