'QBASIC Batch file creator (wrapper Program for ToneLoc)
'Written by M4phr1k (AKA Stephan Barnes)
'
'M4phr1k is now at Foundstone (www.foundstone.com)
'
'GENERAL:
'This program runs ToneLoc once for a given number for a created range
'
'TONELOC:
'ToneLoc can be found all over the Internet...tl110.zip
'it's also on M4phr1k's web site
'
'BACKGROUND:
'The reason this was written was to compensate for the hiccups that can occur
'when running toneloc in a range mode (the most common way prior to this concept).
'Being a Big5 security consultant meant tight timelines and windows and while
'toneloc is still probably one of the best and easiest FREE tools to use out there,
'if it hiccups during a large dial, when you are not there to fix it, you can come
'back after a long dial session and be dissappointed because the modem failed somewhere
'during the dial.  Hence, since ToneLoc is a great tool, and can be run from the command
'line, making a batch file executing the utility once everytime means no additional 
'overhead AND the benefit of reinitialization of the modem everytime which pretty much
'insures the dial and results.  I have used this concept since early 1996 without failure
'
'THE CODE
'
'Qbasic code creates 2 files for a war dial of 4000 numbers
'two batches broken up for multiple modems war1.bat and war2.bat
'in this example the number is 18005550000 thru 18005552000 for war1.bat
'in this example the number is 18005552001 thru 18005554000 for war2.bat
'
'f5 runs the Qbasic program
'
'Output files will be created in the Run directory (war1.bat, war2.bat)
'
'Copy the .bat files to your respective toneloc run directory
'configuring toneloc to DEL .DAT files as it runs will save space since this
'concept creates individual .DAT files.  The .DAT files are pretty useless.
'The found.log and carrier.log (combined into one) are the most useful files
'This code also has *67 to block CID as an extra precaution in case it is not in
'effect.  Helps hide your efforts.
'
'
'The for next loop can be used to start descencding (ie 2000 to 0) if you add step -1
'see qbasic help for instructions
'qbasic.exe and qbasic.hlp available at http://home.mminternet.com/~barneshouse/
'toneloc tl110.exe available at http://home.mminternet.com/~barneshouse/
'
'One of the drawbacks with this program is non-randomization.
'Randomizing a dial can help lower the discovery threshold when attempting to hit
'a range of numbers at a company.  And it allows you to dial during the day if so
'needed.
'
'However, to make random once you have the .bat files you could bring those into any modern
'software program (I like Excel) and import the lines and use the random number
'function to assign a random number as a new field to the end of the string, then
'sort that string.  It will jumble up the lines in the .bat file.  then export back out
'to ASCII without the random number field (it's pretty easy)


OPEN "war1.bat" FOR OUTPUT AS #1

FOR a = 0 TO 2000
a$ = STR$(a)
a$ = LTRIM$(a$)
'the next 9 lines deal with digits 1thru10 10thru100 100thru1000
'after 1000 truncating doesnt happen 
IF LEN(a$) = 1 THEN
   a$ = "000" + a$
END IF
IF LEN(a$) = 2 THEN
   a$ = "00" + a$
END IF
IF LEN(a$) = 3 THEN
   a$ = "0" + a$
END IF

aa$ = a$ + "warl"
PRINT aa$
PRINT #1, "toneloc " + aa$ + ".dat" + " /M:*671800555" + a$ + " > nul"
NEXT a

CLOSE #1

OPEN "war2.bat" FOR OUTPUT AS #1

FOR a = 2001 TO 4000
a$ = STR$(a)
a$ = LTRIM$(a$)
'the next 9 lines deal with digits 1thru10 10thru100 100thru1000
'in this case though since 2001 is the start point it will never execute
'these conditions since truncating doesnt happen in this example
IF LEN(a$) = 1 THEN
   a$ = "000" + a$
END IF
IF LEN(a$) = 2 THEN
   a$ = "00" + a$
END IF
IF LEN(a$) = 3 THEN
   a$ = "0" + a$
END IF

aa$ = a$ + "war2"
PRINT aa$
PRINT #1, "toneloc " + aa$ + ".dat" + " /M:*671800555" + a$ + " > nul"
NEXT a

CLOSE #1