From: "Eugene Roshal" <roshal@rarlab.com>
Newsgroups: fido7.rar.support
Subject: исходники unrar в кино :-)
Date: Tue, 31 Dec 2002 13:08:43 +0000 (UTC)
NNTP-Posting-Host: ddt.demos.su
X-BeforeModerator-NNTP-Posting-Host: 3512-659999-17.dialup.surnet.ru
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
Hello,
Прислали email с забавной информацией. Из ОС производства 2065 года
торчат хвосты unrar ;-)
>--------------------------------------------------------------------
Are you Eugene Roshal ??
If you just stop the DVD Final Fantasy on an image.. then you will see your
old email "Eugene_Roshal@p0.f23.n5010.z2.fidonet.org"...
When you will watch it, since 1minut 30seconds after the title "Final
Fantasy" you will find an interface "DREAM RECORDED DECEMBER 13, 2065",
with this approaching text (with a lot of mistakes, sorry:-).... ) :
<<DREAM SCANNER OS PROGRAMMING (000200101102),
CONTINUE
READLASTA BLESO; PHAMTOMBUF0;) DREAMFILE UNPREADBUF (INTFIRSTBUF)
INT RETCODE; IF(FIRSTBUF) (READTOP=UNPREAD(INBUF, SIZEOF (INBUF));
INADORO; ELSE (MEMCPY(INBUF,& INBUF(SIZE OF(INBUF)-32)32);
(UNPPTR<WRPTR) ( PHANTOM (& UNPBUF[WRPTR]-WRPTR& MAXWINMASK);
PHANTOM(UNBUF, UNPPTR); ) ELSE
PHANTOM (&UNBUF[WRPTR], UNPPTR-WRPTR);
WRPTR=UNPPTR;) DREAMFILE READTABLES (DREAMFILE) (UBYTE BITLENGTH [BC]
UNSIGNED CHARTABLE [MC'4]; INT
TABLE SIZE = NC+DC+RC; FOR (I=0, [BC]++) GETB (TSO; BITLENGTH00=(UBYTE)
BITFIELD>>12); ADDBITS(4); )M
ETABLES (UNSIGNED CHAR LENTAB, STRUCT DECODE ' DEGINTSIZE)
(INT LENCOUNT(16), TMPPOS(16); LONGM,N; MEMSET(LENCOUNT,
0,SIZEOF(LENCOUNT));
FOR 0=0,1<SIZE]++) LENCOUNT[LENTAB(1)&0xF]; ++;
LENCOUNT (0)+0 FOR (TMPPOS(0)+DEC > DECODE POS
(0)+DEC>DECODELEN(0)=ON=0,1=1]<16]++) (N=2(N+LENCOUNT[);
M=N<<(15-0; IF(M-0xFFFF) M+0XFFFF; DEC
I=3; ELSE I=4; ELSE IF(N<DEC> DECODELEN(6)) IF(N<DEC> DECODELEN(5))
I=5; ELSE I=6; ELSE IF(N<DEC>DECODELEN(7)) I=7; ELSE
I=8; ELSE IF(N<DEC>DECODELEN(12)) IF(N<DEC>DECODELEN(10))
IF(N<DEC>DECODELEN(9)) I=9 ELSE I=10 SOURCE CODE AND DEVELOPED FOR
EXTRACTING, TESTING AND VIEWING
THE CONTENTS OF ARCHIVES CREATED WITH THE RAR ARCHIVER VERSION &,50 AND ABO
VE.KEYWORDS ARCHIVER UNCOMPRESS, UNPACK DATA COMPRESSION AUTHOR;
EUGENE_ROSHAL@PO.F23.N5010.Z2.FIDONET.ORG (EUGENE ROSHAL)
MAINTENED-BY : MARKUS.OBERHUMER@JKUNB-LINZACAT(MARKUS F.X.J. OBERHUMER)
ORIGINALSITE:
FTP:FTP.ELFSTUBA.SK.PUBPCPACK. 272KB
RAR201P.EXEPRIMARY.SITE FTP:(SUNSITE.UNC.EDUPUBLINUX.UTIL.SCOMPRESS
69KB UNRAR.201 TAR 02.ALTERNATE.SITE : FTP:/TSX
11.MIT EDU PULILINUX SOURCE USRBIN : ARCHIVERS 65KB
IST OLDOSTPTR++&3)DISTANCE; DESTUNPSIZE=(LASTLENGTH=LENGTH); WHILE (LENGTH)
(UNPBUF(UNPPTR)+UNPBUF[UNPPT
R.DISTANCE)&MAXWINMASK UNPPTR=(UNPPTR++)&
MAXWYNMASK)) DREAMFILE UNPNT DATA (NT_SOLID) (INADOR-INBIT=0 IF(SOLID)
AXE DECODE TABLES (BITLENGTH)(STRUCT DECODE ABO,BC) I=0 WHILE
(I<TABLESIZE).............
>--------------------------------------------------------------------
Сам я проверить не смог, так что за достоверность не ручаюсь :-) Кассету
я нашел, но качество там не DVD, буковки толком не видны.
Eugene |
