14 December 2008

WMD


WMD
Originally uploaded by aip_
The man who threw the WMD shout to Bush: "This is your goodbye gift" and on the second shot said "This is for all the widows, orphans and men killed in Iraq"...

Beauty...

27 November 2008

Olivia_06


Olivia_06
Originally uploaded by 5000km
Nice songs, nice singer... Too bad I can't afford her CDs for now

26 November 2008

29 October 2008

SCANBOOT.ASM


;--------------------------------------------------------
; Program Name : SCANBOOT.ASM (SCAN BOOT Viruses)
; Porgram Type : ANTI VIRUS
; Penulis : Kutu Busuk
; ZeroBit Tech. Research & Development.
; Sourcer : Editor TP 5.5
; Compiler : TASM 2.0 + TLINK 2.0
; Program Code : I#05.930326.930423.07.$03
;--------------------------------------------------------

ESCAPE equ 27
JmlVir equ 15
JmlID equ 3
OneRec equ 11

Code Segment
Assume CS:Code,DS:Code
Org 100h

Begin:
Jmp Start

DUMMY db 13,'** SCANBOOT.ASM - (C)93xxxx, ZeroBit **',10,1Ah

JUNK db 13,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿',13,10
db '³ Ada perubahan tidak sah... ³Ü',13,10
db 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ',7,13,10,'$'
db ' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßß',7,13,10,'$'

COPYRIGHT db 13,'** SCANBOOT R1.0 - (C)1993, ZeroBit TR&D **',10
db 13,'Masukkan disk di drive a: dan tekan tombol...$'
BATAL db 13,'Dibatalkan...' ,13,10,'$'
BACADISK db 13,'Membaca disk...' ,13,10,'$'
ERROR db 13,'Gagal akses...' ,13,10,'$'
NOVIR db 13,'Virus tak ketemu...' ,13,10,'$'
ADAVIR db 13,'Disk kena virus ' ,13,10,'$'

Ctr db 0
Drive db ?

Vir db 000, 233,172,000, 'Michael'
db 000, 235,078,144, 'DenZuko'
db 000, 235,041,144, 'Ohio '
db 103, 192,205,019, 'Hacker2'
db 043, 250,250,008, 'Hacker '
db 000, 233,013,001, 'H&Dee '
db 000, 235,064,000, 'Sapta '
db 005, 233,153,000, 'Stoned '
db 003, 051,192,142, 'Mystic2'
db 000, 233,170,000, 'VPV1 '
db 000, 235,031,144, 'Joshi '
db 043, 250,051,192, 'Robert '
db 043, 250,250,140, 'Voodoo '
db 043, 250,250,250, 'STMIK '
db 001, 233,074,001, 'Brain '

;--ofs---virus id-----name---
; 1 > panjang 1 record
; 1 2 3 4 5678901 > adalah 11 byte

Start:
mov ax,ds
mov es,ax

lea dx,COPYRIGHT ; cetak copyright
call cetak ; dan tanya drive...

xor ax,ax ; baca keyboard
int 16h

cmp al,ESCAPE ; esc ?
jne short noesc ; bukan ! lompat ke NOESC

lea dx,BATAL ; ya ! esc !
call cetak ; cetak "batal"

jmp quit ; dan keluar...

noesc:

mov ah,19h
int 21h
mov drive,al ; ambil nama drive !

lea dx,BACADISK ; cetak "baca disk"
call cetak

xor ax,ax ; reset disk drive
int 13h

mov drive,0 ; ** HANYA UNTUK TEST DRV A:. BISA DIBUANG **

mov cx,3 ; baca 3 kali jika ada error
lagi:
push cx
mov ax,0201h
mov cx,0001h
mov dl,drive
mov dh,0000h
mov bx,offset Buff ; baca boot sektor
int 13h
pop cx
jnc okay ; ada error ?
loop lagi ; ya ! baca lagi !

lea dx,ERROR ; cetak "error"
call cetak

jmp quit ; keluar

okay:
; cari virus data di Buff
mov si,offset Vir
sub si,OneRec
mov Ctr,0
virl:
inc Ctr
add si,OneRec
mov di,offset Buff
add di,[si]
inc si

mov cx,JmlID
repe cmpsb
je kena

cmp Ctr,JmlVir
je absen ; tidak sama ? tidak ada virus
jmp virl

kena:
lea dx,ADAVIR ; cetak "ada virus"
call cetak

mov dx,si ; cetak "nama virus"
inc dx
mov di,dx
add di,8
mov byte ptr [di],'$'
call cetak

jmp short quit ; keluar

absen:
lea dx,NOVIR ; cetak "takada virus"
call cetak

quit:
int 20h

cetak proc near
push ax
mov ah,9
int 21h
pop ax
ret
cetak endp

Buff db 0

Code EndS
End Begin

SLALOM R1.0


(* --------------------------------------------------- *)
(* Program Name : SLALOM R1.0 *)
(* Program Type : Game (And Demo too...) *)
(* Programmer : Kutu Busuk *)
(* ZeroBit Tech. Research & Dev. *)
(* Compiler : Turbo Pascal 5.50 *)
(* Program Code : #M04.93E02.93E04.16.$05.**** *)
(* Hardware Config. : AT/286-16MHz, CGA *)
(* --------------------------------------------------- *)

{$M 65520,0,0,R-}

Program Slalom;

Uses Dos, Crt;

Const
Passed : Boolean = False;
Noise : Boolean = True;
HighScr : Word = 0;
RgArrow = 77; { Scan Code }
LfArrow = 75;
UpArrow = 72;
DnArrow = 80;
F1 = 59;
Esc = 1;
Width = 57; { Lebar Area }
Road = 12; { Lebar Jalan }
MaxDly = 100;
MinDly = 15;
StepDly = 5; { Pakemnya Rem }

Var
Int1Ch : Pointer;
Dly,
Pos,
XPos,
Tree,
Inp,
Scan : Byte;
Quit,
RgArrP,
LfArrP,
UpArrP,
DnArrP,
F1P,
EscP,
Press : Boolean;
Dummy : Char;
H,
M,
S,
SD,
Score : Word;
Start,
Stop : Real;

Procedure KeyBoardHandler; Interrupt;
Begin
Inp := Port[$60];
Scan := Inp AND $7F;
Press := Inp < $80;
Case Scan of
RgArrow : RgArrP := Press;
LfArrow : LfArrP := Press;
UpArrow : UpArrP := Press;
DnArrow : DnArrP := Press;
F1 : F1P := Press;
Esc : EscP := Press;
End;
While KeyPressed do Dummy := ReadKey;
If EscP then Quit := True;
If F1P then
Begin
NoSound;
Noise := NOT Noise;
End;
End;

Procedure Init;
Begin
DirectVideo := False;
CheckBreak := False;
GetIntVec($1C,Int1Ch);
SetIntVec($1C,@KeyBoardHandler);
If Mem[0:$449] <> CO80 then TextMode(CO80);
TextAttr := $1F;
ClrScr;
InLine($b4/1/ { mov ah,1 ; kursor hilang }
$b9/32/32/ { mov cx,2020h }
$cd/$10); { int 10h }
Randomize;
End;

Procedure Done;
Begin
SetIntVec($1C,Int1Ch);
NoSound;
Window(01,01,80,25);
TextAttr := $1F;
ClrScr;
InLine($b4/1/ { mov ah,1 ; kursor ada lagi }
$b9/7/0/ { mov cx,7 }
$cd/$10); { int 10h }
End;

Procedure WriteXY(X, Y : Byte; St : String);
Begin
GotoXY(X,Y);
Write(St);
End;

Procedure Box(X1, Y1, X2, Y2, Attr, Back : Byte);
Begin
Window(X1+2,Y1+1,X2+2,Y2+1);
TextAttr := Back;
ClrScr;
Window(X1,Y1,X2,Y2);
TextAttr := Attr;
ClrScr;
Window(01,01,80,25);
End;

Procedure Draw;
Var X : Byte;
Begin
Port[985] := Blue; { BORDER Biru pada CGA }
Box(60,02,78,13,$2F,$07);
WriteXY(62,04,'TOMBOL-TOMBOL :');
WriteXY(64,06,#27' : KIRI');
WriteXY(64,07,#26' : KANAN');
WriteXY(64,08,#24' : GAS');
WriteXY(64,09,#25' : REM');
WriteXY(64,10,'F1 : SUARA');
WriteXY(64,11,'Esc : KELUAR');
Box(60,17,78,24,$4E,$07);
WriteXY(62,18,'® SLALOM R1.0 ¯');
WriteXY(63,20,'NTT :'); Write(HighScr:6);
WriteXY(63,21,'WAKTU :'); Write(20.0:6:1);
WriteXY(63,22,'LAJU :'); Write(0:6);
WriteXY(63,23,'NILAI :'); Write(0:6);
Window(01,01,Width+1,25);
TextAttr := $F;
ClrScr;
Window(01,01,80,25);
For X := 1 to 25 do
Begin
WriteXY(20,X,#178#178);
WriteXY(19+Road,X,#178#178);
End;
WriteXY(22,15,#234);
WriteXY(01,15,'SIAP ?');
For X := 3 downto 1 do
Begin
If Noise then Sound(1000);
Delay(100); NoSound; Delay(900);
GotoXY(01,15); Write('....',X:2);
End;
If Noise then Sound(1000);
Delay(1000);
WriteXY(06,15,'GO !!!');
NoSound;
End;

Procedure WriteInfo(Score, Gas : Word);
Var T : Byte;
Begin
T := TextAttr;
TextAttr := $4E;
GotoXY(72,21); Write(20.0 + Start - Stop:4:1);
GotoXY(70,22); Write(Gas:6);
GotoXY(70,23); Write(Score:6);
TextAttr := T;
End;

Function Enough : Boolean;
Var C : Char;
Begin
Box(07,08,51,12,$4F,$1E);
WriteXY(10,10,'ENTER UNTUK MAIN LAGI, ESC UNTUK KELUAR');
While KeyPressed do C := ReadKey;
Repeat
C := ReadKey;
Until C IN [#13,#27];
Enough := C = #27;
End;

Procedure Run;
Begin
Draw;
Dly := 50;
Pos := 20;
XPos := 22;
Score := 0;
Quit := False;
RgArrP := False;
LfArrP := False;
UpArrP := False;
DnArrP := False;
F1P := False;
EscP := False;
GetTime(H,M,S,SD);
Start := 3600*H+60*M+S+SD/100;
Repeat
GetTime(H,M,S,SD);
Stop := 3600*H+60*M+S+SD/100;
Passed := ((Stop - Start) > 20.0);
If NOT ((Stop - Start) > 19.0) then
Case Random(20) of
0..7 : If (Pos > 1) then Dec(Pos);
8..16 : If (Pos < (Width-Road)) then Inc(Pos);
End;
WriteXY(Pos,1,#178#178);
WriteXY(Pos+Road-1,1,#178#178);
Tree := Random(Width);
If (Tree < Pos) OR (Tree > (Pos+Road)) then
Begin
TextAttr := 9+Random(7);
WriteXY(Tree,1,#177);
TextAttr := $F;
End;
If UpArrP then
Begin
If (Dly > MinDly) then Dec(Dly)
End
else
If (Dly < MaxDly) then Inc(Dly);
If DnArrP AND (Dly < (MaxDly-StepDly)) then
Begin
Inc(Dly,StepDly);
If Noise then Sound(3951); { Suara Rem }
End;
WriteXY(XPos,15,#32);
If (LfArrP AND (XPos > 1)) then Dec(XPos);
If (RgArrP AND (XPos < Width)) then Inc(XPos);
InLine($B8/1/7/ { mov ax,701h ; scroll down }
$31/$C9/ { xor cx,cx }
$B6/24/ { mov dh,24 }
$B2/ $B7/$f/ { mov bh,0fh }
$cd/$10); { int 10h }
WriteXY(XPos,15,#234);
If Noise then Sound(20+(MaxDly-Dly)*2); { Suara Mesin }
Delay(Dly);
Inc(Score);
WriteInfo(Score,MinDly+MaxDly-Dly);
If Passed then
Begin
Box(17,18,40,22,$4E,$2F);
GotoXY(72,21); Write(0.0:4:1);
If Score > 200 then
Begin
WriteXY(20,20,'SUKSES ! NILAI ');
Write(Score);
End
else
WriteXY(20,20,'TERLALU LAMBAT !');
If Score > HighScr then
Begin
If HighScr <> 0 then
Begin
Sound(500); Delay(200);
WriteXY(20,21,'NILAI TERTINGGI !!!');
Sound(200); Delay(200);
End;
HighScr := Score;
End;
Sound(500); Delay(200);
Sound(200); Delay(500);
NoSound;
End;
If (Mem[$B800:(XPos-1)*2+13*160] <> 32) then
Begin
Mem[$B800:(XPos-1)*2+14*160+1] := $8C;
Box(17,18,40,22,$4E,$2F);
WriteXY(23,20,'TABRAKAN !!!');
For Dly := 1 to 150 do
Begin
If Noise then Sound(50+Random(700));
Delay(5);
End; { Mobil Meledak ! }
Quit := True;
NoSound;
End;
Until Quit OR Passed;
End;

BEGIN
Init;
Repeat
Run
Until Enough;
Done;
END.

28 October 2008

Tahun Kadaluwarsa LPG? Bukan!

Baru saja saya menerima email mengenai tabung LPG dan insiden tabung meledak yang banyak terjadi. Bahwa agar masyarakat jangan memakai tabung LPG yang tahun kadaluwarsa seperti tertera di tiap tabung tersebut.

Setelah saya cek (by the power of Google), ternyata informasi penanggalan di tiap tabung LPG berisikan waktu pembuatan.

Lengkapnya ada disini: http://www.bsn.or.id/files/sni/SNI%201452-2007.pdf

Jadi jika kita tidak mau pakai tabung LPG yang penanggalannya sudah lewat, itu malah akan berarti kita tidak dapat memakai tabung LPG manapun.

Satu pertanyaan kecil yang membuat saya berfikir, siapa juga yang menulis email tersebut pertama kali?

Satu lagi bukti bahwa asal forward email bisa berbahaya.

07 October 2008

brick walls are there for a reason

"Brick walls are there for a reason. They let us prove how badly we want things."

"Wait long enough, and people will surprise and impress you."

...from Randy Pausch's Last Lecture

Now what I want most is to spend more time with my family...

25 September 2008

404

nice 404 poetry here.

btw, happy birthday vee.

24 September 2008

68%

thanks to roy suryo, angka 68% menjadi angka keramat di jagad maya.

sebetulnya dari mana sih angka tersebut? did roy just pull that number out of his *ss?

nope, asalnya ada dari sini

22 September 2008

Work Offer Fraud

It seems that Nigerian 419 scams has been raised one level. They are somehow harvesting victim data from some employment board. Which board? I dunno yet, because the samples I am receiving are very limited.

Here you go...

04 September 2008

Buku Pelajaran Bahasa Indonesia SD Kelas 1 Catur Wulan 1

The most sacred book (for anak SD kelas 1.. apalagi yang belum bisa baca... the holiest of the holy).. hehehe

01 September 2008

24 August 2008

phd comics

gue bukan phd, tapi komiknya gue banget xD

16 August 2008

3G bruhaha


TSEL_Flash
Originally uploaded by aip_
i know i'm not the smartest ass in the world, but i definitely dont need one service to inform me as such..

blah

06 August 2008

Adam Air 574

i dunno of whether the recording is genuine or not, but listening to it seriously scares the shit out of me..

if i have to make the call, most probably its genuine...

the official and complete report is here

14 July 2008

Tube amp

I'm still looking for russian 6SL7 matched pair... Unfortunately, stock of 6SL7 are usually not as many as 6SN7.. Sekalinya ada yang bagus, penawarannya muahallll hehehe

Mesti lebih sabar nyarinya..

08 July 2008

citarum


Citarum-Bridge-from-BDG
Originally uploaded by fajari
as fajar put it, good old days..

26 June 2008

So which one are you?

A Project Manager is a person who thinks nine women can deliver a baby in one month.

A Developer is a person who thinks it will take 18 months to deliver a baby.

An On-site Coordinator is one who thinks single woman can deliver nine babies in one month.

A Client is the one who doesn't know why he wants a baby.

A Marketing Manager is a person who think he can deliver a baby even if no man and woman are available.

A Resource Optimization Team thinks they don't need a man or woman; they'll produce a child with zero resources.

A Documentation Team thinks they don't care whether the child is delivered, they'll just document 9 months.

A Quality Auditor is the person who is never happy with the PROCESS to produce a baby.

and lastly...

A Tester is a person who always tells his wife that this is not the right baby.

A Vendor is the one who assumes that he has the perfect baby.





latest one..

A Purchasing Manager is a person who thinks, rather than wait, its faster to adopt a baby.

05 June 2008

Ubuntu 8.04


Ubuntu 8.04
Originally uploaded by aip_
just came onto my desk this morning.. imho, the coolest part is the stickers!

26 May 2008

mimpi lama

cheap yet functional ERP for Indonesian Small & Micro Enterprises

mimpi lama karena sampe sekarang belum jadi jadi, dan proses bikinnya lamaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa...

chaiyo aja lah...

work interview

q: what's your weaknesses?

a: well.. sometimes, i have trouble accepting that i actually am flawless

*gubrak*

23 May 2008

Ultah #2


Ultah Gaby #2 (3)
Originally uploaded by aip_
she grows fast... replicating almost every new word she listens to..

hari ini ultah yang kedua ya dek... like i said, you grow fast... i feel it wont be long till you grow up more, and me and your ma will become the two things that you most dreaded... hehe... hope not..

keep growing, dear.. every living thing in this universe deserve that.. for us, especially you

21 May 2008

33rd birthday


33
Originally uploaded by aip_
so i guess this is a crop of what went on my last birthday.. there was no celebration or something, but somehow my wife and our good friends came with a cake, woke me up from my sleep asked me to blow the candle...

my daughter was the one whom were excited seeing the cake.. she seemed couldn't wait to put her hands on the cake to taste it hehe

now seeing this picture.. i realize the icing on the cake that day was not the cake nor the candle.. it was her.. how my life changed by her..

with you having same blood type as mine.. with your many other characteristics which seems like a mirror onto my eyes, i feel like i know you.. feels like i understand what you are thinking...

your presence is the most precious present.. ever..

i love you, gaby...

hopefully you will forgive me for being a very far from perfect daddy i am...

uber menang lawan jerman


Uber 2008 #5
Originally uploaded by aip_
a victory, albeit small.. enough to cure my loss of nationalism... :)

13 April 2008

that guy

i'm still hanging on to my thought, that 'that guys' deserves a lawsuit..

04 April 2008

err..

is this thing still on?