VOLUME SERIAL NUMBERS

 BBS: Inland Empire Archive
Date: 03-26-93 (16:32)             Number: 383
From: ANDY WARREN                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: VOLUME SERIAL NUMBERS          Conf: (2) Quik_Bas

'Recently I asked for some assistance in learning to change the volumer
'serial numbers on disks formatted by DOS 4.0+. Here's a short program
'that will allow the user to display/change the serial number. BTW, what
'got me started on this was an idea I had to use the serial number as a
'way to limit distribution of beta copies of a program I wrote. Any
'comments?

CLS:?STRING$(50,178):'This file created by PostIt! v4.0
DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"SERIAL.BAS"
T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()"
G"NOnXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXet
G"mXetmXetmXetmXetmXetmXetmXetmXe)BdkCYSGaLupDKub1ei6aYufjvsbXKlcf0uGaci
G"GaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaYSnO
G"WjZccuvjfupnvrGOdisvwyK9YqOfMBNvgieL2CRbYuLjxAHXgiovxBIvMCOivzXvxAYv2C
G"Gq0ttbsp(acnUatkGaciGaciGaciGaciZ2GcNmlibvfvi9KuGaIoGeKBKLhixfMCYvMBGa
G"ciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGmBd
G"kCYSGivrwL0uj9Kt6asmUadiGedmG0uyYbsoZaciGaciGaciGaciGaciGaciGaciGaciGa
G"ciGaciGaciGaciGaciGaciGaciGaciGaYSnOWjZcYuufevvnfiGOdiqvNySL2yGq0BTfwA
G"UbciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciZ2
G"GcNmlio9evfnfiGaIoG0uEGqhAH52AZbcDVbcrPn2AGquzU5wAZ9MBGy2BYbcDOvgiOvgB
G"WLMBNbcAH5gzHaciGaciGaciGaciGaciGmBdkCcWetmXetmXetmXetmXetmXetmXetmXet
G"mXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetmXetC2
G"nOqdkCcjj50qmvfrfPdiNeNyUiwANaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGC
G"IyLbYC1jxzGq3BGmhDHjhDGeLqnOqcjKqcjKqcjKqcjKWj1nxAUDgi0HwzG8ctG8gC0L2B
G"UfsdkqvwqveitvMCPfgBefgDH1GcjKKBM9gibnfij5evfDurs1GcjmvzYLwyS5uDTbsqtb
G"ctp50rnOqcgfgDGe0uGmfvsLKthbIkGGtdkKatHjwzSjdibnfitrLuj50rGOciXetdkKat
G"HjwzSndibnfitrLuj50rGOciXetdkuKtebcvzbvrnOqdkqusnbIuLDwAZrxzYnhibnfisv
G"0zuLhCL1GceLutGivzNnhibnfisv2zuLhCLHfiGaciGaciGaciGaciGaciGaciGaciGaci
G"GaciNmxz0bsDWbcDOvgiYv2zPnhDLj3CnOarj1eiuvwBWbsqtbYuLjxAHXgrHrxyGaciGa
G"ciGaciGaciGaciGaciGaciGaciGaYjMacDOvgiKfgDH1GcnOqdkivzNL2C0vMCZ5sqybsp
G"GycsZadmWaciGaciGaciGaciGaciGaciGaciGaciGaciGCIjOndmG0dihvgDe92CwvMCnO
G"WqbXetGKKB0vMCYvhC0HIjijtmSaIuLDwAZrxzYnhlGivzNL2C0vMCZLciGaciGaYjJfgB
G"SbsA05IlU0GcnOqsgbIuLDwAZrxzYnNlbHfib5erGitn1acpGqdiuHurobciGaciGaciGa
G"ciGaciGaYjNvgDGyxySvxzGmhDVjxzKbsAUbsqm1GcjaLuj5evGiIuLfxDPjxzZbcrpnfi
G"wvMCZL2BUbcnUadiVjhiOL2zOvMCIaciNeMB5rhAP52zGWwzZnhi0HwyUbcnnOqcf5erGa
G"ciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaYj39MBNqhi39MCR1Gc
G"f5erGKKrnOqdkKKrGWuroHIuujvsnrckd9utnfKterskPaspGidiuHurobciGaciGaciGa
G"ciGaciGCICLfgzGmxzYLwySXciU9gi3jxA0vwdkKarYLMDLbspGe0udHctfzevKGYqp1ut
G"b5erKWciXKskG0ci2qdiGaciGaciGCsq9edlGiupYWciLr3yU4sdkKqqJrxAV5gi9aIjiz
G"toWadiGaciGaciGaciGaciGaciGaciGaciGaciGaciGCYCLrhiZvMC2L2yLbcDVbICLfgz
G"G8MBSLxdkuettvusgbctf5ekd9utnfKterskG0diXediuHurobciGaciGaciGaciGaciGa
G"ciGCYyOfMBNvgiZvMCPfgBnOqcejxA2vgi9asqtnekmvKrurckd9utnfKterclGetkPasl
G"GydnnOqcbngDP9MBG0diMGKn5atmGaciGaciGaciGaciGaciGaciGaciGaciGaciGaYjZv
G"gDGmxzYzxAJvgi09giYvwyK9YDYLgDL1GcjqvzTbNltvMCPfgBovxBG0diwfetOiIjijci
G"RaIujDesurckd9utnfKterclGGtkPaciNegzKbIjibcDVbIBLDxdkuettveiGaciGaciGa
G"ciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGCYCLjxAHXgiH5gzGm2BUzxz
G"Yrhi09giS9MBN1GcjaLuj5evGiYufjvsbXeiBrMCPzxz60fiBnxzYLwySHcE4HhE4HhE4L
G"sxIaciN42BViwyKbYyV1wBH5gzGWwAUvwdkKqroreiGaciGaciGaciGaciGaciGaciGaci
G"GaciGaciGaciGaciGaciGaciGCYCO92DG8gC0L2BUnxdkuKtebssg1GcnOGuLD2CUeewG0
G"dibngDP9MBGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaYjZvgDGmxzYzxAJvwd
G"kivzNnNlIHhi9acrYLMDLbciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGCIjGq
G"MCPzxznOGuLD2CUq0uG0diwfKutv0rOqvzTbxknOGuLD2CUqewG0diwfKuqrLuOqvzTbxk
G"nOWqbXetGKKB0vMCYvhC0HfkMGKmXWcisv2zZXcisv2zZLciGaciGaciGaciGaciGaYjJf
G"gBSbsA01GcnOWuLjxAHXMtIjhjG0diivewKGcvL1gCUmvzYLwyS5uDTLciGaciGaciGaci
G"GaciGaYjJ9MB2vMC0bcDVbcALHxdk0GcqjvsorfiImvzYLwySbIt11MyLjNoGiYoGWurgr
G"fjOmvzYLwyS5KyYrclGqtk7aIiTiYoGivshHevKGYuLjxAHXMtIjhjSacnP0Gcf5ernOqd
G"ka"
N=2416:K=255:IF LEN(C$)<>3222 THEN ?"Incomplete script file!":BEEP:END
FOR A=1 TO N:LOCATE 1:?STRING$(50*(A/N),177):IF L=0 THEN GOSUB G:L=6
W=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXT
?:IF C<>41 THEN ?"Bad checksum!":BEEP:END ELSE ?"Success!":END
G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
SUB G(A$):SHARED C$:C$=C$+LEFT$(A$,70):END SUB
---
 þ SLMR 2.1a þ Backup not found: (A)bort (R)etry (P)anic

--- TMail v1.31.3
 * Origin: Cornucopia TBBS - Winter Park, FL - 407/645-4929 (1:363/18)