Et eksempel på hvordan man skal knekke ARJ passord ved å bruke rå makt
bidragsyter. JOHN SHIPLEY product: {------ 8 < ------------- Snip-- ------------- 8 < ------------ Klipp ------------ 8 < -------} {$ I-} UNIT zipviewu, plakater (* /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ *) (* Unit: Zip Vis Dato: 23. mars 1994 *) (* Av: John Shipley Ver: 1,0 *) (*) (* Studiepoeng: Steve Wierenga - ZIPV.PAS funnet i SWAG - Fikk meg i gang på *) (* zipviewu kode siden ZIPV.PAS var ganske lett å lese i motsetning *) (* noen annen kode jeg hadde sett *) (*) (* Tom Guinther - ZIPPER.PAS funnet i ZIPPER.ZIP (1989.) tilgjengelig *) (* på min BBS " The Brook Forest Inn 714-951-5282 " Denne koden hjalp *) (* avklare mange ting. Glidelåsen kode er trolig bedre enn *) (* denne koden og godt dokumentert. *) (*) (* PKWares sin APPNOTE.TXT funnet i PKZ110.EXE *) (* * ) (* Denne enheten er et tilbud til den offentlige sfæren så lenge kreditt er gitt *) (* der kreditt skyldes. Jeg godtar INGEN alt ansvar for hva denne koden gjør med *) (* system eller dine venner eller noen andens. Du har koden, slik at du kan fikse *) (* det Hvis denne koden formaterer harddisken din, og du mister din lifes fungere, *) (* så alt jeg kan si er ".? Hvorfor gjorde du ikke tilbake den opp " *) (*) (* Formål: Å etterligne " pkunzip -V " utgang (v2.04g.) *) (* Koden er ganske nær til formålet, men ikke perfekt. *) (*) (* Demo: *) (*) (* PROGRAM zip_viewit; *) (* Bruker DOS, CRT, zipviewu; *) (* BEGIN *) (* IF PARAMCOUNT < > 0 THEN *) (* BEGIN *) (* zipview (PARAMSTR (1)); *) (* END; *) (. * END *) (* /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ *)
INTERFACE
BRUKER DOS, CRT;
PROSEDYRE zipview (zipfile: STRING);
GJENNOMFØRING
CONST hexdigit: ARRAY [0..15] røye = '0123456789abcdef';
FUNKSJON hexbyte (b: byte): STRING; (* Byte til Hexbyte *) BEGIN hexbyte: = hexdigit [b SHR 4] + hexdigit [b og $ f]; END;
FUNKSJON hexlong (l: LONGINT): STRING; (* Longint til Hexlong *) VAR n: ARRAY [1..4] AV BYTE ABSOLUTE l; BEGIN hexlong: = hexbyte (n [4]) + hexbyte (n [3]) + hexbyte (n [2]) + hexbyte (n [1]); END;
FUNKSJON Lenn (s: STRING): integer; (* Som lengde, men hopper fargekoder *) VAR i, len: integer; BEGIN len: = LENGDE (s); i: = 1; MENS (i < = LENGDE (e)) DO BEGIN IF (s [i] I [# 3, '^']) SÅ HVIS (i0 THEN EXIT; (* Hvis feilen deretter exit funksjon *) IF (buf.signature = csig) SÅ (* Har vi finner den første sentrale header *) BEGIN seekc: = true; (* Funnet første sentrale header *) SØKER (f, curpos), (* Sikre vi er på sentrale overskrifter fil posisjon *) END; END;
VAR curpos: LONGINT;
BEGIN numfiles: = 0; (* Counter av Antall filer avgjør du Utført *) z: = 0; (* Counter av Antall filer Bearbeidet *) totalu: = 0; (* Totalt antall byte av ukomprimerte filer *) totalc: = 0; (* Total størrelse etter å ha blitt komprimert *) NEW (HDR), (* Dynamisk Tildel minne for en Temp Header Record *) tildele (f, zipfile); ( * Tildele filnavn til fil Var *) {$ I-} RESET (f, 1), (* Åpne utypede File *) {$ I +} IF IORESULT < > 0 THEN (* Hvis vi får en feilmelding, exit program *) BEGIN WRITELN ('Feil - Finner ikke filen.'); HALT (253); END; HVIS IKKE seekc (f) SÅ (* Hopp Lokale Topp- og goto første Central Header *) BEGIN (* Hvis vi ikke kunne finne en Central Header *) CLOSE (f); (* Lukk utypede File *) WRITELN ('Error - Ødelagt eller ikke en ZIP-fil.'); HALT (254); (* Exit Program *) END;
WRITELN ('Lengde Metode Størrelse Ratio Dato Tid CRC-32 "+" attr Name'); WRITELN ('------ ------ ----- ----- ---- ---- -------- "+" ---- - - '); REPEAT FILLCHAR (s, sizeof (s), # 0); (* Clear Navn String *) BLOCKREAD (f, hdr ^, sizeof (cheader)); (* Les File Header *) BLOCKREAD (f, MEM [SEG (er): OFS (s) 1], hdr ^ .fnamelen); (* Les Arkiv Navn *) s [0]: = CHR (hdr ^ .fnamelen); (* Få Arkiv Navn Lengde *) IF (hdr ^ .signature = csig) SÅ (* Er en header *) BEGIN INC (z); (* Økning File Counter *) Skriv (MRN (CSTR (hdr ^ .usize), 7)); (* Skjerm Ukomprimert Size *) Skriv ('' + MRN (comptypes [hdr ^ pressing], 7)); (* Compression Method *) Skriv (MRN (CSTR (hdr ^ .csize), 8)); (* Skjerm Komprimert Size *) prosent: = ROUND (100.0- (hdr ^ .csize /hdr ^ .usize * 100,0)); WRITE (MRN (CSTR (prosent), 4) + '%'); (* Skjerm Compression Percent *) Skriv ('' + w2date (hdr ^ .date) + ''); (* Display Dato Sist endret *) Skriv ('' + w2time (hdr ^ tid opptre) + ''); (* Display Time Sist endret *) Skriv ('' + hexlong (hdr ^ .crc32) + ''); (* Skjerm CRC-32 i Hex *) Skriv (b2attr (hdr ^ .efa [1], hdr ^ .gpflag [1])); (* Skjerm attributter *) WRITELN ('' + mln (s, 13)); (* Skjerm Arkiv Name *) INC (totalu, hdr ^ .usize); (* Øke størrelsen ukomprimert *) INC (totalc, hdr ^ .csize); (* Øke størrelsen komprimert *) END; SEEK (f, FILEPOS (f) + hdr ^ .extrafield + hdr ^ .fcl); INNTIL (hdr ^ .signature < > csig) ELLER EOF (f) OR (z = numfiles); (* Ingen flere filer *) WRITELN ('------ ------ --- "+" -------'); WRITE (MRN (CSTR (totalu), 7) + ''); (* Skjerm Total Ukomprimert *) Skriv (MRN (CSTR (totalc), 7) + ''); (* Skjerm Total Compressed *) Skriv ((100-TotalC /TotalU * 100): 3: 0, '%' + MRN ('', 34)); (* Skjerm Percent *) WRITELN (MRN (CSTR (z), 7)); (* Visning Antall filer *) CLOSE (f); (* Lukk utypede File *) KAST (hdr); (* Deallocate Header Var Memory *) END;
END
.