Arj cracker de mot de passe

Arj cracker de mot de passe

Arj cracker de mot de passe : Plusieurs milliers de conseils pour vous faciliter la vie.

Un exemple de comment cracker ARJ mots de passe en utilisant la force brute.

l'auteur: JOHN SHIPLEY

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

(*/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\\/\/\/\/\/\/\/\*)
( * ) Unite : Zip Date d'Affichage : 23 Mars 1994 *)
(* Par : John Shipley Ver : 1.0 *)
(* *)
(* Credits : Steve Wierenga - ZIPV.PAS trouve dans SWAG - qui m'a sur l' *)
(* zipviewu code depuis ZIPV.Le PAS a ete assez facile a lire, contrairement a d' *)
(* certains autre code que j'avais vu. *)
(* *)
(* Tom Guinther - fermeture a GLISSIERE.PAS trouve dans ZIPPER.ZIP (1989) disponibles *)
(* sur mon BBS 'Le Ruisseau de la Foret Inn 714-951-5282' Ce code a aide *)
(* clarifier beaucoup de choses. La fermeture a glissiere code est probablement mieux qu' *)
(* ce code et bien documente. *)
(* *)
(* PkWare & #39 s APPNOTE.TXT trouve dans PKZ110.EXE *)
(* *)
(* Cet appareil est offert au Domaine Public, aussi longtemps que le credit est donne *)
(* lorsque le credit est dû. Je n'accepte AUCUNE responsabilite pour ce que ce code fait a votre *)
(* systeme ou de vos amis ou quelqu'un elses. Vous avez le code, de sorte que vous pouvez fixer *)
( * . Si ce code formate votre disque dur et que vous perdez votre vie de travail, *)
(* ensuite, tout ce que je peux dire, c'est 'Pourquoi n'a - & #39 t vous sauvegarder?' *)
(* *)
(* Objectif: d'imiter 'PKUNZIP -v' de sortie. (v2.04g) *)
(* Le code est assez proche de la fin, mais pas parfait. *)
(* *)
(* Demonstration : *)
(* *)
(* PROGRAMME zip_viewit *)
(* UTILISE DOS,CRT,zipviewu *)
(* COMMENCER *)
(* SI PARAMCOUNT<>0 then *)
(* COMMENCER *)
(* zipview(PARAMSTR(1)) *)
( * *)
(* FIN. *)
(*/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\\/\/\/\/\/\/\/\*)

INTERFACE

UTILISE le DOS,CRT

PROCEDURE zipview(zipfile: STRING)

la mise en ŒUVRE

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

la FONCTION hexbyte b: byte): CHAÎNE de caracteres (* Octet de Hexbyte *)
BEGIN
hexbyte := hexdigit[b SHR 4] hexdigit[b ET $f]
FIN

la FONCTION hexlong(l: LONGINT): CHAÎNE de caracteres (* Longint a Hexlong *)
VAR n : ARRAY[1..4] OF BYTE ABSOLUE de l
BEGIN
hexlong := hexbyte(n[4]) hexbyte(n[3]) hexbyte(n[2]) hexbyte(n[1])
FIN

la FONCTION lenn(s: STRING): INTEGER (* Comme la LONGUEUR, mais ignore les codes de couleurs *)
VAR i,len : INTEGER
BEGIN
len := LONGUEUR(s)
i := 1
WHILE (i<=LONGUEUR(s)) DO
BEGIN
IF (s[i] DANS [#3, & #39 ^ & #39 ]) PUIS
IF (i0, PUIS la SORTIE ( * ) en Cas d'erreur, puis la sortie de la fonction *)
IF (buf.signature=csig) PUIS (* avons-nous trouve la premiere centrale d'en-tete? *)
BEGIN
seekc := TRUE ( * , premiere centrale de l'en-tete *)
SEEK(f,curpos) (* s'Assurer que nous sommes a la centrale des en-tetes de fichier*****)
FIN
FIN

VAR curpos : LONGINT

BEGIN
numfiles := 0 (* Compteur de Nombre de Fichiers pour Determiner Quand Fait *)
z := 0 (* Compteur du Nombre de dossiers Traites *)
totalu := 0 (* nombre Total d'Octets de Fichiers non compresses *)
totalc := 0 (* Taille Totale apres avoir ete Comprime *)
NOUVEAU(hdr) (* Allouer Dynamiquement de la Memoire pour un Temp Enregistrement d'en-Tete *)
ASSIGN(f,zipfile) (* Attribuer le nom de fichier pour le Fichier Var *)
{$I-}
RESET(f,1) (* Ouvrir le Type de Fichier *)
{$I }
SI IORESULT<>0 then (* Si on a une erreur, le programme de sortie *)
BEGIN
WRITELN( & #39 Erreur - Fichier non trouve. & #39 )
HALT(253)
FIN
SI NON seekc(f) PUIS (* Ignorer les Locaux des en-Tetes et goto premiere Centrale de l'en-Tete *)
BEGIN (* Si l'on n'a pas pu trouver un Central de l'en-Tete *)
CLOSE(f) (* Fermer Type de Fichier *)
WRITELN( & #39 Erreur Corrompu ou Non un Fichier ZIP. & #39 )
HALT(254) (* Programme de Sortie *)
FIN

WRITELN( & #39 Methode de Longueur par Rapport a sa Taille Date Heure CRC-32 & #39
& #39 Attr Name & #39 )
WRITELN( & #39 & & & & & & & & - & & - & & & & & & & & & #39
& #39 & & & & & #39 )
REPEAT
FILLCHAR(s,SIZEOF(s),#0) (* Effacer le Nom de la Chaîne *)
BLOCKREAD(f,hdr^,SIZEOF(cheader)) (* Lire le Fichier d'en-Tete *)
BLOCKREAD(f,MEM[SEG(s):OFS(s) 1],hdr^.fnamelen) (****Lisez Nom de l'Archive *)
s[0] := CHR(hdr^.fnamelen) (* Obtenir le Nom de l'Archive Longueur *)
IF (hdr^.signature=csig) PUIS (* Est un en-tete *)
BEGIN
INC(z) (* Incrementer Compteur de Fichiers *)
WRITE(mrn(cstr(hdr^.usize),7)) (* Afficher la Taille non compressee *)
WRITE( & #39 & #39 mrn(comptypes[hdr^.compresser],7)) (* Methode de Compression *)
WRITE(mrn(cstr(hdr^.csize),8)) (* Affichage de la Taille Compressee *)
% := ROUND(100.0-(hdr^.csize/hdr^.usize*100.0))
WRITE(mrn(cstr ( % ),4) & #39 % & #39 ) (* la Compression d'Affichage pour Cent *)
WRITE( & #39 & #39 w2date(hdr^.date) & #39 & #39 ) (* Afficher la Date de Derniere modification *)
WRITE( & #39 & #39 w2time(hdr^.le temps) & #39 & #39 ) (* l'Affichage de l'Heure de Derniere modification *)
WRITE( & #39 & #39 hexlong(hdr^.crc32) & #39 & #39 ) (* Affichage de la CRC-32 en Hexadecimal *)
WRITE(b2attr(hdr^.cfc[1],hdr^.gpflag[1])) (* Attributs d'Affichage *)
WRITELN( & #39 & #39 millions de dollars(s,13)) (* Affichage du nom de fichier de l'Archive *)
INC(totalu,hdr^.usize) (* taille de l'Increment de non compresse *)
INC(totalc,hdr^.csize) (* taille de l'Increment de comprime *)
FIN
SEEK(f,FILEPOS(f) hdr^.extrafield hdr^.fcl)
JUSQU'a ce que (hdr^.signature<>csig) OU EOF(f) OU (z=numfiles) (* Pas plus de Fichiers *)
WRITELN( & #39 & & & & & & & - & #39
& #39 & & & & -#39 )
WRITE(mrn(cstr(totalu),7) & #39 & #39 ) (* Afficher le nombre Total des non compresse *)
WRITE(mrn(cstr(totalc),7) & #39 & #39 ) (* Afficher le nombre Total Comprime *)
WRITE((100-TotalC/TotalU*100):3:0, & #39 % & #39 nrm( & #39 & #39 ,34)) (* Affichage%*)
WRITELN(mrn(cstr(z),7)) (* Afficher le Nombre de Fichiers *)
CLOSE(f) (* Fermer Type de Fichier *)
DISPOSE(hdr) (* Desallouer en-Tete Var Memoire *)
FIN

a la FIN.