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)
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