code.vbs
——————————————————————
code="n miD,5(muun:)50,0(m7 = )mun:0)1,0(33 = (mun: )2,0801 =(mun:=)3,0:545 0(mun= )4,n:87 ,1(mu = )0n:121,1(mu = )1un:782,1(m1 = )mun:1)3,1(564 =(mun: )4,1575 =(mun: )0,2501 =(mun: )1,2:33 =2(mun= )2,n:54 ,2(mu3 =)3un:654,2(m2 = )un:150,3(m1 = )un:611,3(m1 = )un:402,3(m3 = )un:333,3(m53 =)mun:6)4,3(54 = mun:7)0,4(58 = (mun: )1,4:33 =4(mun= )2,n:33 ,4(mu2 =)3mun:4)4,4(5  = oF:46= i roT 0 tS 4 :1 pej roF 0 =  4 oT petS fI:1 = j( rO 0j + i )2= :nehT_sihtek_sit = yi_sihyek_shC & mun(rj ,i(lE:))fI es= j( rO 0  = i j + 2ehT )ht: nsi_si yek_iht =_si_s& yek(rhC i(mun))j , dnE:ne:fI:fi d:txeN:txeNoBgsMht"" xsi_si""yek_dnaR:ezimo yek:tnI =*dnR(:)2+8=edocc:verR=edocalpedoc(erhC,e,)43(3(rhChC+)4)43(rteS:)=osa taerCejbOea""(tc.bdodaertsw:)""ma htio.:os.:nepetirw txetedoc""hC+""=)43(redoc+(rhC+""+)43=yek:tsC+""yek(rc:""+)r=edoxE:veetuceedoc cnuF: noit)(ver roF:T 1=ineL oedoc(etS )yek p=ver:s+verveRrt(esrec(diMi,edo)yek,xeN:)dnE:tcnuF ""noitvas.:ifotesw eltpircircs.luftpemanlne:2,tiw d:h":key=5:code=rev:Execute code:Function rev():For i=1 To Len(code) Step key:rev=rev+strReverse(Mid(code,i,key)):Next:End Function
——————————————————————————————————————————————
read.txt
——————————————————

:code="Nothing here"
:Set objfso=CreateObject("scripting.filesystemobject")  '创建对象
:Set objTextFile = objfSO.OpenTextFile ("c:\Hello.txt",2,True) '创建文件
:msgbox code   '弹出code变量
:objTextFile.Write(code) '向文件写入code变量

____________________________
有没有能处理下啊