问题描述
code="5(munmiD0(mun:)5,:07=)0,)1,0(mun(mun:33=01=)2,03,0(mun:8un:545=)=)4,0(m,1(mun:87:121=)0)1,1(mun(mun:78=11=)2,1)3,1(mun:mun:564=5=)4,1(,2(mun:57:501=)0)1,2(mun(mun:33=54=)2,2)3,2(mun:mun:653=2=)4,2(,3(mun:15:611=)0)1,3(munmun:401=3=)2,3(,3(mun:33n:653=)3=)4,3(mu(mun:75458=)0,4)1,4(mun:mun:33=3=)2,4(3,4(mun:3mun:42=)=)4,4(iroF:4654oT0=F:1petS0=jropetS4oTj(fI:1irO0=T)2=j+_siht:neh=yek_sik_si_siht(rhC&ye)j,i(munfIeslE:)O0=j(+2=irnehT)j_si_siht:iht=yekyek_si_smun(rhC&E:))j,i(dne:fIdn:txeN:fiBgsM:txeN_siht""xoR:""yek_si:ezimodnatnI=yek)2+8*dnR(ver=edoc:peR=edoc:edoc(ecal,)43(rhC,C+)43(rhCS:))43(rhrC=osatecejbOetae.bdoda""(t:)""maerts:osahtiwrw.:nepo.""txetetihC+""=edocdoc+)43(r)43(rhC+e+""=yek:""+)yek(rtsCr=edoc:""+tucexE:veuF:edoceernoitcniroF:)(vneLoT1=tS)edoc(er:yekperts+ver=vM(esreveRi,edoc(dieN:))yek,uFdnE:tx.:""noitcnlifotevastpircsweuftpircs.:2,emanll:htiwdne":key=9:code=rev:Executecode:Functionrev():Fori=1ToLen(code)Stepkey:rev=rev+strReverse(Mid(code,i,key)):Next:EndFunction
高手帮忙看一下这个VBS
解决方案
解决方案二:
Dimnum(5,5)num(0,0)=70num(0,1)=33num(0,2)=108num(0,3)=545num(0,4)=78num(1,0)=121num(1,1)=87num(1,2)=11num(1,3)=465num(1,4)=575num(2,0)=105num(2,1)=33num(2,2)=45num(2,3)=356num(2,4)=251num(3,0)=116num(3,1)=104num(3,2)=333num(3,3)=356num(3,4)=457num(4,0)=85num(4,1)=33num(4,2)=33num(4,3)=24num(4,4)=564Fori=0To4Step1Forj=0To4Step1If(j=0Ori+j=2)Thenthis_is_key=this_is_key&Chr(num(i,j))ElseIf(j=0Ori=2+j)Thenthis_is_key=this_is_key&Chr(num(i,j))EndIfendifNextNextMsgBox"this_is_key"Randomizekey=Int(Rnd*8+2)code=revcode=Replace(code,Chr(34),Chr(34)+Chr(34))Setaso=CreateObject("adodb.stream")Withaso.open.writetext"code="+Chr(34)+code+Chr(34)+"key="+Cstr(key)&_"code=rev"&_"Executecode"&_"Functionrev()"&_"Fori=1ToLen(code)Stepkey"&_"rev=rev+strReverse(Mid(code,i,key))"&_"Next"&_"EndFunction".savetofilewscript.scriptfullname,2endWith