官方说明：screnc.chm
主文件（加密）：screnc.exe
源码：scrdec.c
主文件（解密）：scrdec.exe
复制代码

screnc.exe  原文件.vbs  加密后.vbe
scrdec.exe  加密后.vbe  解密后.vbs
复制代码

MsgBox 123
复制代码

#@~^CgAAAA==\ko$K6,F 2BgMAAA==^#~@ 
复制代码

option explicit

Dim oArgs, NomFichier

'Optional argument : the encoded filename

NomFichier=""
Set oArgs = WScript.Arguments
Select Case oArgs.Count

Case 0 'No Arg, popup a dialog box to choose the file
        NomFichier=BrowseForFolder("Choose an encoded file", &H4031, &H0011)
Case 1
        If Instr(oArgs(0),"?")=0 Then '-? ou /? => aide
                NomFichier=oArgs(0)
        End If
Case Else
        WScript.Echo "Too many parameters"
End Select

Set oArgs = Nothing

If NomFichier<>"" Then
        Dim fso
        Set fso=WScript.CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(NomFichier) Then
                Dim fic,contenu
                Set fic = fso.OpenTextFile(NomFichier, 1)
                Contenu=fic.readAll
                fic.close
                Set fic=Nothing
                Const TagInit="#@~^" '#@~^awQAAA==
                Const TagFin="==^#~@" '& chr(0)
                Dim DebutCode, FinCode
                Do
					FinCode=0
					DebutCode=Instr(Contenu,TagInit)
					If DebutCode>0 Then
						If (Instr(DebutCode,Contenu,"==")-DebutCode)=10 Then 'If "==" follows the tag
							FinCode=Instr(DebutCode,Contenu,TagFin)
							If FinCode>0 Then
								Contenu=Left(Contenu,DebutCode-1) & _
								Decode(Mid(Contenu,DebutCode+12,FinCode-DebutCode-12-6)) & _
								Mid(Contenu,FinCode+6)
							End If
						End If
					End If
                Loop Until FinCode=0
                WScript.Echo Contenu
        Else
                WScript.Echo Nomfichier & " not found"
        End If
        Set fso=Nothing

Else
        WScript.Echo "Please give a filename"
        WScript.Echo "Usage : " & wscript.fullname  & " " & WScript.ScriptFullName & " <filename>"

End If

Function Decode(Chaine)
        Dim se,i,c,j,index,ChaineTemp
        Dim tDecode(127)
        Const Combinaison="1231232332321323132311233213233211323231311231321323112331123132"
        Set se=WSCript.CreateObject("Scripting.Encoder")
        For i=9 to 127
                tDecode(i)="JLA"
        Next

        For i=9 to 127
                ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3)
                For j=1 to 3
                        c=Asc(Mid(ChaineTemp,j,1))
                        tDecode(c)=Left(tDecode(c),j-1) & chr(i) & Mid(tDecode(c),j+1)
                Next
        Next

        'Next line we correct a bug, otherwise a ")" could be decoded to a ">"
        tDecode(42)=Left(tDecode(42),1) & ")" & Right(tDecode(42),1)
        Set se=Nothing
        Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13))
        Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<")
        Chaine=Replace(Chaine,"@$","@")
        index=-1
        For i=1 to Len(Chaine)
                c=asc(Mid(Chaine,i,1))
                If c<128 Then index=index+1
                If (c=9) or ((c>31) and (c<128)) Then
                        If (c<>60) and (c<>62) and (c<>64) Then
                                Chaine=Left(Chaine,i-1) & Mid(tDecode(c),Mid(Combinaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1)
                        End If
                End If
        Next
        Decode=Chaine
End Function

Function BrowseForFolder(ByVal pstrPrompt, ByVal pintBrowseType, ByVal pintLocation)
        Dim ShellObject, pstrTempFolder, x
        Set ShellObject=WScript.CreateObject("Shell.Application")
        On Error Resume Next
        Set pstrTempFolder=ShellObject.BrowseForFolder(&H0,pstrPrompt,pintBrowseType,pintLocation)
        BrowseForFolder=pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path
        If Err.Number<>0 Then BrowseForFolder=""
        Set pstrTempFolder=Nothing
        Set ShellObject=Nothing
End Function
复制代码

你整天热脸贴盖茨屁股，一副“万般皆下品，只有微软好”的嘴脸，这加密工具是微软发布的，现在你倒指摘它居心叵测？是应该把贵教祖师爷烧死还是把你烧死？
加密就是为了作恶，你不知道什么叫 base64？
不靠工具难以解密的好处是可以在一定程度上避免代码被轻易修改，难道你希望开机启动的脚本被加了一行修改主页？哦，我忘了贵脚本默认不能直接运行
懂脚本的童鞋都不会轻易运行看不懂的脚本，对不懂脚本的童鞋来说，难道看到不加密的恶意脚本他就不会运行吗？
这个加密可逆，我也分享了解密工具，你还说三道四，如此以小人之心揣度他人，难道是君子所为？
如果只是用来解决问题的脚本，完全不需要考虑可读性；至于用来交流的脚本，正常人会闲得蛋疼把它加密？
虽然我觉得没什么必要，但你以为没有这个工具，脚本就不能加密了吗？
复制代码

成天损人利己，发帖完全不顾虑别人，原来你是好人？
技术分能反应热心程度，我注册三年半技术分 446；你当版主差 3 天就整一年了，技术分什么时候能破 30？
我上任前 5 个月，论坛总发帖量均在历史最高线上徘徊；你上任第一个月，论坛月份流量暴跌 2/3，其后一路走低，什么原因？
你来的时候，我跟贴欢迎，这有先入为主的偏见吗？
起争端时，你发出有看点的帖子，我仍表示赞同并加分（敢说没有？），敢问这是对事还是对人？
我删过你一贴，但早有警告，再犯方删；你删我帖子的时候，事先放过半个屁没？
我特么都还没用权限，你就可怜巴巴装受害群众，你删意见不合的帖子时哪里像百姓了？
我特么要不是州官早被你封了好吗，你以为封 Tuberose 我看不到？贼喊捉贼，还要不要脸？
别人跟帖发别的脚本就视为挑衅，如此有罪推定，到底是谁心理阴暗？
整天说这个吃便说那个吹牛x，这个贼那个怪的，骂人都骂得这么没档次没创意，难道这就是文明的象征？
整天这个宗那个教，这里炼器那里炼丹的，您是真道长呢？还是网络小说看得脑子烧了呢？
说话断句奇特，哪里人都不像，有点梨花体的味道，还看不上文言文，难道兄台这腔调是先进的后现代印象风格？
说大话跟放屁一样轻松，整天“其他语言做不到”，敢问你掌握了多少种语言？“有理有据”在哪？
为了迎合一个语言或特定版本，叫人换系统、装运行库，这到底是谁脑子有坑？
你五十几行的脚本，用其他工具只要敲几十个字，且运行效率更高，那你还得瑟个啥？你以为删贴就能逃避现实？
一个用 shell 的人，对其他语言和工具如此排斥，shell 的威力你能用出几分？
你有些脚本用的是苯办法我会乱说？shell 特有的技巧都不懂，只会堆砌函数和方法当普通脚本用，这与工匠何异？一点创意都没有，powershell 在你手上还有毛发展？
说我分享的东西没用，敢情你的脚本销路很好？算了吧，又臭又长的，powershell 的简洁优点都被你整没了，你到底理解 powershell 的存在的意义吗？
你说我不会发帖，自己却是废话比代码多得多（敢说没有？），敢情你老师教了你发帖和 powershell，却没教你怎么做人？
复制代码

“其他任何语言都做不到” ---- 再问一句，你懂几种语言、到什么程度，请报上来，不懂任何语言，请闭嘴。我为什么总记着这事，是因为这句话太经典了，怎么滴，敢说不敢认？
“awk，sed，编程估计累死你，另外效率也不可能好”  ---- 艹，你用 awk/sed 写过几条代码？难得一见的极品人物，给大师跪了
“做的估计也是破烂”  ----- 尼玛见都没见过就能下结论，真是高明到家了，可以去炒股了
“谁若能证明，我就去了“其他语言做不到”这几个字” ---- 立论原来可以如此随意，竟然连证明都要靠别人，你到底写过论文吗？提出论点要有理有据，不然怎么有脸说出来，让被别人挑刺的只是其中的漏洞而已。我若说你脑子有坑，请剖开来举反例给我看，最好还能尝一尝看是不是注了水鼓大的
复制代码

“一个帖子是一个完整的东西” ---- 那你特么的干嘛不在原帖回复还要另发一贴？熊孙子，这不是自相矛盾吗？
“你写贴要么没【头】，要么【尾巴】想强制接到别的帖子上去” ---- 不欺负你，就拿本帖与 http://bbs.bathome.net/thread-30484-1-1.html 这个帖子相比，到底是谁的帖子只字不提代码的用途？
说我不会发帖，莫非你个从qq群过来的家伙在大学是读发帖专业的吗，百度 powershell传教士 搜到的链接除了这里还有哪里？老子贴吧/论坛资历大死你，论坛发帖要一分为二，解决问题的时候，给的东西越简单越好，就算整一个手册出来用户会看么？用来讨论的东西，则要卡在讨论者的理解水平上，太深则无法交流，太浅就是浪费时间，所以我分享东西的时候只把简短的用法示例出来，至少先让人用上最基础的功能，别人若有兴趣研究大可自行翻阅源码或手册，这样帖子才不会长得让人找不到想要的东西。这特么难道不正是 powershell 里 help 和 help -full 的区别吗？
复制代码

论坛右下角“论坛统计”链接，基本概况 和 发帖量记录 就是
自己看好了，少特么诽谤我瞎掰
复制代码

得了吧，你对骂你的人扣分、删帖、屏蔽、封禁，哪个假公济私的龌醝事没干过？
我在那里加分确实不合适，但我的巡查权限无法加 pb，又不想回帖被你@，就在注释里消遣几句，请告诉我，这样的情况有什么其他的办法？
若因为言语过激要扣 pb 你早该清零了，这次明摆着是你胡说八道在先，他们出言不逊在后，该扣你也扣了，没扣你就相当于加分了，还叽歪个毛？你说此处加分不公平是事实，所以我把加分都撤销，再给你补足扣分，版主骂人双倍扣分应不应该？这可是你自己要求的，别又说我欺负你
技术分绝大多数都是提问者和站长加的，水平和活跃度都摆在那里，他们几个哪个不比你强？技术分是否公平，你爱质疑请自便。
说这不公那不公，又提不出建设性的改进意见，这样的人矫情不矫情
因为很讨厌一上论坛就看到你，我大概有半年没来，新增的技术分还是比你多得多，你这一年到底解决了几个问题？都用来口水了吧？
vbs、js 等脚本乃至 linux shell 都在这里和批处理相处融洽，对 powershell 命令行又何必戴有色眼镜？你现在的处境难道不是自己一手促成的？
一人指责，或者有失偏颇，千夫所指，必有不足之处。
复制代码

卧槽，你顶楼说 385MB 的文件用 powershell 需要 36分钟，我回复中 800MB 文件用 gawk 处理几乎 1 秒一个，这差了两千倍的用时还不能说明问题，我用的难道能是天河二号？整天要 pk，输了又不认账，删帖不是心虚吗？
复制代码

论某个多进程处理脚本的帖子里，你不用 -f 我可以理解为增强可读性，但每行一个 | Out-Null 摆明了就是外行所为，以前的帖子也有几处可笑的地方，比如回车符和换行符都分不清楚
还猪都懂改，我想你可能也就是猪的水平
供人学习的代码，不用 alias 可以理解，但该用 for 却不用的脚本看了不倒胃？
真要让人看懂代码，规范的格式、详细的注释比你说的那些旁门左道靠谱多了
复制代码

“仙”我勉为其难且战战兢兢笑纳了，“女”可不敢当，你爹什么性别，我就是什么性别，倒觉得你要是个妹纸估计要当剩斗士
恶魔、仙女什么的，好像没人提过吧，某人又开始在意淫的世界里自由飞翔了，如此杯弓蛇影风声鹤唳草木皆兵，您的神经病已经到了一个前无古人的境界
复制代码

你所谓的“靠谱解决方案”就是生病的时候，克隆一个身体换脑袋吗？
我尽自己所学帮助别人是一种快乐，学脚本也有了实在的意义，而你整天要和人pk，那么学脚本到底图个啥？
不晓得您这么癫狂是有什么底气，国际认证软件工程师？非物质文化遗产传承人？国家级编程大师？一个没来头没水平还没教养的莫名其妙的家伙，别人为什么一定要回应你的挑衅？
复制代码

再次说明某人发帖的动机是为了恶心人而非解决问题，既然此路不通，那么换个方式达到他的目的就行了，莫非你是一条路走到黑的死脑筋？
复制代码

这个我从未否认，要是新的不如旧那就不正常了，但也要看用途，事实是目前 ps 不能代替 cmd，理由如下：
1、windows 系统上应该是都有 cmd.exe 或 command.com，powershell 覆盖率目前还不足以代替 cmd，且依赖 .net 运行库
2、.ps1 默认无法直接运行，还需要多一个修改执行策略的步骤，.bat 却无此障碍
3、powershell 启动慢、资源占用也不低，所以虽然本机有 powershell，我还是优先使用秒开的 cmd，我有试过在 cmd 里都把一行 sed 敲完了，powershell 才慢吞吞地加载完毕
4、powershell 对第三方工具不太友好，用管道交互时会出现各种奇葩现象，有时 sort 顺序诡异，有时处理后的宽字符会变成问号，改用 cmd 运行就很正常，在这方面没能体现出作为 shell 的黏合优势。固然在只用内部命令的那一亩三分地里是极好的，问题在于它竟然是个 shell...
所以 powershell 虽然是好东西，但目前也只是某些情况下一个不错的选择罢了，你既然自己都说“每种语言都有特长”，那我们观点是统一的，你为什么还整天一副天上地下唯我独尊的邪教模样
文本是描述信息最直观的方式，识字的人都能理解，而面向对象的简单，则要建立在对系统熟悉的基础上。你要比门槛，操作字符串才是低门槛，你敢说刚接触面向对象语言时不迷茫？为何你发帖还是用字符串而不是用对象表示出来？
但是 powershell 碰到文本处理？算了吧，powershell 不是用来干这个的
最后一点，你以为 powershell 是神器就表示你水平很高？我就呵呵了
复制代码

用其他语言半入门知识就能搞定的事，如果什么都用 powershell 完成则需要高深的知识，你说怎么选比较合理呢？
图形界面能做的事，有很多都能用 au3/ahk 能代劳，条件模拟点击还比敲代码更容易理解，那你说是查 powershell 怎么用 CLI 实现容易呢？还是掌握简单的几个鼠标键盘命令以 GUI 的方式实现容易呢？
没有合适工具的时候，我可以用其他语言编译一个第三方很容易与现有工具配合，像 powershell 这么特立独行的面对对象 shell，你 DIY 扩展了几个命令？
复制代码

这就是面对对象的思维，你已经被对象的属性惯坏了，不懂用什么技巧可以用最合理的方式避开复杂解析
复制代码

你知道“脚本小子”特指哪一类人群吗？
“脚本小子”“成为牛x的服务器管理员”这种组合简直太有喜感了
复制代码

我的观点是让专家做专业的事，能够简单达到目的，就不需要纠结技术细节，可没有说哪一个东西适用于任何领域，那种包治百病的假广告也只有奸商才会宣传
复制代码

给你说了一百遍，这是你们“Microsoft神教”发布的东西，听不懂吗？有意见去找贵教祖师爷盖茨，罪过都是他的，别特么跟我废话
复制代码

你看事情喜欢走极端，这工具有利有弊，但其弊祸害不大，不像灰鸽子那样一旦误入歧途就影响深远
凡事都有两面，义士仗剑行侠，小人横刀为寇，这是人的问题，还是工具的问题？因为空气中有 PM2.5，你就停止呼吸了吗？知道什么叫“因噎废食”吗？
重申一遍，不用这个工具还有其他方式加密脚本，但你看论坛里有几个代码是加密的，兄台如此苦苦纠缠于“加密是助纣为虐”只怕醉翁之意不在酒吧？
复制代码

1、懂脚本的人，会轻易运行看不懂的代码吗？
2、不懂脚本的人，会因为代码没有加密而不运行它吗？
3、加密手段“古已有之”，但论坛里有几个代码是加密的？
复制代码