中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]加密BAT的VBS

作者:

标题: [原创]加密BAT的VBS

上一主题 | 下一主题

savage100
新手上路

积分 6
发帖 2
注册 2008-11-14
状态离线

『楼主』: [原创]加密BAT的VBS 使用 LLM 解释/回答一下

加密BAT的VBS
呵呵
只是实现了加密的功能
没有容错
自己测试了下%90的BAT加密后运行正常，效率并没降低
下载：http://file3.xingkong.com//Files/2008/11/20081114123149725.rar
例：
::Ｃrypt by Ｓavage Ｓtudio | ＥM:log2.0@163.com | ＨomeＰage:savage100.xingkong.com | ＱQ:24807208::
@echo off & set _="U}'mf6jSb@HI3XW]5we?9:0Rs{il|KZn8T,<#qv

Last edited by savage100 on 2008-11-14 at 12:28 ]

此帖被 +4 点积分

点击查看详情

2008-11-14 12:16

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

@echo off&setlocal EnableDelayedExpansion&color 0f&set all=1&set /A a=0&set /A b=1&set /A c=0&for /L %%i in (0,1,44) do (set /A c=!a!+!b!&set /A a=!b!&set /A b=!c!&set all=!all! !c!)&if %%i equ 44 (echo 斐波纳齐:!all!)&pause>nul

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2008-11-14 13:13

查看资料发短消息网志

编辑帖子回复引用回复

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 3 楼』: 为方便他人阅读，建议直接贴代码。使用 LLM 解释/回答一下

Dim SStr,Costr,ts,SavageSSC,SavageSS,L,strs,stre,ls,flag,Head

dim a()

Info1=chr(13) & "_______________________________" & chr(13) & "Ｐowered Ｂy Savage Ｓtudio (2008)" & chr(13) & "ＥM:log2.0@163.com  ＱQ:24807208" & chr(13) & "ＨomeＰage:savage100.xingkong.com"

Randomize(Hour(Now)& Minute(Now)& Second(Now))

SavageSS="U}'mf6jSb@HI3XW]5we?9:0Rs{il|KZn8T,<#qv