Hey old friend – remember this?
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û Source file for 'ICE BREAKER' OFFICIAL RELEASE Version 1.2.
;Û MAAS Modem Battle Language Interpreter By DrMiaow
;Û This Script By Morpheus Black - Adapted from AUSPAC PAD Scanner by DrMiaow
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û Please feel free to distribute and USE this produkt. Any Bug reports
;Û should be directed to morpheus@newrose!elitenet or (|| for C programmers)
;Û morpheus@maas!elitenet . You can usualy catch me on EliteNet Australia
;Û or at Zero-City.
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û Greets to : Count Zero, J-Nova, Ripmax, Chandra, Infinity, Philo
;Û Rabbi, Jag, and Shaka
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û Copyright (c) 1988 The Acceleration Corporation, Inc. All rights reserved.
;Û Redistribution and use in source and binary forms are permitted provided
;Û that the above copyright notice and this paragraph are duplicated in all
;Û such forms and that any documentation, advertising materials, and other
;Û materials related to such distribution and use acknowledge that the
;Û software was developed by the Acceleration Corporation. The name of
;Û either the author or the Acceleration Corporation may not be used to
;Û justify or promote hacks derived from this software.
;Û THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
;Û WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
;Û MERCHANTIBILITY AND FITNESS FOR A PARTICULARLY LEGAL PURPOSE. SO THERE!
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û ID: Carrier Seeker: Chinese Red Army Genetic version. Milspec Rated.
;Û VE: IB (Ice Breaker) V1.2a Acceleration Corporation Produkt #8902
;Û AU: (c) 1989 Morpheus Black of The Acceleration Corporation
;Û
;Û This program produces the following files
;Û
;Û HITS.LOG : All numbers the had a modem at the end.
;Û SYSTEMS.LOG : All numbers that looked like a computer.
;Û TOTAL.LOG : The complete sign on screen of all hits.
;Û ERROR.LOG : If an error occours then it will end up being reported here.
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
#WILD ! 10 ; Define a wild card
#WILD * 3478906215 ; Define a wild card
#WILD @ 706915342 ; Define a wild card
#WILD ^ 7392514068
#SCAN atdt008-03*-@*^\r ; Define our SCAN string with wild cards...
; This will scan the 008-040-???'s and
; 008-041-???'s randomly with max spread
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û Init Modem - Set baud rate, and mode;
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
start:
INIT 1 2400 8N1 ; Init fossil driver COM1 to 2400 8N1
BUFFER KILL ; Empty the fossil buffer
CLRSCR ; Clear the screen and do a blurb
PRINT "\n\r"
PRINT " ÜÜ#####²±²±²±ÜÜ\n\r"
PRINT " ÜÛ#######²±²±²±²±ÛÜ ID: Chinese Red Army Genetic Scanner\n\r"
PRINT " ÞÛ########²±²±²±²±²ÛÝ VE: I.C.E Breaker V1.0 \n\r"
PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ : (c) Acceleration Corporation 1991 \n\r"
PRINT " ÞÛÛÛÛÛÛ MK 13 ÛÛÛÛÛÛÝ AU: Morpheus Black 1991\n\r"
PRINT " ßÛß ß°±²²ÛßÄÅÄßÛß \n\r"
PRINT " ÜÛ # ÜÛ ÛÜ $³$ ÛÜ GR: Count Zero, J-Nova, Ripmax \n\r"
PRINT " ÛÛÛÜÜÜÛÛ ÛÛÜÜÜÛÛÛ : Chandra, Infinity, Philo\n\r"
PRINT " ßÛÛßÛ±ÛݶÜÇÞÛ±ÛßÛÛß : Rabbi, Jag, and Shaka\\n\r"
PRINT " ²±°ß²²²ß²±° \n\r"
PRINT " ²±°ÞÙ Àݲ±° 'Hey Poor you don't have to poor\n\r"
PRINT " ²±° ²±° anymore... Jesus is here.'\n\r"
PRINT " ³ ³ -Front 242\n\r"
PRINT " ³ ³ "
PRINT " Sequence is now underway \n\r"
IF ( CHAT "\P002ATZ\r\n\P001 OK\r\n" )
(
GOTO main
)
ELSE
(
IF ( GOT "ERROR" )
(
PRINT "\aERROR Check your INIT procedure.\n\r"
)
ELSE
IF ( GOT "RING" )
(
PRINT "Your phone is ringing. Oh no... the FED's have traced you!\n\r"
)
ELSE
(LOG ERROR.LOG "\TModem Failure at PORT \C SPEED \B MODE \M\n\r"
)
)
END
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û The main loop - The heart of the program
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
main:
BAUD 2400 ; Set baud rate to 2400
MODE 8N1 ; Set mode to 8N1
BUFFER KILL ; Delete the modem buffer
PUT \D ; Put DTR High
SCAN ; Send our #SCAN string
PAUSE 15 ; Wait 15 seconds for any modem to
; answer and connect
PUT \r\n ; Force modem to reply
PAUSE 1 ; Wait 1 second for the modem to reply
BUFFER FLUSH ; Suck it up so GOT can look at it
; Now we interpret the response from the modem and see what
; baude rate we are running at, change to it etc.... *YAWN*..
IF ( GOT NO\sCARRIER ) THEN ( )
ELSE
IF ( GOT "CONNECT 2400" ) THEN ( BAUD 2400 GOSUB identify_system )
ELSE
IF ( GOT CONNECT\s1200 ) THEN ( BAUD 1200 GOSUB identify_system )
ELSE
IF ( GOT CONNECT\s600 ) THEN ( BAUD 600 GOSUB identify_system )
ELSE
IF ( GOT CONNECT ) THEN ( BAUD 300 GOSUB identify_system )
ELSE
(
LOG REPORT.TXT "\n\r\T '\S' produced a strange result\n\r"
LOG REPORT.TXT "++++++++++++++++++++++++++++++++++++++++++\n\r"
BUFFER DUMP REPORT.TXT
LOG REPORT.TXT "++++++++++++++++++++++++++++++++++++++++++\n\r"
)
GOTO main ; Try again.
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
; ÛÛ
; ÛÛ Routine to identify type of system we have encountered.......
; ÛÛ Scan for all popular systems and institutions.
; ÛÛ
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
identify_system:
GOOD ; Increment the 'hits' variable
LOG HITS.LOG "\T '\S' \B \M\n\r"
LOG SYSTEMS.LOG "\n\r\T '\S' COM\C:\B:\M\n\r"
; Now we switch modes to see what we get in both
MODE 8N1
GOSUB shake
MODE 7E1
GOSUB shake
GOSUB identify
LOG SYSTEMS.LOG "\n\r"
BUFFER FLUSH ; Get all available data
BUFFER DUMP TOTAL.LOG ; Send the buffer to file
; TOTAL.LOG
GOSUB hangup
RETURN
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
; ÛÛ
; ÛÛ Routine 'shake' a response out of the system.
; ÛÛ
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
shake:
PUT @%&@\n\r ; Send 'NOISE' *GRIN* and a crlf
PAUSE 2
PUT $%@*!\n\r ; Send 'NOISE' again...
PAUSE 2
RETURN
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
; ÛÛ
; ÛÛ Routine pick out signiture strings of particular operating systems
; ÛÛ
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
identify:
; SCAN for KEYWORDS
IF ( GOT UNIX ) ( LOG SYSTEMS.LOG "UNIX\n\r" )
IF ( GOT Unix ) ( LOG SYSTEMS.LOG "UNIX\n\r" )
IF ( GOT unix ) ( LOG SYSTEMS.LOG "UNIX\n\r" )
IF ( GOT nix ) ( LOG SYSTEMS.LOG "*nix\n\r" )
IF ( GOT System\sV ) ( LOG SYSTEMS.LOG "*NIX SYS V\n\r" )
IF ( GOT system\sV ) ( LOG SYSTEMS.LOG "*NIX SYS V\n\r" )
IF ( GOT BSD ) ( LOG SYSTEMS.LOG "*NIX BSD\n\r" )
IF ( GOT ERR! ) ( LOG SYSTEMS.LOG "PRIMEOS\n\r" )
IF ( GOT AUSTPAC ) ( LOG SYSTEMS.LOG "AUSTPAC Dial in\n\r" )
IF ( GOT ustpac ) ( LOG SYSTEMS.LOG "UNIX\n\r" )
IF ( GOT PAD ) ( LOG SYSTEMS.LOG "A Packet Assembler Dissasembler\n\r" )
IF ( GOT NET ) ( LOG SYSTEMS.LOG "A Network\n\r" )
IF ( GOT CICS ) ( LOG SYSTEMS.LOG "IBM CICS\n\r" )
IF ( GOT .com ) ( LOG SYSTEMS.LOG "Commercial domain Unix\n\r" )
IF ( GOT .mil ) ( LOG SYSTEMS.LOG "Military domain Unix\n\r" )
IF ( GOT .edu ) ( LOG SYSTEMS.LOG "Education domain Unix\n\r" )
IF ( GOT pdp ) ( LOG SYSTEMS.LOG "PDP11 Minicomputer\n\r" )
IF ( GOT 486 ) ( LOG SYSTEMS.LOG "ix486 PC?\n\r" )
IF ( GOT 386 ) ( LOG SYSTEMS.LOG "ix386 PC?\n\r" )
IF ( GOT Bank ) ( LOG SYSTEMS.LOG "A Bank\n\r" )
IF ( GOT bank ) ( LOG SYSTEMS.LOG "A Bank\n\r" )
IF ( GOT login ) ( LOG SYSTEMS.LOG "A login prompt\n\r" )
IF ( GOT Login ) ( LOG SYSTEMS.LOG "A Login prompt\n\r" )
IF ( GOT ID ) ( LOG SYSTEMS.LOG "An ID prompt\n\r" )
IF ( GOT USER ) ( LOG SYSTEMS.LOG "A USER prompt\n\r" )
IF ( GOT user ) ( LOG SYSTEMS.LOG "A user prompt\n\r" )
IF ( GOT # ) ( LOG SYSTEMS.LOG "A modem password prompt\n\r" )
IF ( GOT VT100 ) ( LOG SYSTEMS.LOG "VT100 Terminal type\n\r" )
RETURN
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
; ÛÛ
; ÛÛ Routine to hang up MODEM:
; ÛÛ If by any chance the modem fails to hang up an alarm will sound
; ÛÛ to wake you up.
; ÛÛ
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
hangup:
BUFFER KILL ; Empty the buffer
PUT \d ; Hang up DTR LOW
PAUSE 1 ; Wait for NO CARRIER
BUFFER FLUSH
IF ( GOT NO\sCARRIER ) THEN
(
; do nothing
)
ELSE
(
PUT \D\P001\d+++\rATH\n ; Alternative HANG UP
IF ( GOT NO\sCARRIER )
(
; do nothing
)
ELSE
(
black_ice:
PRINT "\a\a\a\*** WAKE UP I'M STUCK ONLINE ***\n\r"
GOTO black_ice
)
)
BUFFER KILL
RETURN
|
James McParlane's Blog 
ROFL, Thats great…
A deamon dialer, in basic. I was probably still in nappies when you wrote that.
Why the CAPTCHA ? Have you been getting comment spam…
That’s not actually real basic – I wrote the basic interpreter on top of my old "Toothbrush" VM – but it has functions skewed towards a certain purpose 🙂
I didn’t write this script – but its very close to the original one that I released with the interpreter. 🙂
CAPCHA came with the Blog upgrade 🙂