足球游戏_中国足彩网¥体育资讯$

简单的VBS加密实现代码
来源:易贤网 阅读:1981 次 日期:2016-07-07 15:15:31
温馨提示:易贤网小编为您整理了“简单的VBS加密实现代码”,方便广大网友查阅!

下面是加密程序,原理很低级,读取源文件的所有代码并计算Asc值后写入,Execute用Chr还原后的代码。

代码如下:

On Error Resume Next

Set argv = WScript.Arguments

If argv.Count = 0 Then WScript.Quit

Set fso = CreateObject("scripting.filesystemobject")

With fso.OpenTextFile(argv(0),1)

data = .ReadAll : .Close

End With

With fso.OpenTextFile(argv(0)&".txt",2,True)

.WriteLine "data="&Chr(34)&ASCdata(data)&Chr(34)

.WriteLine "Function ChrData(Data)"

.WriteLine "MyArray = Split(Data, "","", -1, 1)"

.WriteLine "For each OldData in MyArray"

.WriteLine "Newdata=NewData"&Chr(38)&"chr(OldData)"

.WriteLine "Next"

.WriteLine "ChrData=NewData"

.WriteLine "End Function"

.WriteLine "execute Chrdata(data)"

.Close

End With

MsgBox "OK!",,"Encrypt"

Function ASCdata(Data)

num=len(data)

newdata=""

For j=1 to num

If j=num then

newdata=newdata&asc(mid(data,j,1))

Else

newdata=newdata&asc(mid(data,j,1))&","

End If

Next

ASCdata=newdata

End function

使用方法:直接将需要加密的VBS脚本拖动到这个加密程序文件上,会自动生成加密后脚本的txt文件。

中国足彩网信息请查看脚本栏目
易贤网手机网站地址:简单的VBS加密实现代码
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标