Arj galleta de la contraseña

Arj galleta de la contraseña

Arj galleta de la contraseña : Multi-millones de consejos para hacer su vida mas facil.

Un ejemplo de como crack ARJ contraseñas mediante el uso de la fuerza bruta.

Colaborador: JUAN SHIPLEY

{ & & & 8< & & & & & & -Snip & & & & & & & -8< & & & & & & Snip & & & & & & 8< & & & -}
{$I-}
UNIDAD de zipviewu

(*///////////////////////////////////////////////////////////////////////////*)
(* Unidad : codigo Postal Vista Fecha : 23 de Marzo de 1994 *)
(* Por : Juan Shipley Ver : 1.0 *)
(* *)
(* Creditos : Steve Wierenga - ZIPV.PAS se encuentra en SWAG - empece en el *)
(* zipviewu codigo desde ZIPV.PAS fue bastante facil de leer a diferencia de *)
(* otro codigo que yo habia visto. *)
(* *)
(* Tom Guinther - cierre de CREMALLERA.PAS se encuentra en ZIPPER.ZIP (1989) disponibles *)
(* en mi BBS 'El Arroyo del Bosque Inn 714-951-5282' Este codigo ayudo a *)
(* aclarar muchas cosas. La cremallera codigo es probablemente mejor que el *)
(* este codigo y bien documentado. *)
(* *)
(* PkWare & #39 s APPNOTE.TXT se encuentra en PKZ110.EXE *)
(* *)
(* Esta unidad se ofrece para el Dominio Publico en tanto se da credito *)
(* donde el credito es debido. Yo NO aceptan ninguna responsabilidad por lo que este codigo hace a su *)
(* sistema o a sus amigos o a alguien elses. Tienes el codigo, asi que usted puede fijar *)
( * . Si este codigo de formatos de su disco duro y usted pierde su vida de trabajo, *)
(* entonces todo lo que puedo decir es '¿por Que no & #39 t de vuelta?' *)
(* *)
(* Objetivo: imitar 'PKUNZIP -v' de salida. (v2.04g) *)
(* El codigo esta muy cerca del objetivo, pero no es perfecto. *)
(* *)
(* Demostracion : *)
(* *)
(* PROGRAMA de zip_viewit *)
(* UTILIZA DOS,CRT,zipviewu *)
( * *)
(* SI PARAMCOUNT<>0 then *)
( * *)
(* zipview(PARAMSTR(1)) *)
( * *)
(* FINAL. *)
(*///////////////////////////////////////////////////////////////////////////*)

INTERFAZ

UTILIZA DOS,CRT

PROCEDIMIENTO zipview(fichero zip: STRING)

APLICACION

CONST hexdigit : ARRAY[0..15] OF CHAR = & #39 0123456789abcdef & #39

la FUNCION de hexbyte(b: byte): STRING (* Byte a Hexbyte *)
BEGIN
hexbyte := hexdigit[b SHR 4] hexdigit[b Y $f]
FIN

la FUNCION de hexlong(l: LONGINT): STRING (* Longint a Hexlong *)
VAR n : ARRAY[1..4] OF BYTE ABSOLUTA l
BEGIN
hexlong := hexbyte(n[4]) hexbyte(n[3]) hexbyte(n[2]) hexbyte(n[1])
FIN

la FUNCION de lenn(s: STRING): INTEGER (* Como la LONGITUD, pero se salta el codigo de color *)
VAR i,len : INTEGER
BEGIN
len := LENGTH(s)
i := 1
MIENTRAS (i<=LONGITUD de la(s))
BEGIN
IF (s[i] EN [#3, & #39 ^ & #39 ]) a CONTINUACION,
SI (i0, a CONTINUACION, la SALIDA (* Si el mensaje de error de funcion de salida *)
IF (buf.firma=csig) (* hallamos la primera central de cabecera? *)
BEGIN
seekc := TRUE (* Encontrar primero cabecera central *)
SEEK(f,curpos) (* Asegurar que estamos en el central encabezados de archivo de posicion *)
FIN
FIN

VAR curpos : LONGINT

BEGIN
numfiles := 0 (* Contador de Numero de Archivos para Determinar Cuando se Hace *)
z := 0 (* Contador de Numero de Archivos Procesados *)
totalu := 0 (* Total de Bytes de los Archivos sin Comprimir *)
totalc := 0 (* Tamaño Total despues de ser Comprimido *)
NUEVO(hdr) (* Asignar Memoria Dinamicamente para una Temp de Registro de Encabezado *)
ASSIGN(f,fichero zip) (* Asignar un nombre de archivo para el Archivo Var *)
{$I-}
RESET(f,1) (* Abrir un Tipo de Archivo *)
{$I }
SI IORESULT<>0 then (* Si obtenemos un error, la salida del programa *)
BEGIN
WRITELN( & #39 Error - Archivo no encontrado. & #39 )
HALT(253)
FIN
SI NO seekc(f) (*Saltar Locales Encabezados y goto primera Cabecera Central *)
BEGIN (* Si no hemos podido localizar una Cabecera Central *)
CLOSE(f) (* Cierre Tipo de Archivo *)
WRITELN( & #39 Errores Dañado o No es un Archivo ZIP. & #39 )
HALT(254) (* Salir del Programa *)
FIN

WRITELN( & #39 Metodo de Longitud Tamaño de la Proporcion de la Fecha y Hora de la CRC-32 & #39
& #39 Attr Nombre & #39 )
WRITELN( & #39 & & & & & & & & - & & - & & & & & & & & & #39
& #39 & & & & & #39 )
REPETIR
FILLCHAR(s,SIZEOF(s),#0) (* Nombre Claro Cadena *)
BLOCKREAD(f,hdr^,SIZEOF(cheader)) (* Leer el Archivo de Encabezado *)
BLOCKREAD(f,MEM[SEG(s):OFS(s), 1],hdr^.fnamelen) (* Leer Archivo de Nombre *)
s[0] := CHR(hdr^.fnamelen) (* Obtener el Nombre de Archivo Longitud *)
SI (hdr^.firma=csig) (* encabezado *)
BEGIN
INC(z) (* Incremento del Contador de Archivos *)
ESCRIBIR(mrn(cstr(hdr^.usize),7)) (* Pantalla Tamaño sin Comprimir *)
ESCRIBIR( & #39 & #39 mrn(comptypes[hdr^.comprimir],7)) (* Metodo de Compresion *)
ESCRIBIR(mrn(cstr(hdr^.csize),8)) (* Pantalla Tamaño Comprimido *)
por ciento := ROUND(100.0-(hdr^.csize/hdr^.usize*100.0))
ESCRIBIR(mrn(cstr(por ciento),4) & #39 % & #39 ) (* Compresion de Pantalla por Ciento *)
ESCRIBIR( & #39 & #39 w2date(hdr^.fecha) & #39 & #39 ) (* Mostrar Fecha de Ultima Modificacion *)
ESCRIBIR( & #39 & #39 w2time(hdr^.tiempo) & #39 & #39 ) (* el Tiempo de Visualizacion de la Ultima Modificacion *)
ESCRIBIR( & #39 & #39 hexlong(hdr^.crc32) & #39 & #39 ) (* Pantalla CRC-32 en Hexadecimal *)
ESCRIBIR(b2attr(hdr^.ept[1],hdr^.gpflag[1])) (* Atributos de Visualizacion *)
WRITELN( & #39 & #39 millones(s,13)) (* Mostrar nombre de Archivo *)
INC(totalu,hdr^.usize) (* Incremento de tamaño sin comprimir *)
INC(totalc,hdr^.csize) (* Incremento de tamaño comprimido *)
FIN
SEEK(f,FILEPOS(f) hdr^.extrafield hdr^.fcl)
HASTA que (hdr^.firma<>csig) O EOF(f) O (z=numfiles) ( * *)
WRITELN( & #39 & & & & & & & - & #39
& #39 & & & & -#39 )
ESCRIBIR(mrn(cstr(totalu),7) & #39 & #39 ) (* Mostrar el Total sin Comprimir *)
ESCRIBIR(mrn(cstr(totalc),7) & #39 & #39 ) (* Mostrar el Total de Comprimidos *)
ESCRIBIR((100-TotalC/TotalU*100):3:0, & #39 % & #39 mrn( & #39 & #39 ,34)) (* Pantalla por Ciento *)
WRITELN(mrn(cstr(z),7)) (* Mostrar el Numero de Archivos *)
CLOSE(f) (* Cierre Tipo de Archivo *)
DISPOSE(hdr) (* Desasignar Encabezado Var de Memoria *)
FIN

.