home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 25 / IOPROG_25.ISO / SOFT / STAMP.ZIP / CODEIT.PRG next >
Encoding:
Text File  |  1989-05-11  |  1.2 KB  |  41 lines
  1. * Program Name: codeit.prg 
  2. * Author: Dave Irwin 
  3. * Copyright (c) 1989 by Software Solutions 
  4. *-----------------------------------------------------------------------------
  5. * Created: 5/11/1989 at 10:51
  6. *---------------------------- ALL RIGHTS RESERVED ----------------------------
  7. * Routines used in both SERIAL.PRG and TEST.PRG
  8. * 
  9. FUNCTION Serialnum
  10.     parameters f_file, f_serial
  11.     * you may wish to encrypt f_serial here!
  12.     memowrit("SERIAL.TXT", f_serial)
  13.     RUN COPY /b &f_file. + Serial.txt &f_file. > NUL
  14. RETURN((ERRORLEVEL() = 0))
  15.  
  16. FUNCTION Getserial
  17.     parameters f_handle, s_length
  18.     backtrack = (s_length + 1) * -1
  19.     fseek(f_handle, backtrack, 2)
  20.     oldstr = freadstr(f_handle, s_length)
  21.     * If you encrypted above, be sure to un-encrypt here!
  22. return(oldstr)
  23.  
  24. PROCEDURE GETID
  25. * READS THE SERIAL NUMBER AND FILE SERVER FROM AN EXE FILE!
  26.  
  27. PARAMETERS file, mSERIAL, mFS_NAME
  28.  
  29. mSERIAL = SPACE(15)
  30. mFS_NAME = space(48)
  31. TT_SERIAL = mFS_NAME + mSERIAL
  32.  
  33. fhandle = fopen(file)
  34. the_number = GETSERIAL(fhandle, LEN(TT_SERIAL))
  35. mFS_NAME = LTRIM(RTRIM(SUBSTR(the_number,1,48)))
  36. mSERIAL  = LTRIM(RTRIM(SUBSTR(the_number,49)))
  37. RETURN
  38.  
  39. *** EOF ***
  40.  
  41.