halaman cokelat: 2008

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

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

Buku Pelajaran Bahasa Indonesia SD Kelas 1 Catur Wulan 1
Originally uploaded by aip_

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

01 September 2008

Stay Hungry. Stay Foolish

Stay Hungry. Stay Foolish
Originally uploaded by Alol

The picture as referred by Steve Jobs on his Stanford Class 2005 Commencement Speech.

The text is here.

29 August 2008

Tubelover 10Y-RE604 Amplifier

Tubelover 10Y-RE604 Amplifier
Originally uploaded by Tubelover

IDR 40.000.000,-... yummeh..

Black campaign against SBY?

Black campaign against SBY?
Originally uploaded by aip_

I dunno.. you tell me, man

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

Integrated Amp Single-ended EL34-6SL7 SRPP
Originally uploaded by Gudang Online Alex (GOA)

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?