Flag visitor
Tampilkan postingan dengan label tips n trik. Tampilkan semua postingan
Tampilkan postingan dengan label tips n trik. Tampilkan semua postingan
27 November 2010
mau download lagu lebih cepat...?
23.54 | 
Diposting oleh
almer el hawari.blogspot.com |
by almer el hawari
di website ini, kamu bisa download lagu dengan cepat....apa lagi jika pake program download manager
tulis lagu yang kamu mau download, akan muncul judul2 lagu yang di maksud...pilih yang bitrate terbesar sesuai dengan judul lagu yang kamu cari....
website ini aku baru dapat tapi sudah mencoba download lagu yang aku cari...hasilnya lebih cepat dari 4shared versi free....tanpa akun premium...
biar gak penasaran...aku langsung kasih link nya...
klik disini:
di website ini, kamu bisa download lagu dengan cepat....apa lagi jika pake program download manager
tulis lagu yang kamu mau download, akan muncul judul2 lagu yang di maksud...pilih yang bitrate terbesar sesuai dengan judul lagu yang kamu cari....
website ini aku baru dapat tapi sudah mencoba download lagu yang aku cari...hasilnya lebih cepat dari 4shared versi free....tanpa akun premium...
biar gak penasaran...aku langsung kasih link nya...
klik disini:
Label:
daftar smiley, emotion atau emoticon facebook
by almer el hawari
Ini adalah daftar smiley, emotion atau emoticon facebook :
( Sumber : http://forantum.blogspot.com )
Ini adalah daftar smiley, emotion atau emoticon facebook :
 Angel | O:) atau O:-) |
 Confused | o.O atau O.o |
 Cry | :’( |
 Curly Lips | :3 |
 Devil | 3:) atau 3:-) |
 Sad | :-( atau :( atau :[ atau =( |
 Gasp | :-O atau :O atau :-o atau :o |
 Glasses | 8-) atau 8) atau B-) atau B) |
 Grin | :-D atau :D atau =D |
 Grumpy | >:( atau >:-( |
 Heart | <3 |
 Kiki | ^_^ |
 Kiss | :-* atau :* |
 Pacman | :v |
 Smile | :-) atau :) atau :] atau =) |
 Squint | -_- |
 Sunglasses | 8-| atau 8| atau B-| atau B| |
 Tongue | :-P atau :P atau :-p atau :p atau =P |
 Unsure | :/ atau :-/ atau :\ atau :-\ |
 Upset | >:O atau >:-O atau >:o atau >:-o |
 Wink | ;-) atau ;) |
 Putnam | :putnam: |
 Robot | :|] |
 Shark | (^^^) |
( Sumber : http://forantum.blogspot.com )
Update status Facebook via Telepon Umum, Kantor Pos, Wartel, Warnet, HP Pinjaman, Blueberry dan Kaskus
by almer el hawari
Makin kreatif aja facebook’ers sekarang.,,,,jadi makin mudah aja buat yang suka membuat status dalam hitungan detik...he he he...selamat mencoba buat kamu yg benar2 ngerasa facebookers mania....
Ternyata sekarang makin gampang kalo mau update status Facebook, ngga cuma dari via web, via koprol, via tweet deck, via web seluler, via blackberry maupun via windows mobile, tapi juga bisa melalui via telepon umum, via kantor pos, via wartel, via warnet bahkan melalui via hp pinjaman.
Udah beberapa waktu yang lalu sih tau n ngliat beberapa teman ada yang lucu-lucuan update dari tempat-tempat itu....
Ternyata jawabannya adalah Facebook Apps, silahkan pergi ke tempat-tempat dibawah ini dan update status facebook mu dari sana, coba saja biar tambah pengalaman aneh...mumpung lagi isengnya kumat...paling tidak isengnya berbuah pengalaman yang menambah pengetahuan yang aneh he he he he
- Via Telepon Umum
- Via Kantor Pos
- Via Wartel
- Via Warnet
- Via Minjem HP Temen
- Via Blueberry
- Atau bisa juga dari Via Kaskus
Makin kreatif aja facebook’ers sekarang.,,,,jadi makin mudah aja buat yang suka membuat status dalam hitungan detik...he he he...selamat mencoba buat kamu yg benar2 ngerasa facebookers mania....
Status Facebook Keren Dengan Animasi
by almer el hawari
kamu pernah melihat seseorang mengupdate status dengan gambar atau emotion yang lucu-lucu, biasanya itu dilakukan dengan plungin tetapi sekarang dilakukan dengan sangat mudah dan tanpa plungin. Dan yang lebih bagus lagi, teman kita dapat melihat emotion tersebut tanpa menginstal plungin atau aplikasi apapun. Sekarang kamu dapat membuat status yang lebih menarik dan berwarna dengan aplikasi ini, aplikasi ini namanya Facade. Agak aneh namanya saya juga kurang mengerti maksudnya, tapi yang jelas aplikasi ini sangat menarik.
Dibawah ini adalah contoh status keren dengan Animasi, gambar atau emotion:
Cara membuat Status facebook dengan animasi, gambar atau emotion lucu tanpa plungin adalah sebagai berikut:
Nah, silakan dicoba.....
Facade: Status Facebook Keren Dengan Animasi
Dibawah ini adalah contoh status keren dengan Animasi, gambar atau emotion:
Cara membuat Status facebook dengan animasi, gambar atau emotion lucu tanpa plungin adalah sebagai berikut:
- 1. Sobat harus login dulu di Facebook
- 2. Lalu silakan buka aplikasi Facade.
- 3. Izinkan aplikasi tersebut.
- 4. Lalu akan terbuka halaman baru, apabila animasi atau emotion belum muncul klik "Toggle Emoji".
- 5. Buat status dengan emotion-emotion tersebut.
- 6. Klik Share.
Nah, silakan dicoba.....
19 November 2010
Tips mencari duit online dengan CPM
by almer el hawari
CPM (Cost per Mille) adalah singkatan yang dari bahasa asing yang dalam bahasa Latinnya Mille berarti 1000, CPM merupakan jaringan periklanan di mana publisher menerbitkan iklan dan di bayar per 1000 pengunjung tanpa mengklik iklan yang ditampilkan. Sistem kerjanya juga gampang kita hanya memasang banner iklan ke dalam blog atau website yang kita punyai.
Dalam penerapannya masing - masing CPM memiliki aturan pembayaran sendiri sendiri, besarnya pembayaran tergantung layanan CPM mereka. Untuk bergabung di dalam layanan tersebut kita musti tahu dulu syarat syarat yang mereka ajukan sehingga tidak merugikan bagi si pemasang iklan CPM itu sendiri.
Contoh perhitungan pembayaran CPM :
misal layanan CPM memberikan rate CPM sebesar 4$
total pengunjung 10.000 maka perhitungan CPM :
4$(10.000/1.000) = 40$
Ini sangat menguntungkan apabila mempunyai blog atau website dengan trafik yang tinggi, sehingga pembayaran bisa dilakukan dengan cepat. Timbul pertanyaan apakah dalam 10.000 tersebut akan mendapatkan dolar sebesar itu, jawabannya belum tentu karena banyak sekali layanan CPM yang meminta trafik kunjungan untuk beberapa negara tertentu saja sehingga pembayaran tidak bisa sebesar itu.
Beberapa tips berikut untuk mendapatkan trafik dari luar agar bisa mendapatkan duit online dari CPM :
1. Gunakan bahasa asing dalam hal ini bahasa Inggris tentunya.
2. Mengetahui keyword yang paling banyak di cari yang datangnya dari luar.
3. Usahakan agar pengunjung bisa berlama-lama berkunjung ke blog atau website yang kita punyai.
4. Cari referal yang datangnya dari luar sehingga memungkinkan pembayaran CPM lebih besar.
5. Jangan putus asa teruslah berjuang untuk mendapatkan trafik yang baik.
Selamat mencoba, wish u luck.
=======oo=================
Paid to Promote terbukti membayar
Bisnis online kali ini membahas tentang CPM yang memang membayar walaupun nilainya kecil tapi kesempatan meraih dolar cukup besar. Program CPM Paid to Promote ini memang membutuhkan trafik kunjungan dari luar sehingga bila mempunyai blog dengan trafik yang masuk dari luar sangatlah baik sehingga pembayaran (payout) bisa dilaksanakan tiap 2 kali dalam sebulan yaitu pada tanggal 15 dan 30 tiap bulannya dengan minimal payout sebesar 0.1 dolar, nilai rate nya adalah 4 dolar per mille.
Trafik kunjungan yang dikehendaki yaitu : Amerika Serikat, Kanada, Australia, Inggris, Austria, Belgia, Denmark, Finlandia, Francis, Jerman, Islandia, Italia, Belanda, New Zealand dan Spanyol.
Untuk pembayaran Paid to Promote menggunakan Paypal dan Webmoney, saya sarankan baiknya menggunakan Paypal untuk menerima pembayaran karena menggunakan Webmoney dikenakan potongan sebesar 10%. Pembayaran dilakukan secara otomatis dan langsung di transfer ke akun Paypal, Paid to Promote bisa juga di referkan ke orang lain atau dengan pendapatan di level 1 sebesar 10% dan di level 2 sebesar 5%, jadi semakin banyak referal semakin banyak dolar yang bisa anda dapatkan.
Contoh perkiraan pendapatan yang ada raih dengan 10 referal aktif :
di level 1
0,1$ x 10% = 0,01 / referal
10 referal x 0,01 = 0,1$
di level 2
5% x 0,1$ = 0,005
10 referal bisa mengajak 10 referal aktif di bawahnya
10 x 10 = 100 (referal level 2)
100 (referal level 2) x 0,005 = 0,5$
bayangkan bila ada banyak referal di level 1 dan 2 yang aktif. Tertarik untuk bergabung !!! silahkan kunjungi situsnya langsung disini atau bisa juga klik banner di bawah ini :
bukti pembayaran Paid to Promote :
Saya sudah 2 kali mendapat bayaran dan Paid to Promote memang betul membayar alias tidak scam, photo diatas merupakan contoh pembayaran ke akun Paypal saya.
Perlu di ingat setelah melakukan pendaftaran maka yang harus dilakukan adalah melekatkan kode verifikasi ke dalam blog atau web yang diberikan oleh Paid to Promote untuk di selipkan antara <body>kode_verifikasi</body> agar bisa menghasilkan duit online nantinya.
lihat contoh gambar
kode tidak bisa langsung ditempatkan ke dalam body template kode tersebut harus di encode dulu, cara paling mudah untuk encode silahkan kunjungi situs ini, kopi dan paste kode paid to promote dan klik encode, salin semua kodenya dan masukan ke template di atas kode </body>
====================oooo==========================
Program CPM sekaligus Pay Per Click dari Branchr.com
Beberapa waktu yang lalu pernah di bahas tentang Tips mencari duit online tentang Tips mencari duit online dengan CPM di posting blog ini terdahulu dan program Paid to Promote terbukti membayar, nah saya akan memperkenalkan program yang tak kalah menariknya dengan Paid to Promote. Adalah Branchr sebuah program buat menghasilkan duit online tanpa modal sekalipun hanya cukup pasang banner iklannya dan akan dibayar atas kunjungan layaknya CPM selain itu Branchr.com juga memberikan pembayaran apabila ada iklan yang di klik, Nah jadi sifatnya branchr tidak hanya menghasilkan dollar gratis kepada si empunya blog yang berasal dari kunjungan sekaligus juga menghasilkan dollar dari per klik iklan (Pay Per Click) yang ditampilkan.
Tertarik dengan bisnis online ini yang memberikan dollar gratis dari kunjungan dan klik iklan akan di bayarkan dengan bermodalkan blog atau web yang anda miliki, silahkan kunjungi situsnya langsung ke Branchr.com atau bisa klik banner di bawah ini, selamat berburu dollar gratis..tis..tis..
Tertarik dengan bisnis online ini yang memberikan dollar gratis dari kunjungan dan klik iklan akan di bayarkan dengan bermodalkan blog atau web yang anda miliki, silahkan kunjungi situsnya langsung ke Branchr.com atau bisa klik banner di bawah ini, selamat berburu dollar gratis..tis..tis..
S E M O G A B E R M A N F A A T.....................
18 November 2010
Tips dan trik cara menang main poker di facebook
Sekarang dunia internet sudah mulai hebat ya, itu terbukti, karena kita tidak usah susah payah main poker di tempat nya secara fisik, namun kita dapat main poker secara online lewat internet, salah satuu nya texas holdem poker facebook. Memang bukan duit beneran, tapi chips nya bisa dijual koq, dan banyak juga peminat nya di internet, bisa di cek koq di forum kaskus
. Nah, sekarang saya mau memberi tau tentang bagaimana cara memenangkan main texas holdem poker di facebook.....yang penting inget satu hal, jangan terlalu keranjingan maen ya
.Ok mulai share ya cara nya.
1. Peluang dalam bermain texas holdem poker di facebook dapat kita perhitungkan mulai dari gerak-gerik lawan yang mencurigakan, secara logika begini, kartu jelek= takut, kartu bagus = berani, cukup itu saja yang jadi patokan
.2. Maen nya dikit-dikit aja
, memang kita biasa nya kalo udah menang di texas holdem facebook pasti akan merasa sedang beruntung dan ingin pasang banyak, tetapi sebenarnya kita harus nya jangan terpancing akan hal itu, alon-alon asal kelakon .3. Buat pola cara bermain, supaya lawan gak bis baca cara kita, misal cara bermain kita, gertak, gak, gak, gak, gertak, gak, gak, gak, jadi lawan juga bingung menetukan pasang atau tidak
.4. Posisi duduk saat kita bermain, kalo kita lebih deket sama dealer maka kita tidak dapat mengetahui apa yang dilakukan lawan kita sebelumnya, jadi mesti nya kita duduk semakin jauh posisi nya dari dealer kita, agar kita dapat melihat perilaku lawan kita.
5. Mengingat kebiasaan rival kita, nah, dengan ini kita juga bisa mengambil keputusan.
Ok, cukup 5 itu saja, dan saya INGATKAN sekali lagi, jangan anggap maen texas holdem poker sebagai ajang cari duit, soalnya itu judi!, dan kita dilarang untuk melakukan hal itu. ini hanya sebuah cara bermain game-game online biasa pada umumnya.
ucapin makasih dong buat poker mania yg baca tipn ini...
(always maksa...wkwkwkwkwkwk)
by almer el hawari
" say thanks if you already feel the benefits and advantages received when reading the posts on my blog with like or follow in my blog ... thanks to you who understand grateful ... "
4shared Link Download Generator
by almer el hawari
Anda ingin bisa mendownload cepat dari 4shared + bisa Resume ?. Pakailah Link Download Generator. Ini semacam rapidleech tapi beda. Kalau rapidleech prinsipnya misal dari 4shared didownload dulu ke hosting rapidleechnya baru kita download. Jadi bisa diresume dan lebih cepat. Tapi kalau ini link generator. Prinsipnya ngubah-ngubah link supaya bisa jadi premium.
Sudah pernah aku coba, dan lumayan juga. Terbukti bisa diresume dan lebih cepat. Langsung saja ini linknya : 4shared Link Download Generator. Cara pakainya :
Sebenarnya prinsipnya gampang. Hanya menambahkan kode “?dsid=JCIYITKNJWGBIHIHJGJCHWKSKLKKJWIYIHHNIAJKIPITJFKJIVIRIWIRIGJUGFGHIEICIIJEKTKPKR” setelah url downloadnya. Misalnya url yang ingin kita download http://www.4shared.com/file/xpA3CEdL/TuneUp_Utilities_2010_Final.htm, maka kalau kita klik download dan menunggu waktu delaynya akan muncul tulisan “Download File Now”Dan jika kita klik kanan dan copy link locaton, maka url yang kita dapat adalah “http://dc168.4shared.com/download/xpA3CEdL/TuneUp_Utilities_2010_Final.zip?tsid=20100707-003022-9fd79aec”, prinsipnya adalah menghapus bagian belakang, jadi urlnya menjadi http://dc168.4shared.com/download/xpA3CEdL/TuneUp_Utilities_2010_Final.zip dan tambahkan kode itu tadi. Jadi url premium setelah digenerate menjadi “http://dc168.4shared.com/download/xpA3CEdL/TuneUp_Utilities_2010_Final.zip?dsid=JCIYITKNJWGBIHIHJGJCHWKSKLKKJWIYIHHNIAJKIPITJFKJIVIRIWIRIGJUGFGHIEI CIIJEKTKPKR”
Kalau url yang sudah kita edit itu kita buka maka kita bisa mendownload file itu lebih cepat dan bisa diresume selayakya menggunakan account 4shared premium.
Sudah pernah aku coba, dan lumayan juga. Terbukti bisa diresume dan lebih cepat. Langsung saja ini linknya : 4shared Link Download Generator. Cara pakainya :
- Misal yang akan didownload adalah http://www.4shared.com/file/xpA3CEdL/TuneUp_Utilities_2010_Final.htm, maka buka saja 4shared link generatornya.
- Masukkan link itu kedalan form yang ada.
- Klik generate di situ. Dan download deh filemu.
Sebenarnya prinsipnya gampang. Hanya menambahkan kode “?dsid=JCIYITKNJWGBIHIHJGJCHWKSKLKKJWIYIHHNIAJKIPITJFKJIVIRIWIRIGJUGFGHIEICIIJEKTKPKR” setelah url downloadnya. Misalnya url yang ingin kita download http://www.4shared.com/file/xpA3CEdL/TuneUp_Utilities_2010_Final.htm, maka kalau kita klik download dan menunggu waktu delaynya akan muncul tulisan “Download File Now”Dan jika kita klik kanan dan copy link locaton, maka url yang kita dapat adalah “http://dc168.4shared.com/download/xpA3CEdL/TuneUp_Utilities_2010_Final.zip?tsid=20100707-003022-9fd79aec”, prinsipnya adalah menghapus bagian belakang, jadi urlnya menjadi http://dc168.4shared.com/download/xpA3CEdL/TuneUp_Utilities_2010_Final.zip dan tambahkan kode itu tadi. Jadi url premium setelah digenerate menjadi “http://dc168.4shared.com/download/xpA3CEdL/TuneUp_Utilities_2010_Final.zip?dsid=JCIYITKNJWGBIHIHJGJCHWKSKLKKJWIYIHHNIAJKIPITJFKJIVIRIWIRIGJUGFGHIEI CIIJEKTKPKR”
Kalau url yang sudah kita edit itu kita buka maka kita bisa mendownload file itu lebih cepat dan bisa diresume selayakya menggunakan account 4shared premium.
cara membuat keygen software PC
by almer el hawari
sebenarnya pertanyaan ini nggak perlu saya jawab, karena saya yakin 98% pengguna komputer , pasti pernah melihat, memakai atau merasakan yang namanya keygen!.
Baiklah , lebih baik kita mulai tutorial kracking kita.
kracking Start
Sebelum kita mulai saya harus minta ma’af dulu pada Khaled Mardam-Bey, karena saya akan menggunakan aplikasi beliau untuk eksperimen kita kali ini. Untuk contoh saya hanya akan menjadikan aplikasi mIRC sebagai korban.
Alat-alat yang perlu kita gunakan untuk kracking kita adalah :
1.W32dasm (Wind*ws 32 Disassembly).
2.Kalkulator Wind*ws.
3.Cheat Engine (penulis pake versi 4.4), aku gak pake softice karena softice ku gak bisa jalan
di XP. Untuk download Cheat Engine: hxxp://www.heijnen1.demon.nl/
4.Aplikasi target : mIRC versi 6.16. <- Khaled I’m sory for this.
5.UltraEdit (kalo perlu)
6.Rokok 1 bngks + secangkir coffeemix panas (mm… nikmaaaatt..!!!)
Sebenarnya Cheat Engine itu aplikasi untuk mencurangi game dibuat oleh dark_byte, tapi malah saya salah gunakan untuk kracking.. he.he. karena aplikasi ini sendiri memiliki bebrapa kelebihan yang tidak dimiliki oleh program debuger lain, seperti stealth untuk mengatasi sistem proteksi anti debug. Dan yang lebih asik lagi tool ini bisa untuk bypass password pada beberapa aplikasi securtiy
Oke kita mulai aja
Instal dulu mIRC v6.16, W32Dasm dan Cheat Engine (semua kecuali kalkulator).
Setelah proses instal selesai jalankan mIRC, kamu bakalan ngeliat jendela nag (nag screen) yang menandakan bahwa aplikasinya masih versi trial 30 hari, dan mengharapkan anda untuk membelinya.
Klik “Continue”,
Pada jendela “mIRC Options” klik “Cancel”.
Klik menu “Help>Register”.
Nah kamu bisa liat jendela berisi 2 Textbox, satu untuk username dan yang satu untuk serial number.
Masukkan nama “Shu_shoe” pada “Full Name” dan masukkan “12345″ pada “Registration Code”.
Klik OK atau tekan Enter, apa yang terjadi ?
“The registration name and number you have entered are not valid. Please make sure you are entering…bla..bla..bla..”
Tulisan inilah yang muncul, didukung oleh lambang X berwarna merah. Hiks, Tenang jangan kawatir.
Sekarang jalankan Cheat Engine nya. Maka akan tampak jendela seperti ini :
Klik tombol bergambar komputer di pojok kiri atas, setelah jendela process list terlihat cari proses bernama “mirc.exe”
Setelah Cheat Engine meng-attach proses ‘mirc.exe’ langkah kita selanjutnya adalah mendebugnya dengan cara mengklik tombol “Memory view” pada Cheat Engine. tampaklah jendela berikut
Klik menu View>Enumerate Dll’s and symbol, disitu akan terlihat beberapa symbol dari “Dynamic Link Library” milik Wind*ws (DLL). Klik pada “USER32″ dan carilah fungsi “GetWindowTextA”, he..he.. pasti sulit karena gak urut pake abjad (itulah kekurangan Cheat Engine) setelah ketemu dobel klik pada fungsi tsb dan klik “Close”.
Memory Viewer akan menunjukan alamat fungsi tsb. Tekan F5 untuk membuat breakpoin, klik OK pada jendela registrasi di mIRC, gagal!. Kita coba lagi dengan fungsi lain “GetDlgItemTextA”, lepaskan dulu breakpoin pada fungsi pertama dengan cara menekan tombol F5, ngulang cari lagi deh”, setelah membuat breakpoin pada fungsi kedua, isi nama dan nomor serialnya lagi pada mIRC dan tekan tombol OK. Gagal Lagi!!!, Sial!. Karena berkali-kali gagal, kita jalankan W32Dasm, Klik menu Disassembly>Open file to disassembly… cari file mirc.exe pada direktori anda menginstal mIRC. Setelah proses loading selesai Klik menu “Search>Find text” pada jendela Find, isi teks dengan “Register…” gak pake tanda kutip (string ini aku temukan pada tubuh exenya yang aku buka pake ultraedit), Klik “Find Next” 3 kali, tekan “Page Up” 8 kali, hingga tampak :
:004C764C 8D94240C010000 lea edx, dword ptr [esp+0000010C]
:004C7653 8D4C2408 lea ecx, dword ptr [esp+08]
:004C7657 E8A4FDFFFF call 004C7400
:004C765C 85C0 test eax, eax
:004C765E 740E je 004C766E
lea edx, dword ptr [esp+0000010C] kode assembly ini akan memasukkan alamat nomor serial yang kita masukan tadi ke register EDX.
lea ecx, dword ptr [esp+08] kalo yang iniakan memasukkan alamat nama kita ke register ECX.
call 004C7400 nah! pemanggilan inilah yang akan mengkalkulasi nama dan nomor yang kita masukkan dan akan menghasilkan nilai pengembalian pada register EAX, jika nama/nomor serial valid maka register EAX akan bernilai 1, tapi kalo gak valid maka register EAX akan bernilai 0 (zero).
test eax, eax cek apakah EAX 0/1.
je 004C766E jika EAX = 0 maka lompat. Kita bisa saja melewati lompatan ini dengan cara me-NOP nya, tapi dengan cara ini akan merubah CRC dari file eksekutebelnya (krack kasar), jadi gak bagus, apalagi jika aplikasi yang akan kita krack dilengkapi sistem proteksi CRC, yang mana program gak akan jalan jika terjadi perubahan CRC!, atau mungkin kita gak bisa update karena gak pake nomor serial!, jadi kita pake cara kelemubutan aja dengan buat keygennya.
Lanjut!
Lihat pada alamat 004C7657, karena kita sudah tahu dimana alamat pengecekan nama dan serial berada, sekarang kita berpindah ke Cheat Engine, pada jendela “Memory Viewer” klik kanan pada kolom pertama,
Pada popup menu klik “Go to address”, pada jendela “Go to address” masukkan alamat yang kita dapatkan tadi yaitu “004C7657″ tanpa tanda kutip, klik “OK”, maka akan tampak :
Sekarang buat breakpoin pada alamat 004C7657 dengan menekan tombol F5, pindah ke mIRC, masukkan nama dan nomor serial, klik “OK”, proses berhenti, balik lagi ke Cheat Engine, trace masuk ke prosedur call 004c7400 dengan cara menekan tombol F7, setelah masuk coba trace over dengan menekan tombol F8 sampai terlihat
Lea esi, [eax+10] ;masukkan alamat efektif dari nomor serial yang kita masukkan ke ESI
Mov dl, [eax] ;masukkan 1 karakter dari nomor serial ke dl
Inc eax ;eax = eax+1
Test dl, dl ;apakah karakter udah habis?
Jne 004c7518 ;kalo belum lompat ke 004c7518 (looping)
Sub eax, esi ;eax kurangi esi hasilnya eax berisi jumlah karakter dari serial number yang kita masukkan atau sama dengan perintah VB len(esi)
Cmp eax, ecx ;apakah jumlah karakter
Jae 004c7532 ;lebih dari 4? Jika ya lompat ke 004c7532
Setelah kita trace over sampai sini masuklah ke alamat 004c7532 dengan menekan tombol F7, setelah masuk kita akan melihat kode berikut :
Mov ebx,[esp+10] ;masukkan alamat efektif tempat nomor serial berada ke EBX, kalo gak percaya coba trace dulu supaya kode dieksekusi trus klik kanan pada kolom sebelah bawah dan pada menu popup klik “Goto address”, ketik “ebx” (gak pake kutip) tekan enter, maka akan terlihat nomor serial yang kita masukin tadi.
Push 2d ;masukkan dalam stack nilai 2D (heksadesimal dari 45=karakter “-”)
Push ebx ;masukkan nilai EBX ke stack
Call 00570260 ;rutin untuk mengecek apakah terdapat karakter “-” pada nomor serial kita?
Ups! Ternyata harus ada tanda “-” pada nomor serialnya, mungkinkah format serialnya begini? : “12345-12345″.
Oke karena harus ada tanda “-” pada nomor serialnya maka kita harus ulangi memasukan nomor serial dengan format seperti diatas, buat breakpoin pada alamat 004C7539 biar gak trace ulang (tekan F5), tekan F9 dua kali sampai kotak dialog penolakan muncul, isi “Full Name” dengan “Shu_shoe” (gak pake kutip) dan “Registration Code” dengan “12345-12345″ (gak pake kutip), tekan Enter, proses berhenti, kembali ke Cheat Engine, tekan F9
Mov esi,eax
Add esp, 08
Test esi,esi
Je 004c7525
Setelah kode ini dieksekusi register ESI akan berisi alamat karakter “-” pada nomor serial yang kita masukkan tadi.
Push ebx ;masukkan nilai ebx ke stack
Mov byte ptr [esi],00 ;ganti karakter “-” dengan null byte
Call 00570543 ;rutin ini akan menyimpan serial pertama kita
Add esp,04
Mov byte ptr [esi],2d ;kembalikan karakter “-”
Inc esi ;esi+1
Mov ebp,eax
Cmp byte ptr [esi],00 ;apakah ESI sudah menunjuk pada akhir serial?
Je 004c7525 ;jika ya lompat ke 004c7525
Psuh esi ;masukkan nilai ESI ke stack
Call 00570543 ; gak penting
Mov ecx, edi ;EDI berisi nama kita
Add esp,04
Mov [esp+10],eax
Lea edx,[ecx+01]
Mov al,[ecx] ;masukkan 1 karakter dari nama kita ke AL
Inc ecx ; ecx=ecx+1
Test al,al ;apakah al = 0
Jne 004c7570 ;jika tidak loop!
Sub ecx, edx ;ECX kurangi EDX, hasilnya ECX berisi jumlah karakter dari nama kita
Mov esi,00000003 ;esi=3
Xor edx,edx ;kosongkan EDX
Xor ebx,ebx ;kosongkan EBX
Cmp ecx,esi ;apakah jumlah karakter nama kita -
Jle 004c75a8 ;kurang atau sama dengan 3 ? (len(nama) <= 3) jika ya lompat!
Karena jumlah karakter nama kita lebih dari 3 maka nggak akan terjadi lompatan ini.
Trace terus (ingat pake F7 jangan pake F8), pada jmp 004c7590 kita akan melompat pendek, Setelah lompat kita mendarat pada kode berikut:
Movzx eax,byte ptr [esi+edi] ;masukkan 1 karakter pada EAX
Imul eax, [esp+edx*4+14] ;kalikan EAX dengan…. (mungkinkah array?), coba kita tengok alamat ESP, apakah ada nilai ajaib disitu?, caranya klik kanan pada kolom sebelah bawah dan pilih “Goto address”, ketik “esp+edx*4+14″ (gak pake kutip) tekan enter.
JRENG!!!
He..he..he…, ternyata dugaanku benar lihat pada gambar diatas, itu adalah array! Yang berisi nomor ajaib, nah!, sekarang kita butuh kalkulatornya Bill untuk meng-convert nilai heksadesimal ke nilai desimal, (Bill pinjem kalulatornya dong!), pada kalkulator klik Menu “View>Scientific”, pilih radio button “Hex”, masukkan nilai ajaib dan pindah radio button-nya ke “Dec” maka kita dapat mengetahui nilai desimalnya:
Konvertasi nilai hex ke dec pada array diatas adalah:
HEX : 0B 06 11 0C 0C 0E 05 0C 10 0A 0B 06 0E 0E 04 0B 06 0E 0E 04 0B 09 0C 0B 0A 08 0A 0A 10 08 04 06 0A 0C 10 08 0A 04 10
DEC : 11 6 17 12 12 14 5 12 16 10 11 6 14 14 4 11 6 14 14 4 11 9 12 11 10 8 10 10 16 8 4 6 10 12 16 08 10 4 16
Ternyata nomor ajaib itu ada 39 buah terangkum dalam tabel array.
Jadi perintah Imul eax, [esp+edx*4+14] sama dengan perintah pada VB :
Asc(Mid$(ESI,X,1)) * NomorAjaib(EDX)
He..he..he.. Algoritma yang sederhana bukan?, oke, isep dulu rokoknya ah…
Sampai sini saya sudah melihat titik terang. Lanjut!
Add ebx,eax ;tambah EBX dengan nilai hasil pengalian pada EAX
Inc edx ;EDX ini adalah counter
cmp edx,26 ;apakah sudah berputar sebanyak 38 kali? (kok 38 bukan 39?, ya karena array pertama dibaca mulai dari 0)
jle 004c75a3 ;jika kurang atau sama dengan 38 lompat!
Xor edx,edx ;tapi jika udah lebih dari 38 set EDX jadi 0 (balik ke nomor ajaib pertama)
Inc esi ;tambah esi dengan 1 (karakter selanjutnya)
Cmp esi,ecx ;apakah karakter udah habis?
Jnge 004c7590 ;jika belum balik lagi (loop! Sampe karakter habis)
Nah sampe sini pasti kita sudah paham maksud kode diatas, jadi ilustrasinya kira-kira begini:
Nama -> pisahkan serial jadi dua bagian dengan format 00000-00000 -> kalkulasikan bagian pertama -> kalkulasikan bagian kedua-> samakan nomor serial yang kita masukkan dengan hasil kalkulasi pada EBX -> kesimpulan (valid/invalid code).
nah sekarang kita buat key generatornya, mau dibuat pake apa? Tenang jangan panik dulu aku gak akan buat pake Assembly kok, kita buat pake VB aja yang mudah. Yup!, kita mulai aja.
Siapkan satu buah TextBox dan satu CommandButton lalu ketikan source code berikut :
——————-[CUT HERE]————————————————-
Option Explicit
Private Sub Command1_Click()
Dim NomorAjaib(38) As Long
Dim EDX, EAX As Long
Dim Bagian1, Bagian2 As Long
Dim X As Long
‘nomor-nomor ajaib kita isikan kedalam array
NomorAjaib(0) = 11: NomorAjaib(1) = 6:
NomorAjaib(2) = 17: NomorAjaib(3) = 12
NomorAjaib(4) = 12: NomorAjaib(5) = 14:
NomorAjaib(6) = 5: NomorAjaib(7) = 12
NomorAjaib(8) = 16: NomorAjaib(9) = 10:
NomorAjaib(10) = 11: NomorAjaib(11) = 6
NomorAjaib(12) = 14: NomorAjaib(13) = 14:
NomorAjaib(14) = 4: NomorAjaib(15) = 11
NomorAjaib(16) = 6: NomorAjaib(17) = 14:
NomorAjaib(18) = 14: NomorAjaib(19) = 4
NomorAjaib(20) = 11: NomorAjaib(21) = 9:
NomorAjaib(22) = 12: NomorAjaib(23) = 11
NomorAjaib(24) = 10: NomorAjaib(25) = 8:
NomorAjaib(26) = 10: NomorAjaib(27) = 10
NomorAjaib(28) = 16: NomorAjaib(29) = 8:
NomorAjaib(30) = 4: NomorAjaib(31) = 6
NomorAjaib(32) = 10: NomorAjaib(33) = 12:
NomorAjaib(34) = 16: NomorAjaib(35) = 8
NomorAjaib(36) = 10: NomorAjaib(37) = 4:
NomorAjaib(38) = 16
‘jumlah karakter nama minimal 4 karakter
If Len(Text1.Text) < 4 Then
MsgBox “Nama minimal 4 karakter!”
Text1.SetFocus
Exit Sub
End If
EDX = 0 ‘xor edx,edx
‘buat nomor serial untuk bagian pertama dulu
For X = 4 To Len(Text1.Text)
EAX = Asc(Mid$(Text1.Text, X, 1)) * NomorAjaib(EDX)
Bagian1 = Bagian1 + EAX
EDX = EDX + 1
If EDX > 38 Then EDX = 0
Next X
EDX = 0
EAX = 0
‘buat nomor serial bagian kedua
For X = 4 To Len(Text1.Text)
EAX = Asc(Mid$(Text1.Text, X – 1, 1)) * Asc(Mid$(Text1.Text, X, 1))
Bagian2 = Bagian2 + EAX * NomorAjaib(EDX)
EDX = EDX + 1
If EDX > 38 Then EDX = 0
Next X
‘hasil kalkulasi tampilkan pada msgbox
MsgBox “Nomor serial loe : ” & Trim$(Str$(Bagian1)) & “-” & Trim$(Str$(Bagian2)), , “mIRC 6.16 KEYGEN”
End Sub
——————-[AEH]————————————————-
Setelah dikompil coba jalankan dan masukkan nama, setelah itu masukkan nama dan nomor serial pada jendela “Registration” mIRC, Klik “OK” dan…
like my post if you reading my post........
Baiklah , lebih baik kita mulai tutorial kracking kita.
kracking Start
Sebelum kita mulai saya harus minta ma’af dulu pada Khaled Mardam-Bey, karena saya akan menggunakan aplikasi beliau untuk eksperimen kita kali ini. Untuk contoh saya hanya akan menjadikan aplikasi mIRC sebagai korban.
Alat-alat yang perlu kita gunakan untuk kracking kita adalah :
1.W32dasm (Wind*ws 32 Disassembly).
2.Kalkulator Wind*ws.
3.Cheat Engine (penulis pake versi 4.4), aku gak pake softice karena softice ku gak bisa jalan
di XP. Untuk download Cheat Engine: hxxp://www.heijnen1.demon.nl/
4.Aplikasi target : mIRC versi 6.16. <- Khaled I’m sory for this.
5.UltraEdit (kalo perlu)
6.Rokok 1 bngks + secangkir coffeemix panas (mm… nikmaaaatt..!!!)
Sebenarnya Cheat Engine itu aplikasi untuk mencurangi game dibuat oleh dark_byte, tapi malah saya salah gunakan untuk kracking.. he.he. karena aplikasi ini sendiri memiliki bebrapa kelebihan yang tidak dimiliki oleh program debuger lain, seperti stealth untuk mengatasi sistem proteksi anti debug. Dan yang lebih asik lagi tool ini bisa untuk bypass password pada beberapa aplikasi securtiy
Oke kita mulai aja
Instal dulu mIRC v6.16, W32Dasm dan Cheat Engine (semua kecuali kalkulator).
Setelah proses instal selesai jalankan mIRC, kamu bakalan ngeliat jendela nag (nag screen) yang menandakan bahwa aplikasinya masih versi trial 30 hari, dan mengharapkan anda untuk membelinya.
Klik “Continue”,
Pada jendela “mIRC Options” klik “Cancel”.
Klik menu “Help>Register”.
Nah kamu bisa liat jendela berisi 2 Textbox, satu untuk username dan yang satu untuk serial number.
Masukkan nama “Shu_shoe” pada “Full Name” dan masukkan “12345″ pada “Registration Code”.
Klik OK atau tekan Enter, apa yang terjadi ?
“The registration name and number you have entered are not valid. Please make sure you are entering…bla..bla..bla..”
Tulisan inilah yang muncul, didukung oleh lambang X berwarna merah. Hiks, Tenang jangan kawatir.
Sekarang jalankan Cheat Engine nya. Maka akan tampak jendela seperti ini :
Klik tombol bergambar komputer di pojok kiri atas, setelah jendela process list terlihat cari proses bernama “mirc.exe”
Setelah Cheat Engine meng-attach proses ‘mirc.exe’ langkah kita selanjutnya adalah mendebugnya dengan cara mengklik tombol “Memory view” pada Cheat Engine. tampaklah jendela berikut
Klik menu View>Enumerate Dll’s and symbol, disitu akan terlihat beberapa symbol dari “Dynamic Link Library” milik Wind*ws (DLL). Klik pada “USER32″ dan carilah fungsi “GetWindowTextA”, he..he.. pasti sulit karena gak urut pake abjad (itulah kekurangan Cheat Engine) setelah ketemu dobel klik pada fungsi tsb dan klik “Close”.
Memory Viewer akan menunjukan alamat fungsi tsb. Tekan F5 untuk membuat breakpoin, klik OK pada jendela registrasi di mIRC, gagal!. Kita coba lagi dengan fungsi lain “GetDlgItemTextA”, lepaskan dulu breakpoin pada fungsi pertama dengan cara menekan tombol F5, ngulang cari lagi deh”, setelah membuat breakpoin pada fungsi kedua, isi nama dan nomor serialnya lagi pada mIRC dan tekan tombol OK. Gagal Lagi!!!, Sial!. Karena berkali-kali gagal, kita jalankan W32Dasm, Klik menu Disassembly>Open file to disassembly… cari file mirc.exe pada direktori anda menginstal mIRC. Setelah proses loading selesai Klik menu “Search>Find text” pada jendela Find, isi teks dengan “Register…” gak pake tanda kutip (string ini aku temukan pada tubuh exenya yang aku buka pake ultraedit), Klik “Find Next” 3 kali, tekan “Page Up” 8 kali, hingga tampak :
:004C764C 8D94240C010000 lea edx, dword ptr [esp+0000010C]
:004C7653 8D4C2408 lea ecx, dword ptr [esp+08]
:004C7657 E8A4FDFFFF call 004C7400
:004C765C 85C0 test eax, eax
:004C765E 740E je 004C766E
lea edx, dword ptr [esp+0000010C] kode assembly ini akan memasukkan alamat nomor serial yang kita masukan tadi ke register EDX.
lea ecx, dword ptr [esp+08] kalo yang iniakan memasukkan alamat nama kita ke register ECX.
call 004C7400 nah! pemanggilan inilah yang akan mengkalkulasi nama dan nomor yang kita masukkan dan akan menghasilkan nilai pengembalian pada register EAX, jika nama/nomor serial valid maka register EAX akan bernilai 1, tapi kalo gak valid maka register EAX akan bernilai 0 (zero).
test eax, eax cek apakah EAX 0/1.
je 004C766E jika EAX = 0 maka lompat. Kita bisa saja melewati lompatan ini dengan cara me-NOP nya, tapi dengan cara ini akan merubah CRC dari file eksekutebelnya (krack kasar), jadi gak bagus, apalagi jika aplikasi yang akan kita krack dilengkapi sistem proteksi CRC, yang mana program gak akan jalan jika terjadi perubahan CRC!, atau mungkin kita gak bisa update karena gak pake nomor serial!, jadi kita pake cara kelemubutan aja dengan buat keygennya.
Lanjut!
Lihat pada alamat 004C7657, karena kita sudah tahu dimana alamat pengecekan nama dan serial berada, sekarang kita berpindah ke Cheat Engine, pada jendela “Memory Viewer” klik kanan pada kolom pertama,
Pada popup menu klik “Go to address”, pada jendela “Go to address” masukkan alamat yang kita dapatkan tadi yaitu “004C7657″ tanpa tanda kutip, klik “OK”, maka akan tampak :
Sekarang buat breakpoin pada alamat 004C7657 dengan menekan tombol F5, pindah ke mIRC, masukkan nama dan nomor serial, klik “OK”, proses berhenti, balik lagi ke Cheat Engine, trace masuk ke prosedur call 004c7400 dengan cara menekan tombol F7, setelah masuk coba trace over dengan menekan tombol F8 sampai terlihat
Lea esi, [eax+10] ;masukkan alamat efektif dari nomor serial yang kita masukkan ke ESI
Mov dl, [eax] ;masukkan 1 karakter dari nomor serial ke dl
Inc eax ;eax = eax+1
Test dl, dl ;apakah karakter udah habis?
Jne 004c7518 ;kalo belum lompat ke 004c7518 (looping)
Sub eax, esi ;eax kurangi esi hasilnya eax berisi jumlah karakter dari serial number yang kita masukkan atau sama dengan perintah VB len(esi)
Cmp eax, ecx ;apakah jumlah karakter
Jae 004c7532 ;lebih dari 4? Jika ya lompat ke 004c7532
Setelah kita trace over sampai sini masuklah ke alamat 004c7532 dengan menekan tombol F7, setelah masuk kita akan melihat kode berikut :
Mov ebx,[esp+10] ;masukkan alamat efektif tempat nomor serial berada ke EBX, kalo gak percaya coba trace dulu supaya kode dieksekusi trus klik kanan pada kolom sebelah bawah dan pada menu popup klik “Goto address”, ketik “ebx” (gak pake kutip) tekan enter, maka akan terlihat nomor serial yang kita masukin tadi.
Push 2d ;masukkan dalam stack nilai 2D (heksadesimal dari 45=karakter “-”)
Push ebx ;masukkan nilai EBX ke stack
Call 00570260 ;rutin untuk mengecek apakah terdapat karakter “-” pada nomor serial kita?
Ups! Ternyata harus ada tanda “-” pada nomor serialnya, mungkinkah format serialnya begini? : “12345-12345″.
Oke karena harus ada tanda “-” pada nomor serialnya maka kita harus ulangi memasukan nomor serial dengan format seperti diatas, buat breakpoin pada alamat 004C7539 biar gak trace ulang (tekan F5), tekan F9 dua kali sampai kotak dialog penolakan muncul, isi “Full Name” dengan “Shu_shoe” (gak pake kutip) dan “Registration Code” dengan “12345-12345″ (gak pake kutip), tekan Enter, proses berhenti, kembali ke Cheat Engine, tekan F9
Mov esi,eax
Add esp, 08
Test esi,esi
Je 004c7525
Setelah kode ini dieksekusi register ESI akan berisi alamat karakter “-” pada nomor serial yang kita masukkan tadi.
Push ebx ;masukkan nilai ebx ke stack
Mov byte ptr [esi],00 ;ganti karakter “-” dengan null byte
Call 00570543 ;rutin ini akan menyimpan serial pertama kita
Add esp,04
Mov byte ptr [esi],2d ;kembalikan karakter “-”
Inc esi ;esi+1
Mov ebp,eax
Cmp byte ptr [esi],00 ;apakah ESI sudah menunjuk pada akhir serial?
Je 004c7525 ;jika ya lompat ke 004c7525
Psuh esi ;masukkan nilai ESI ke stack
Call 00570543 ; gak penting
Mov ecx, edi ;EDI berisi nama kita
Add esp,04
Mov [esp+10],eax
Lea edx,[ecx+01]
Mov al,[ecx] ;masukkan 1 karakter dari nama kita ke AL
Inc ecx ; ecx=ecx+1
Test al,al ;apakah al = 0
Jne 004c7570 ;jika tidak loop!
Sub ecx, edx ;ECX kurangi EDX, hasilnya ECX berisi jumlah karakter dari nama kita
Mov esi,00000003 ;esi=3
Xor edx,edx ;kosongkan EDX
Xor ebx,ebx ;kosongkan EBX
Cmp ecx,esi ;apakah jumlah karakter nama kita -
Jle 004c75a8 ;kurang atau sama dengan 3 ? (len(nama) <= 3) jika ya lompat!
Karena jumlah karakter nama kita lebih dari 3 maka nggak akan terjadi lompatan ini.
Trace terus (ingat pake F7 jangan pake F8), pada jmp 004c7590 kita akan melompat pendek, Setelah lompat kita mendarat pada kode berikut:
Movzx eax,byte ptr [esi+edi] ;masukkan 1 karakter pada EAX
Imul eax, [esp+edx*4+14] ;kalikan EAX dengan…. (mungkinkah array?), coba kita tengok alamat ESP, apakah ada nilai ajaib disitu?, caranya klik kanan pada kolom sebelah bawah dan pilih “Goto address”, ketik “esp+edx*4+14″ (gak pake kutip) tekan enter.
JRENG!!!
He..he..he…, ternyata dugaanku benar lihat pada gambar diatas, itu adalah array! Yang berisi nomor ajaib, nah!, sekarang kita butuh kalkulatornya Bill untuk meng-convert nilai heksadesimal ke nilai desimal, (Bill pinjem kalulatornya dong!), pada kalkulator klik Menu “View>Scientific”, pilih radio button “Hex”, masukkan nilai ajaib dan pindah radio button-nya ke “Dec” maka kita dapat mengetahui nilai desimalnya:
Konvertasi nilai hex ke dec pada array diatas adalah:
HEX : 0B 06 11 0C 0C 0E 05 0C 10 0A 0B 06 0E 0E 04 0B 06 0E 0E 04 0B 09 0C 0B 0A 08 0A 0A 10 08 04 06 0A 0C 10 08 0A 04 10
DEC : 11 6 17 12 12 14 5 12 16 10 11 6 14 14 4 11 6 14 14 4 11 9 12 11 10 8 10 10 16 8 4 6 10 12 16 08 10 4 16
Ternyata nomor ajaib itu ada 39 buah terangkum dalam tabel array.
Jadi perintah Imul eax, [esp+edx*4+14] sama dengan perintah pada VB :
Asc(Mid$(ESI,X,1)) * NomorAjaib(EDX)
He..he..he.. Algoritma yang sederhana bukan?, oke, isep dulu rokoknya ah…
Sampai sini saya sudah melihat titik terang. Lanjut!
Add ebx,eax ;tambah EBX dengan nilai hasil pengalian pada EAX
Inc edx ;EDX ini adalah counter
cmp edx,26 ;apakah sudah berputar sebanyak 38 kali? (kok 38 bukan 39?, ya karena array pertama dibaca mulai dari 0)
jle 004c75a3 ;jika kurang atau sama dengan 38 lompat!
Xor edx,edx ;tapi jika udah lebih dari 38 set EDX jadi 0 (balik ke nomor ajaib pertama)
Inc esi ;tambah esi dengan 1 (karakter selanjutnya)
Cmp esi,ecx ;apakah karakter udah habis?
Jnge 004c7590 ;jika belum balik lagi (loop! Sampe karakter habis)
Nah sampe sini pasti kita sudah paham maksud kode diatas, jadi ilustrasinya kira-kira begini:
Nama -> pisahkan serial jadi dua bagian dengan format 00000-00000 -> kalkulasikan bagian pertama -> kalkulasikan bagian kedua-> samakan nomor serial yang kita masukkan dengan hasil kalkulasi pada EBX -> kesimpulan (valid/invalid code).
nah sekarang kita buat key generatornya, mau dibuat pake apa? Tenang jangan panik dulu aku gak akan buat pake Assembly kok, kita buat pake VB aja yang mudah. Yup!, kita mulai aja.
Siapkan satu buah TextBox dan satu CommandButton lalu ketikan source code berikut :
——————-[CUT HERE]————————————————-
Option Explicit
Private Sub Command1_Click()
Dim NomorAjaib(38) As Long
Dim EDX, EAX As Long
Dim Bagian1, Bagian2 As Long
Dim X As Long
‘nomor-nomor ajaib kita isikan kedalam array
NomorAjaib(0) = 11: NomorAjaib(1) = 6:
NomorAjaib(2) = 17: NomorAjaib(3) = 12
NomorAjaib(4) = 12: NomorAjaib(5) = 14:
NomorAjaib(6) = 5: NomorAjaib(7) = 12
NomorAjaib(8) = 16: NomorAjaib(9) = 10:
NomorAjaib(10) = 11: NomorAjaib(11) = 6
NomorAjaib(12) = 14: NomorAjaib(13) = 14:
NomorAjaib(14) = 4: NomorAjaib(15) = 11
NomorAjaib(16) = 6: NomorAjaib(17) = 14:
NomorAjaib(18) = 14: NomorAjaib(19) = 4
NomorAjaib(20) = 11: NomorAjaib(21) = 9:
NomorAjaib(22) = 12: NomorAjaib(23) = 11
NomorAjaib(24) = 10: NomorAjaib(25) = 8:
NomorAjaib(26) = 10: NomorAjaib(27) = 10
NomorAjaib(28) = 16: NomorAjaib(29) = 8:
NomorAjaib(30) = 4: NomorAjaib(31) = 6
NomorAjaib(32) = 10: NomorAjaib(33) = 12:
NomorAjaib(34) = 16: NomorAjaib(35) = 8
NomorAjaib(36) = 10: NomorAjaib(37) = 4:
NomorAjaib(38) = 16
‘jumlah karakter nama minimal 4 karakter
If Len(Text1.Text) < 4 Then
MsgBox “Nama minimal 4 karakter!”
Text1.SetFocus
Exit Sub
End If
EDX = 0 ‘xor edx,edx
‘buat nomor serial untuk bagian pertama dulu
For X = 4 To Len(Text1.Text)
EAX = Asc(Mid$(Text1.Text, X, 1)) * NomorAjaib(EDX)
Bagian1 = Bagian1 + EAX
EDX = EDX + 1
If EDX > 38 Then EDX = 0
Next X
EDX = 0
EAX = 0
‘buat nomor serial bagian kedua
For X = 4 To Len(Text1.Text)
EAX = Asc(Mid$(Text1.Text, X – 1, 1)) * Asc(Mid$(Text1.Text, X, 1))
Bagian2 = Bagian2 + EAX * NomorAjaib(EDX)
EDX = EDX + 1
If EDX > 38 Then EDX = 0
Next X
‘hasil kalkulasi tampilkan pada msgbox
MsgBox “Nomor serial loe : ” & Trim$(Str$(Bagian1)) & “-” & Trim$(Str$(Bagian2)), , “mIRC 6.16 KEYGEN”
End Sub
——————-[AEH]————————————————-
Setelah dikompil coba jalankan dan masukkan nama, setelah itu masukkan nama dan nomor serial pada jendela “Registration” mIRC, Klik “OK” dan…
like my post if you reading my post........
Langganan:
Postingan (Atom)