[Tutor] Iseng with Assembly

[nyiurmelambai]

Iseng versi bahasa assembly... sebenarnya ini proyek lama yang saya pernah publish di forum *nsav....
Program ini punya kelebihan bisa mengunci Task Manager jika tantangan belum selesai... hehehe
Disarankan compile pake masm32 gan...

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

[ditatompel]

Code:

;nasm -f elf sadisOm.asm
section .data
    man:    db `\u004B\u0065\u0072\u0065\u006E`,' ',`\xe2\x98\xba`,10
    tap:     equ $-man

section .text
    global _start

_start:
    mov eax,4
    mov ebx,1
    mov ecx,man
    mov edx,tap
    int 80h
    mov eax,1
    mov ebx,0
    int 80h

nih si om melambai...

[nanda]

Asembly tu = batch ya?

[nyiurmelambai]

(01-17-2012 08:32 AM)ditatompel Wrote:  

Code:

;nasm -f elf sadisOm.asm
section .data
    man:    db `\u004B\u0065\u0072\u0065\u006E`,' ',`\xe2\x98\xba`,10
    tap:     equ $-man

section .text
    global _start

_start:
    mov eax,4
    mov ebx,1
    mov ecx,man
    mov edx,tap
    int 80h
    mov eax,1
    mov ebx,0
    int 80h

nih si om melambai...

ngak keren2 amat sih...

(01-17-2012 09:16 AM)DC_Nanda23 Wrote:  Asembly tu = batch ya?

bedah gan... assembly itu bahasa tingkat rendah... (penjelmaan bahasa mesin gan )
kalo batch gimana jelasinya ya... klo batch itu susunan prosedur yang rutin dan sering dilakukan, biasanya untuk memanggil program dengan parameter2, sering digunakan untuk mengkompile dan melink program, baik di unix/win/dos ... contohnya make.bat di atas gan...
kalo di linux disebut bash script gan...

CMIIW

[Lyn]

gw asm yang mudeng cuman NOP ama RET

[nanda]

Tpi kok @echo off n code na mirip batch

[nyiurmelambai]

(01-17-2012 10:43 AM)Lyn Wrote:  gw asm yang mudeng cuman NOP ama RET

gue juga masih tetap terus

(01-17-2012 10:58 AM)DC_Nanda23 Wrote:  Tpi kok @echo off n code na mirip batch

wew, kayaknya terjadi kesalapahaman nie...
kalo make.bat memang batch script gan digunakan untuk memanggil masm agar mengkompile script assembly hohoho.asm jadi exe... script yang kedua yang pake bahasa assembly gan...

[nanda]

Gak mudek ak

[wahyu_devilzc0de™]

sesuatu banget kak, thx 4 share

[Super Moderator]

(01-17-2012 11:34 AM)wahyu_devilcode Wrote:  sesuatu banget kak, thx 4 share

syahrini dari ADIJAYA,wkwkwk