请问下有没有这种的算法?

一年四季

请问下有没有这种的算法?

   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

冰糖

这是啥软件反编译的效果不错啊

as3852711

算法是人定的可以说什么算法都是有的,就看你能不能写出来.上面的代码又像C又像VB你是从那得来的./:012 /:012 /:012

xuyang886

都是高手``/:L