标题: [原创]加密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
好像挺有趣的，测试测试看看，谢谢分享！;)