中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

[原创]加密BAT的VBS

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

作者：savage100 | 时间：2008-11-14 12:16 | 标题：[原创]加密BAT的VBS

加密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 ]

作者：slore | 时间：2008-11-14 13:13

@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

作者：HAT | 时间：2008-11-14 13:51 | 标题：为方便他人阅读，建议直接贴代码。

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

作者：laoyao2007 | 时间：2008-11-14 14:20

谢谢各位老大的提供

作者：fyjokre | 时间：2008-11-21 10:56

支持！！！

作者：5872169 | 时间：2008-11-22 09:26

我无法通过测试，出现800a0005错误

作者：holucan | 时间：2008-11-22 14:56

好像挺有趣的，测试测试看看，谢谢分享！;)

来源：https://www.cn-dos.net/forum/viewthread.php?tid=44419　·　打印时间 2026-08-10 16:54