Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : SERIAL.ZIP
Filename : SERIAL.PRG

* Program Name: serial.prg
* Author: Dave Irwin
* Copyright (c) 1988 by Software Solutions
*-----------------------------------------------------------------------------
* Created: 12/6/1988 at 22:33
*---------------------------- ALL RIGHTS RESERVED ----------------------------
* This routine will 'BURN IN' a serial # and file server name onto an EXE.
* Linking: TLINK SERIAL CODEIT,,,EXTEND CLIPPER

fhandle = 0
DO WHILE .T.
file = space(25)
serial = space(15)
fs_name = space(48)
SET COLOR TO 'W+/BG'
CLEAR
DO frame_ with 1,0,22,79,''
@3,15 SAY 'Software Solutions Serialization Utility (v1.4) '
@6,5 SAY ' to quit!'
@5,5 SAY 'Enter .EXE file name (no extension) => ' GET file PICT '@!'
READ
IF EMPTY(FILE) .OR. LASTKEY() = 27
DO JUMPOUT
ENDIF
FILE = ALLTRIM(FILE) + '.EXE'
IF !FILE(FILE)
? chr(7)
@8,5 SAY 'File can not be found'
DO JUMPOUT
ENDIF
@ 8,5 SAY 'Enter Serial Number to tag to &file. ' GET serial PICT "@X"
@10,5 SAY 'Enter File Server Name: ' GET fs_name PICT "@X"
READ
serial = substr((ltrim(rtrim(serial)) + space(15)),1,15)
fs_name = substr((ltrim(rtrim(fs_name)) + space(48)),1,48)
TT_SERIAL = FS_NAME + SERIAL

* You may wish to first encrypt TT_SERIAL here!
* Be sure that your encrytion routine maintains the SAME string length!

* BURN IN THE SERIAL NUMBER AND FILE SERVER NAME INTO THE EXE FILE
IF SERIALNUM(FILE,TT_SERIAL)
@14,5 SAY 'Serial Number tagged to &file. '
ELSE
@14,5 SAY 'Error in writing to the file. File now closed.'
DO JUMPOUT
ENDIF

* NOW LETS READ THE EXE FOR THE SERIAL AND FILE SERVER NAME TO CONFIRM!
mSERIAL = SPACE(15)
mFS_NAME = SPACE(48)
DO GETID WITH file, mSERIAL, mFS_NAME

@17,5 SAY 'Server Name: ' + mFS_NAME
@19,5 SAY 'Serial Number: ' + mSERIAL
@23,5
wait
enddo
DO JUMPOUT
RETURN

procedure jumpout
set color to
IF FILE('SERIAL.TXT')
ERASE SERIAL.TXT
ENDIF
clear
quit
return

procedure frame_
parameters x1_,y1_,x2_,y2_,w_title_
frame_ = chr(218)+chr(196)+chr(191)+chr(179)+chr(217)+chr(196)+chr(192)+chr(179)+chr(32)
@ x1_,y1_,x2_,y2_ box frame_
@ x1_,y1_+2 say w_title_
return

*** EOF ***