Disarankan compile pake masm32 gan... Walau pun Ny program udah lama Thun 2008 tapi Masih Ampuh..
make.bat
Code:@echo off
if exist hohoho.obj del hohoho.obj
if exist hohoho.exe del hohoho.exe
c:\masm32\bin\ml /c /coff /nologo hohoho.asm
c:\masm32\bin\Link /SUBSYSTEM:WINDOWS /MERGE:.rdata=.text hohoho.obj > nul
dir hohoho.*
pause
hohoho.asm
Code:
; hohoho.exe
; (c)2008 nyiurmelambai
; e-mail: ewin9k@gmail.com
; web: http://ewin74.blogspot.com
; programing with MASM and RadASM
; sebenarnya ini proyek lama, sekitar taun 2008...
;
; LICENSE: GNU
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
.486 ; create 32 bit code
.model flat, stdcall ; 32 bit memory model
option casemap :none ; case sensitive
include \masm32\include\windows.inc
include \masm32\include\masm32.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\macros\macros.asm
include \masm32\include\advapi32.inc
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\advapi32.lib
.data?
buff db ?
rkey dd ?
nilai dd ?
.const
kunci dd TRUE
buka dd FALSE
;
judul db "hohoho.exe - versi assembler",0
hallo db "hallo apa kabar, ketemu lagi dengan saya :)",0
tanya db "klik yes untuk masuk dan no untuk keluar",0
psn1 db "hehe, berani juga menerima tantangan ya... salut...salut...",0
psn2 db "ketepu lagi, hahaa",0
psn3 db "rasaiin, hahaha lagi",0
psn4 db "karena kemaren cuma 100, kali ini 1000x klik",0
psn5 db "kalau mau keluar, ya....",0
psn6 db "harus klik 1000x .... :)",0
psn7 db "untuk berjaga-jaga TASK MANAGER sudah saya kunci :), jika tidak menyelesaikan tantangan ini maka TASK MANAGER tidak akan bisa dibuka!",0
psn8 db "kalau sudah selesai nanti saya buka kembali, hehe",0
psn9 db "haha, tinggal setengah... ayo semangat kliknya :)",0
psn10 db "lihat, tinggal 1/4 lebih semangatzzzzzzzz",0
psn11 db "hehe, JK, gw kan ngak tega tangan pegal klik 1000x",0
psn12 db "what, apa itu JK?????",0
psn13 db "JK aja ngak tau... buka kamus dan cari tau apa itu JUST KIDDING :(",0
psn14 db "lantaran gue baik dapat potongan 90% jadi 100x azaaaaaa",0
psn15 db "baik kan saya... hehe",0
psn16 db "jangan mencoba mengENDTASK saya, karena itu tindakan yg sia2 saja!",0
psn17 db "eitz, maap saya lupa memberikan potongan diskonnya, hehe maap. Nie tinggal 100x",0
psn18 db "tapi ingat: ORANG BIJAK BAYAR PAJAK, jadi 25% dari 100 = 25 maka 100+25=125, ngak apa2 kan?",0
psn19 db "wuiiiii, capek juga olah raga jarinya :)",0
psn20 db "senangkan? tapi....",0
psn21 db "ingat: WAKTU YANG MEMPERTEMUKAN KITA DAN WAKTU YANG MEMISAHKAN KITA",0
psn22 db "tapi jangan berkecil hati, kita akan ketemu lagi dalam v3.0",0
psn23 db "tapi kalau mau bermain lagi saya bersedia koq :)",0
psn24 db "sampai jumpa lagi ::))",0
psn25 db "eit, hampir lupa TASK MANAGERNYA saya buka kembali",0
psn26 db "c u next time",0
;programing by
about db "programing with MASM by ewin_p@telkom.net",0
;
k1 db "FATAL ERROR",0
k2 db "EEPROM BIOS HAS BEEN ERASED!!",0
k3 db "HEHEH, CUMA BERCANDA :O . SEKARANG GUE BENAR-BENAR KELUAR DAN KOMPUTER ANDA BAIK2 SAJA. GUE JAMIN.",0
;
mulai db "aya sekarang dimulai kliknya :)",0
haha db "hehehehehe",0
wee db "weeeeeeeeeee :p",0
x db " X",0
tinggal db "tinggal ",0
key db "Software\Microsoft\Windows\CurrentVersion\Policies\System",0
taskmgr db "DisableTaskMgr",0
.code
regedit proc
mov nilai,edi
;
push 0
push offset rkey
push 0
push KEY_SET_VALUE
push REG_OPTION_NON_VOLATILE
push 0
push 0
push offset key
push HKEY_CURRENT_USER
call RegCreateKeyEx
;
push 4
push offset nilai
push REG_DWORD
push 0
push offset taskmgr
push rkey
call RegSetValueEx
;
push rkey
call RegCloseKey
ret
regedit endp
pesan proc
push MB_OK
push offset judul
push esi
push 0
call MessageBox
ret
pesan endp
start:
;kunci TASKMGR
mov edi, kunci
call regedit
;
mov esi,offset hallo
call pesan
;===========
push MB_YESNO
push offset judul
push offset tanya
push 0
call MessageBox
;===========
.if eax==IDYES
mov esi,offset psn1
call pesan
.else
mov esi,offset psn2
call pesan
mov esi,offset psn3
call pesan
.endif
mov esi,offset psn4
call pesan
mov esi,offset psn5
call pesan
mov esi,offset psn6
call pesan
mov esi,offset wee
call pesan
mov esi,offset haha
call pesan
mov esi,offset psn7
call pesan
mov esi,offset psn8
call pesan
mov esi,offset mulai
call pesan
mov edi,1001 ;permulaan 1001 kali, hehe
ulang:
dec edi ;kurangi edi dengan 1
.if edi==990
mov esi,offset psn11
call pesan
mov esi,offset psn12
call pesan
mov esi,offset psn13
call pesan
mov esi,offset psn14
call pesan
mov esi,offset psn15
call pesan
.endif
.if edi==985
mov esi,offset psn17
call pesan
mov esi,offset psn18
call pesan
mov edi,125 ;kasihan, 125 aja
.endif
.if edi==80||edi==60||edi==40
mov esi,offset psn16
call pesan
.endif
.if edi==50
mov esi,offset psn9
call pesan
.endif
.if edi==25
mov esi,offset psn10
call pesan
.endif
;
push offset tinggal
push offset buff
call lstrcpy
;
invoke lstrcat,addr buff, str$(edi);hehe :)
;
push offset x
push offset buff
call lstrcat
;
mov esi,offset buff
call pesan
;
cmp edi,0
jnz ulang
;selesai
mov esi,offset psn19
call pesan
mov esi,offset psn20
call pesan
mov esi,offset psn21
call pesan
mov esi,offset psn22
call pesan
mov esi,offset psn23
call pesan
mov esi,offset psn24
call pesan
;buka TASKMGR
mov edi, buka
call regedit
;
mov esi,offset psn25
call pesan
;
mov esi,offset psn26
call pesan
invoke Sleep,10000 ;jeda 10000 ms(10 detik)
;KEJUTAN
push MB_ICONHAND
push offset k1
push offset k2
push 0
call MessageBox
;
mov esi,offset k3
call pesan
;
invoke Sleep,5000 ;jeda 5000 ms
mov esi,offset about
call pesan
;
ret
end start
{ 0 komentar... Views All / Send Comment! }
Posting Komentar