VFP的代码混淆器，只在VFP9下运行正常

这是个原型，只能对PRG文件进行混淆，还未完善。

阿明的FOXSHELL看界面有 代码混淆功能，应是很好。

但我的需要，有些不同，要公开部分代码、公开部分二次开发接口，LEONID的混淆器只能
对EXE/APP处理，且BUG不小， 自主的混淆器暂时还是必须的。

  1
  2*- OBFUSCATOR ----------------------------------------------------------------------------------------------------
  3*-
  4*-    功能： 针对 PRG代码|代码串的 混淆器，只混淆local定义和lParameters定义。
  5*-
  6*-
  7*-    现行的算法： 只是替换 LOCAL定义和lParameters定义中变量。这两个关键字必须写全，不能缩写。
  8*-    替换的必须是 独立的“词”，以cSep来界定。 
  9*-
 10*-  未解决的问题: 
 11*-
 12*-        1. 能会误将 字符串中字符 的与local定义同形的 也混了。算法上应区别 textmerge等
 13*-             字符串中，不替换  
 14*-                    除非：  （1）在textmerge中 and <>之内；
 15*-                            （2）& 之后
 16*-                            （3）type('')之内
 17*-                            （4）形如： evaluate('oObj.name') 中的oObj
 18*-                            （5）
 19*-
 20*-           这个算法未做，但影响不大，只是某些情况下有字符串会乱了。 
 21*-
 22*-        2. 个funciton一起时. 应分开FUNCTION、分段处理的，目前是混在一起。有可能出错
 23*-      3. 换后，可能做成行长大于255。但vfp9好象没有行长限制了。
 24*-        4. 以分号续行的情况，未有考虑。
 25*-        5. 生成随机的变量名，除0o之外，应有其他选项。
 26*--------------------------------------------------------------------------------------------------------------------
 27
 28
 29Local cFile,cSep,cCode,aXtbl[1,2],i,j,k,cLine,cBin,nIdx,cVarDefKeyWord,cVarName,cVarCnt,nPos,cTmpCodes,cTmpLine
 30Local nIdx,cVarDefKeyWord,cVarName,cVarCnt,nPos,cTmpCodes,cTmpLine
 31
 32
 33*cFile = Getfile('prg')
 34*cFile = 'D:\02WORKSHOP\YXERP01\01STD\TEST\abc.PRG'
 35cFile = 'D:\02WORKSHOP\YXERP01\01STD\source\通用函数.PRG'
 36If Empty(cFile)
 37    Return .F.
 38EndIf
 39
 40*--
 41cCode=Filetostr(cFile)
 42cSep = Chr(13)+Chr(10)+Chr(9)+"()=+-*/&@<>.',%[] "+'"'
 43
 44*-- 1. 去掉注解-------------------------------------------------- 
 45cTmpCodes=''
 46For i=1 to GetWordCount(cCode,Chr(13)+Chr(10))
 47    cLine = Ltrim(GetWordNum(cCode,i,Chr(13)+Chr(10)) ,1,Chr(9),' ')
 48    If     Left( cLine,1) = '*'
 49        Loop
 50    EndIf 
 51    
 52    nPos = At('&'+'&',cLine)
 53    If nPos > 0
 54        cTmp = Substr(cLine,1,nPos-1)
 55        If Occurs("'",cTmp)%2=0 and Occurs('"',cTmp)%2=0 &&不在字符串中
 56            cLine = cTmp
 57        EndIf 
 58    EndIf     
 59    
 60    cTmpCodes = cTmpCodes + Chr(13)+Chr(10) + cLine
 61Next 
 62cCode = cTmpCodes
 63
 64
 65
 66*-- 2.  取得local 及 lparameters 定义,生成对照表-------------------------------
 67cVarDefKeyWord='local'
 68nIdx = 0
 69Do While .T.
 70    nIdx = nIdx + 1
 71    nPos = Atc(cVarDefKeyWord,cCode,nIdx)
 72    If nPos = 0 
 73        If cVarDefKeyWord='local'
 74            cVarDefKeyWord='lparameters'
 75            nIdx = 0
 76            Loop 
 77        Else
 78            Exit            
 79        EndIf     
 80    Endif
 81
 82    cLine = Substr(cCode,nPos-1,500)
 83    cLine = Left( cLine, At(Chr(13),cLine))
 84    If Not Inlist(Left(cLine,1),Chr(10),Chr(13),' ')
 85        Loop
 86    EndIf
 87    
 88    cLine = Substr(cLine,Len(cVarDefKeyWord)+2)
 89
 90    If At('[',cLine)>0 or At('(',cLine)>0 &&array handling 
 91        cLine = Chrtran( cLine,'[]()', '****' )
 92        cTmpLine=''
 93        For i=1 to GetWordCount(cLine,'*')
 94            cTmp = Alltrim(GetWordNum(cLine,i,'*'),1,Chr(9),' ')
 95            If IsDigit(cTmp)
 96                Loop
 97            EndIf 
 98            cTmpLine = cTmpLine + cTmp 
 99        Next
100        cLine =  cTmpLine        
101    EndIf 
102    *---
103    
104    For i=1 To Getwordcount(cLine,',')
105        cVarName = Lower( Alltrim(Getwordnum(cLine,i,','),1,Chr(10),Chr(9),Chr(13),' ') )
106        cVarName =  GetWordNum(cVarName,1 ,'([')
107        If Ascan(aXTbl,cVarName,1,0,1,2+4)>0
108            Loop 
109        EndIf     
110        
111        If Vartype(aXtbl(1))<>'L'
112            Declare aXtbl( Alen(aXTbl,1)+1, 2)
113        EndIf      
114        
115        aXTbl(Alen(aXtbl,1),1) = cVarName 
116        cBin = ''
117        For j=30 To 0 Step -1
118            cBin = cBin + Iif(Bittest(Rand()*100000000,i),'0','o')
119        Next
120        aXTbl(Alen(aXtbl,1),2) = 'o' + cBin
121        
122        wait window nowait '取得变量:  ' + padr(cVarName + ' ---> ' + 'o'+cBin,50)
123    Next
124Enddo
125
126
127*--3.   替换变量.o0o0o0o0o0oooo000 --------------------------------------
128For i=1 To Alen(aXTbl,1)
129    If Vartype(aXtbl(i,1))='L'
130        Loop
131    Endif
132
133    nIdx = 1
134    Do While .T.
135        nPos = Atc(aXtbl(i,1),cCode,nIdx)
136        If nPos=0
137            Exit
138        Endif
139
140        nBeforeChar = Substr(cCode,nPos-1,1)
141        nAfterChar = Substr(cCode,nPos+Len(aXtbl(i,1)),1)
142        If Not (nBeforeChar $ cSep Or Empty(nBeforeChar)) or ;
143                Not (nAfterChar $ cSep Or Empty(nAfterChar))
144
145            nIdx = nIdx + 1
146            Loop
147        Endif
148        *-----
149        cCode =  Left(cCode, nPos-1) + aXTbl(i,2) + Substr(cCode,nPos + Len(aXTbl(i,1)) )
150    EndDo
151
152    wait window nowait 'obfuscating  ' +  Str( i / Alen(aXTbl,1)*100,5,2) +' %  ' && +cVarName + ' ---> ' + 'o'+cBin
153Next
154
155StrToFile(cCode,'obfuscated.prg')
156Wait clear 
157
158Modify Command obfuscated.prg
159
160
161
162
163        
164