【你一直想要的X盘】好多问要源码的，我还是发到这里吧

kissaa 发表于 2017-9-5 14:32

原贴：https://www.52pojie.cn/thread-641006-1-1.html
至于使用方法：将以下代码复制到txt，修改代码的路径和密码，另存为bat文件。
@echo on&@endlocal&@cls
@ECHO OFF
title XPan By:愚无尽
mode con cols=55 lines=20
IF EXIST X:\NUL GOTO DELETE
IF EXIST D:\RECYCLED GOTO PS
MD D:\RECYCLED\UDrives.{25336920-03F9-11CF-8FD0-00AA00686F13}>NUL
ATTRIB D:\RECYCLED +H +S >NUL
ECHO y|cacls D:\RECYCLED /d everyone >nul
:PS
set ps="52pojie"
set "psCommand=powershell -Command "$pword = read-host 'Enter Password' -AsSecureString ; ^
$BSTR=::SecureStringToBSTR($pword); ^
::PtrToStringAuto($BSTR)""
for /f "usebackq delims=" %%p in (`%psCommand%`) do set ps=%%p
if /i "%ps%"=="52pojie" (goto START) else goto END
:START
echo y|cacls D:\RECYCLED/c /g everyone:f >nul
SUBST X: D:\RECYCLED\UDrives.{25336920-03F9-11CF-8FD0-00AA00686F13} >NUL
START X:\
GOTO END
:delete
ECHO y|cacls D:\RECYCLED /d everyone >nul
SUBST /D X:
:END
EXIT

kissaa 发表于 2017-9-6 12:19

@tail88 解密方法
//&cls&cscript -nologo -e:jscript "%~f0" "加密.bat">"$解密.txt"&pause&exit

var fso=new ActiveXObject('Scripting.FileSystemObject'),s='',key='',n=1;
var ws=new ActiveXObject('Wscript.Shell');
var f=fso.OpenTextFile(WSH.Arguments(0), 1);
while(!f.AtEndOfStream){
var line=f.ReadLine();
if(n<3){s+=line+'\r\n'}else s+=crack(line, key)+'\r\n';
n++;
}
WSH.echo(s);

function crack(str, k){
var m=str.match(/%[^%]+?:~-?\d*,1%/g);
if(m){
   for(var i=0;i<m.length;i++){
         if(!key)var k=ws.ExpandEnvironmentStrings(m.replace(/:.+$/, '')+'%');
         var n=m.replace(/^%.+?:~(-?\d*).+$/, '$1');
         if(n=='')n=0;
         var str=str.replace(m, n=='-1'?k.slice(Number(n)):k.slice(Number(n), Number(n)+1));
   }
}
//var kw=str.match(/^@set '=\^">nul&.+?&@set '=([\x20-\x7e]{294})&@.+?&@echo "$/);
var kw=str.match(/^@set '=\^">nul&.+?&@set '=(.+?)&@set.+?&@echo "$/);
if(kw)key=kw.replace(/\^{3}/g, '^');
return str
}

遗失的永恒 发表于 2017-9-5 16:12

dzc214 发表于 2017-9-5 15:53
UDrives.{25336920-03F9-11CF-8FD0-00AA00686F13} 请问这个一行里{ }中的字符是什么意思呀？

这是个特殊的系统文件夹，不信你新建个文件夹输入UDrives.{25336920-03F9-11CF-8FD0-00AA00686F13} 试下，该文件夹就会显示成一个html文档图标了，我记得搜索特殊的文件夹网上就有很多这样的文件夹了，注册表的话搜索{25336920-03F9-11CF-8FD0-00AA00686F13} 的说明是html文档

peterq521 发表于 2017-9-5 14:38

可怜啊楼主在带啊的逼迫下被迫大出血连源码都放出来了

shenbinbl 发表于 2017-9-5 14:44

坑爹酱、 发表于 2017-9-5 14:47

哈哈哈源码有了那就可以设置自己的密码

司机发表于 2017-9-5 14:52

看到源码我就嗨了去改改！

judy1511 发表于 2017-9-5 14:52

好人啊！！！

给别人可惜了 发表于 2017-9-5 15:00

哈哈哈，谢谢啊

sxleilong 发表于 2017-9-5 15:02

一个这用了批处理还用了powershell，楼主费心了。

春日荣荣 发表于 2017-9-5 15:03

谢谢楼主

Ps出来的小赵 发表于 2017-9-5 15:04

又要多吃几个鸡蛋补补了唉…………

页: [1] 2 3 4 5 6 7

吾爱破解 - 52pojie.cn's Archiver

【你一直想要的X盘】好多问要源码的，我还是发到这里吧