双重加密VBS, VBE文件

'Encoder加密
Function Encoder(data)
	with CreateObject("Scripting.Encoder")
		Encoder=.EncodeScriptFile(".vbs",data,0,"VBScript")
	end with
End Function

'ASCII加密
Function ASCII(Data)
	C = Len(Data)
	For i = 1 to C
		If i < C Then
			JiaMi = JiaMi & Asc(Mid(Data,i)) & " "
		Else
			JiaMi = JiaMi & Asc(Mid(Data,i))
		End If
	Next
	JiaMi = "L = " & chr(34) & JiaMi & chr(34) & vbCrlf & "S=split(L)" & vbCrlf & "for each c in S" & vbCrlf & "key=key & chr(c)" & vbCrlf & "next" & vbCrlf & "execute key"
	ASCII = JiaMi
End Function

Set argu = Wscript.Arguments
If argu.count = 0 Then Wsh.echo "把文件拖到我身上。":Wsh.Quit
Set Fso = CreateObject("Scripting.FileSystemObject")
Data=Fso.OpenTextFile(argu(0)).ReadALL

Fso.CreateTextFile(argu(0) & "_加密.vbe").Write Encoder(ASCII(Data))