:: CHInewsKI Online - Edição nº 25 - Rio de Janeiro, 5 de setembro de
2001::

#--%$%----%$%----%$%----Begin Program----%$%----%$%----%$%-#
#Program Bomb

Program Bomb-ti-bomb
Function Mission(byval planes)
For i=0 to 8 step 1 hour
getPlanes("767-"& i)
Dispiste DEFCON-5
Select case planes
Case 1 or 2
Set target = "World Trade Center"
Case 3
Set target = "Pentagon"
Case 4
Set target = "White House"
Case 5 to 8
Set target = Randomic
End select

Target.Lock
Set Mission.abort = none
End function

Function KamiKase(byval doomsday)
Computer.Connect(DEFCON-5)
Set targets =Computer.GetAdress
For each adress in targets
Set starter = Targets.FindBomb doosday
Starter.StartCount(minutes=1)
Starter.Lock
Next
End function

If day=11 and month = Septemper then
Call KamiKases "login=kamikase;password=binLaden"
Call Mission("kidnapp")
Send_mail.to = "usgovernment@g..."
Send_mail.Subject = "Set us free"
Send_mail.Send
Erase Program(this.self)
End if
End program



##pablo marinez##
#---------------End Program---------------------------#