Qbcrc Repost

 BBS: Inland Empire Archive
Date: 10-08-92 (06:54)             Number: 289
From: RICH GELDREICH               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Qbcrc Repost                   Conf: (2) Quik_Bas
Here's QBCRC10.BAS again. People have been telling me that the CRC this
program produces is not compatible with PkZip, but it has been all along
on my side. I used the CCITT-32 formula to calculate the CRC terms, and
I have compared the CRC produced by this program with others. Remember
that the QBCRC sub does not NOT the CRC before it returns it to the
caller, but FileCRC does...

'Save this script to a file, edit out all of the non-QB related text and
'execute it in a QB environment to retrieve QBCRC10.LZH.
DEFINT A-Z:DIM SHARED A(685)AS STRING*63,I,T$:FOR A=0 TO 6:P(A)=2^A
NEXT:T$="abcdefghijklmnopqrstuvwxyz":T$=T$+UCASE$(T$)+"0123456789()"
G"vKyFlSHwnTqydaaaKDaaaqyJrvasaleLqdj1qXaJlcf0u1ABtaaadcS3MoB842Xp
G"cDd8CngObsuXjjsM0j6EhajrITeY3KjEYbonXbw9UKB5rRuFdFBQi)XXV)9TkFCl
G"xBDwS4jHT1GY9kWBaVqod)9RTrtjh8(H5bIy6lU)qkNe6xJeC)YNwVFFZr((fI4L
G"eN4eRh1afG8Gto6vnMp9DJU3GFyK6mt5UFISTNrTD)vICoU(3my1vJQN74sj9NT9
G"YtmSxU2DE7K8Ni1N7LOTFzvV6t)TDBIFYz)PxlFCfYYUMbpWKoj2A7oSrmvluxV(
G"pL7AINBNiKz0uxcg4JVCtu0mWbWEP6K0h3E)S8m81lhGSfxWMVSpCHM23fdqwt2T
G"ygYFeQtLx93HpPxy00DSfF0(jmFZ)n3p9h78pl(XbUT7wUD)kYxF6R7CC5KfLDaN
G"hYrkmcxB021SkY8zeHNnt8Bj5VxGNeUD(USSFp6Ywd0qZR2V(OfGGgORVueuv6Mk
G"Vf0(z5NR(bgGGO05D2PM1ESFWA(7XE1zGYtas8upqLbGfT73VDnLVnMUtvkWxjN)
G"jvR7HFU5PO7vlzn)GhoVCTt6(imn(KdA2F0RBOwZ2((qY63(QC8hfh)gOo99k6CQ
G"qAW1t26rF3QeQ(vqKzDL96RpcjNK6EYrzjRwXk270t(ZagDoEbJzUpaOj)6vVjYF
G"zYJMVTAHRtWppCLNmei8mMNE6UQccG0xCYJ3WIvs9)0jRQDx)YDyZpMcexXYV68C
G"BSy9yg)7n44AuGQp)kxSYPmZTGGvv(MyBhOs5HQUqhUsnLQSEhSsob1AqfRu6g1G
G"DE3bIzzPIB0CSkj7HtRDKkO3sm8CWk4KrKewOsitJ8RCdiCHfush3QTtdOdxrAV2
G"v8Bb6Kwk4nIdIjzkwwQekDApjhbppj5wQqFYrPPzQO3jkjyLQqzOkPgOclvOYfxv
G"s)ICfKgxEGnItMel0phbXSM1OQRyKKzjYiAKkyTGTgNLI0KhnqILHSizwzjvruce
G"4C5mwlkhMTASkeUIKwsLM4L4l6G9WW4f9eHQMK1IYGbvCs3cZoMvnuDrPQVc4LoS
G"wCfOGGEQ9cYnjWURwX5sziiO7qd8gJJCejErPhbfOM3aIuG2MOb7wzzWYpcCVVsi
G"sdjNEL51LmYe0JFQjahLo09Giw2XyeANgEsvygmT6mAMaOrowfCejvCkmos9OSDI
G"FW0gjmGTRmhTNoixHOiQvvtPryYkO8aSq4QbSyY4ItINloQirZavvxBmWKymWeJS
G"D4bm3wuRNifXjjyHlYmlHeXGA2EuoG9cFPxcgNgrHggOMMIOjvfmCrLkJQjnfA61
G"ul8TTbjJYf924kIC(IYP1b5JmgTlNYNxlUgZkZtqY0l4TYTuFmhQs1d6wCUXfylI
G"8jUELzROrLsSnMvmd6PnxrXMHvRc7dLasyGoonRLRcrHXLs3QICgBfysGRPk09PR
G"(GMaqvoqFQivRuNQfmPOHK1Jg0KYeNeBHGJnIHH0WOGdWseKFqsAi50uQ8epskYs
G"CJrIm0ymjPdWJyZkruQ8bzrzlk)rwBJ4TVqKiu49fKEIZiWYZmQMVuPNKTOCjMKR
G"2uwuE4SeJseNuajrxtfKUswaoQUfJQe6QC1vqU8zPX1kY9jVocVc5XQjLePBsckt
G"yyfbmIsgFNxkGoQELpsYsMyVONIvbdYuKm2tr6Zq46eSY2gryIlSaKGvOlM2g8rq
G"wWu5DPbQk4TdArUKkAwiGLtPytmMBm1OkgsICxWMCkcsxeohNIXglsYX2kajPcTq
G"JKW2AwLxWHCGaKemKskAGmigw9exFRo8AxGGjNlmKke4yRGdvanwvWqJJHVN55Nc
G"ClaDRlu6OX8iuVNAPnZsKGYPXl8bDfjgyH5kNvugKOCB5ss6DG6Hv99(0EXvjLwg
G"2xOfLRcLPdLWDBj49NPXfOTfGk3wClg3s70JzKfWYcntGqm7jdMLqbrvIBjqqFf9
G"YIXSPQiflluswDHagBfx4gkBuOV54Ea4wrpNsIgmozLUiHdqaLQqAGTd(mJUjN0l
G"siMin01biNIA5NLaZDeIYWQqwKkeSkcz9lhXjaa5wxQPrYHrlkVHjehFeLqtLOu3
G"fctpIqluwmJUW1iqyrlkNIbv1UWx(wdeAAryyqWnBH0v4sarvqXySvwjbU6VG3tw
G"XbiwTO3oGwv2kc39cA9rBLU5DPnd(lJU3QBeMnAZlyZeqtq4uuyeyAf5sTUi9ofk
G"Rd4QyodUkZSq9Gz4pjCbcIvuBvyFowMWt7KQM7WimufaJsymTYvaG)aWjEcHsCkU
G"cdvHriOa3iojeGwokXRa4PwGVrHOKWz7Ecw8avsOP5Rz1HBlLH52zvi6H4uiBs5n
G"h97eXjTz(bRaH0SE7IZHddtUGCdx4UyeTE2f96BKLQuSK2TWSWUZEEfMlzcGfOXh
G"UyVJcrQpnITUzCnMLkkIi81vX4O6aKxYlmuv(qBXytTWB6qpjSz0nUw1ARucIskZ
G"Il1tQzXk2P5eWKMCCGQeNTWomOM0bSQ74LOjSHHLWyv9q71PmpKgqnZdGL4kyLMW
G"Yes0k1OwZfigj2U4ucc1HQunNqiajf(C4kHeySf8P(tdsjIduBRbmjhOxdX8wuYm
G"aj5OWf96Gc)jQiWWlct2QyjyOKWH00AqBPllhwrUx0Wa64K8YENpslPBH5bDAtpb
G"i5XOzLwvgDQmYQSnrekVSh3pqg1TW8PiyqRR0vpqYdAbRNqPQqPNq)0tig0tfpFF
G"MmbTwP(bneSBH4i1b)Yqeh2GLN1ZgZymqgWkW1k1qI7Gp0gsOnPLiRa3KuiB5r8k
G"1lyCMVyOikrkS(Oyij6TUE4qeK0IdtiqG5igGu3(nik5PgQKHgtYWJL25gP8UQ1t
G"T)vW9g)MFx3r8nOCKUS75a3oPB7)yH5t)z)UmF3zbDfDq5sVrM)(((d2v2Z0237D
G"goUZeDVu99tfMDFHKRP88)HG7FA69NSpy76hNNRC2z4AwEO(Kz39lFD7DgZo51B)
G"LbmhAO)T(3n2F0(JFsdVFVgpFA2)BFE4NSE(K)8FF)fc71tqxo8DxU6HnxtX3UX0
G"Lu)XRNDAH8r2o46R07Dg(6J3AlAl8(aia2(hShmn8bYdX)Au9EP6C0hb4SMIo5I8
G"lgr3s5VEpqODWX7na(TQU5FoE1O79bSayJv02mPxGBkbpsYTF8E7ZkDouV0n4Vwj
G"CAJ31AD31Lxd0KM49YhLPD9QBnhNCtz4F(0BBg33KBx8l7D4lWgoKHhb9TFqC14H
G"17ffp2IxJ47M9JxFdA4CybhC4DybwZrmv9D))o90)yw(7WdDL)RpToYWt87(Fg9x
G"3OeYn5n8G78mIB0s28g0PmC1Zw9BJ8fIWEXrjGrWuH3ShU6LFVjdJck1CeCHEWLq
G"CW5H5gahJUcqoF(MU)rsgmD766eGJzSv4537SYb1ucBHMDo8YQH5pWIl15PtW7aG
G"TyfRzRaKGtnZ9TBA05FDFHdEDg9(1pYpBdrE0QnJbuJR)8PGeNl3FOcDejmSUgD7

G"0)Dg6J3DWfEC)TRTCaKEYsoV4WmVdWiLgTaCQNDfewN(9s7W7tFcZAnGJqCc0V4K
G"Jw5sFCtF4ZwiXpfo9IBLTNvdUKQtWkIp7DZHxjxpy8h3Ko66RO)KJVz3AgWDEIG7
G"8AlWlm0hFCtwQ8v67oy6JmHnZoKQ)VFGPrU18f25fcVnAF4p3Y6JZgB1FwZwhGFc
G"fRM1X3)YCsZHu8)o0sF1t(jiurf2(QLspX)a8hmV02d)GobZtMVG2HOdN)WpY)QY
G"ZIE1Yk9lbUUTC5J6Yxuwb6V9j8kjDQAaR6asBl16S9DJV4)gU06s5CWKOMJcRGem
G"WhBFb1iOM4QLo0EmTbCD5FFNFT6xqB63I7xlE2FVwm6760A)3D77tw2uE2lphKPq
G"qF2NUU2kPVURnWTnlMefMp0ZriBn4VGGNB12HTSXWDFvzQrCimhYkNH08shU78IH
G"4yThecEHOp)dMjuAwtATp(jHGlYs0DABjWmx5iJctkYQer5LQ)uR64S6Gap6B3xt
G"b6uuKdo4g3PGZvOoHU))Z1pXPVRTClUT7pN92X2UpVoyN821dWEoUFJvlY(j1Vu7
G"iibUIbFGUAV9aBsuoDhWTpFkW5CS9B5bpltec9XAHTfVb7Cko4qw(CdHdo1nwAek
G"2a5YhDwf5(UzJKynJdHX7Gop4XGHfk)QFR1W7fKJVHdGYCdZ4ah6Z3wpgFLtto6c
G"7Ol6lnxCjJbgkSirdieDBLk9kGT9I4(c8ojO2ExxaMOq8ZZp7DbpGmgn45fDTjbV
G"S8vJMHro4Vo0rF6rv26rZ7UcBBf8Hus(hcQa9IG(gd((U9B9B261Fho)z7Hi(fIv
G"W)W357JdBjf3wdp8WdBo0T1AWlPfVg0TZV86MjeVT4vb(89dZbcRLcxEztCt8TUo
G"o9iCfYC8)pSK)HHcfjnesbvVa)0fokvBp7luT(3aRf(d(yXNrHZPrSjQDXGWJiOc
G"w5xkm7dOsYGxD4O7LTZfubTIXhpZqgRc0EGDzL05z67L7h2HmUjRjulGDN(bJki2
G"zt)ZfWSG9T36eG)f1LOo5tyWJRacPV8TI(LaVIs3Zbit)p(4FdoaO9KpUUS7sdJQ
G"y)p7)l)t)wrD2)VWe)xOI)OVqtXF7PzRfRqu)xF(8oYRpCeyrV7kwwpOcM3)gqJa
G"AlnajMI9)xF31E1MTaX4D)6oLqhx368kRU6d953wLP8iYd20koDDScoJ4sQ)6V63
G"jfaaa"
K=255:IF I<>75 THEN ?:?"Page 1 is invalid!":END ELSE IF J THEN END
OPEN"B",1,"QBCRC10.LZH":N&=3499:FOR Q&=1 TO N&:IF L=0 THEN GOSUB G:L=6
?(100&*Q&)\N&;"%";:W=T\P(6-L):GOSUB G:W=W OR T*P(L):B$=CHR$(W AND K)
L=L-2:PUT 1,,B$:LOCATE,1:NEXT:?"File Extracted: QBCRC10.LZH":END
G:T=INSTR(T$,MID$(A(L&\63),L& MOD 63+1,1))-1:L&=L&+1:RETURN
SUB G(B$):A(I)=MID$(B$,2):FOR Z=2 TO LEN(RTRIM$(B$)):C$=MID$(B$,Z,1)
Q=Q+ASC(C$):NEXT:I=I+1:V=(Q AND 63)<>(INSTR(T$,LEFT$(B$,1))-1):?I;
LOCATE,1:IF V THEN ?"Physical Line";I;"is bad!":EXIT SUB ELSE END SUB
~~
--- MsgToss 2.0b
 * Origin: Computer Co-Op - Voorhees, NJ | Ted Hare (1:266/29)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET