Membuat Key Generator ala www.reanimated-zone.co.cc

good morning!
kemaren iseng-iseng bongkar komputer lama jama masih SMP yang sudah full formated dengan system Linux, eh ketemu satu folder yang isinya tutorial-tutorial yang pernah aku posting di www.reanimated-zone.co.cc (i miss that blog) yang sekarang sudah diarsipkan oleh webhostingnya T_T
salah satu tutornya adalah membuat keyhen sederhana dengan VisualBasic, waktu itu masih pake VB 6. tutor tersebut adalah tutorial dengan program pertama yang saya buat (kira-kira pas jaman SD kelas 6 atau SMP, saya lupa, hehehe) waktu pertama kali mengenal dunia programming file-file executable (yang sekarang sudah males, dan berpindah ke web programming, ahahaha)
just leave the intro…
berikut adalah tutor asli, tanpa editan (sambil mengenang T_T)
semua tau kan apa itu keygen alias key generator?

tentunya para pengguna software pihak ke empat mengetahuinya[maksudnya software yang sudah "dimodifikasi"]

sebelum menuju ke topiknya, alangkah lebih baiknya jika anda-anda mendownload contoh keygen yang saya buat[masih sederhana]
klik disini untuk mendownload dan jalankan
rasakan dulu bagaimana taste-nya (Lupa download link-nya, maaf)
okey, stelah merasakan bagaimana rasanya…
kita ke inti dari topiknya…
1. buat satu buah textbox, dan 3 buah command button, satu untuk tombol generate, satu about, dan yang lain tombol exit
2. kemudian double klik tombol generate untuk memberinya code
3. ketik kode berikut:
Dim key As Integer
key = Int(Rnd() *5)
Select Case Key
Case 0
text1.text = “45123-4623-45263-456233″
Case 1
text1.text = “45123-4623-45263-456233″
Case 2
text1.text = “45123-4623-45263-456233″
Case 3
text1.text = “45123-4623-45263-456233″
Case 4
text1.text = “45123-4623-45263-456233″
End Select
4. doubel klik tombol exit dan beri kode “unload me” tanpa tanda petik
5. untuk kode bagian about terserah anda, karena tombol about tidaklah wajib
wew, here it is, kita bahas kode intinya:
Dim key As Integer > mendeklarasikan variabel key sebagai integer
key = Int(Rnd() *5) > artinya key dikeluarkan secara random, dan angka *5 adalah perintah “randomnya”[anda bisa menggantinya dengan *10 jika anda mempunyai case yang akan terpilih secara acak sebanyak 10 buah, jadi nilai angka dibalik tanda asterisk "*" tergantung case yang anda tulis untuk ditampilkan secara acak nantinya]
Select Case Key
Case 0
text1.text = “45123-4623-45263-456233″ >serial number dari keygen anda yang akan dikeluarkan ketika tombol generate ditekan
Case 1
text1.text = “45123-4623-45263-456233″ >serial number dari keygen anda yang akan dikeluarkan ketika tombol generate ditekan
Case 2
text1.text = “45123-4623-45263-456233″ >serial number dari keygen anda yang akan dikeluarkan ketika tombol generate ditekan
Case 3
text1.text = “45123-4623-45263-456233″ >serial number dari keygen anda yang akan dikeluarkan ketika tombol generate ditekan
Case 4
text1.text = “45123-4623-45263-456233″ >serial number dari keygen anda yang akan dikeluarkan ketika tombol generate ditekan
End Select > bagian ini berisi case-case yang akan dikeluarkan secara acak atau random
6. compile program keygen buatan anda dan rasakan taste-nya
sekian dari saya
greetz from alpheen
-= coded under VB6 =-
*untuk pemilihan jumlah case bisa lebih dari lima, tergantung yang agan-agan inginkan
go back to the intro
sebenarnya masih banyak tutor-tutor VB lainnya yang aku buat, berhubung lagi in love sama keygen, upload yang ini dulu ya, hehehe
sekian.