home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / POWBASIC / LIBRARY3 / PASSWORD.ZIP / PSWDWRIT.BAS < prev   
BASIC Source File  |  1990-10-31  |  820b  |  28 lines
  1. 'Program Name    : PswdWrit.bas
  2. 'Author          : Lloyd L. Smith for Spectra Technical Support
  3. 'Date            : 10-31-90
  4. 'Compuserve #    : GO PCVENB, Vendor #12/Spectra,  Tech Support ID 71530,2640
  5. 'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
  6. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  7. 'Tech Support Voc: 813-625-1172  Voice
  8. 'Description     : Program reads you exe file, locates password, write a new
  9. '
  10.  
  11. open "pswdfile.exe" for binary as #1
  12.  
  13. cls
  14. for i&=1 to 64220  'this number must be bigger than the length of your exe
  15. k$=inkey$:if k$=chr$(27) then system
  16. locate 1,1:print i&
  17. seek 1,i&
  18. get$ 1,6,a$
  19. k&=i&
  20. if a$="secret" then
  21. print "We found it ":beep:print i&
  22. seek 1,k&
  23. put$ 1,"poop  "
  24. end if
  25. if eof(1) then exit for
  26. next i&
  27. close #1
  28. print "Done!"