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

kissaa

原贴：https://www.52pojie.cn/thread-641006-1-1.html

至于使用方法：将以下代码复制到txt，修改代码的路径和密码，另存为bat文件。

[Asm] 纯文本查看 复制代码

@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=[System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($pword); ^
[System.Runtime.InteropServices.Marshal]::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

@tail88   解密方法

[Asm] 纯文本查看 复制代码

//&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[i].replace(/:.+$/, '')+'%');
            var n=m[i].replace(/^%.+?:~(-?\d*).+$/, '$1');
            if(n=='')n=0;
            var str=str.replace(m[i], 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[1].replace(/\^{3}/g, '^');
    return str
}

遗失的永恒

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

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

坑爹酱、

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

司机

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

judy1511

好人啊！！！

给别人可惜了

哈哈哈，谢谢啊

sxleilong

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

春日荣荣

谢谢楼主

Ps出来的小赵

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