home *** CD-ROM | disk | FTP | other *** search
/ Hacks & Cracks / Hacks_and_Cracks.iso / vol1 / htmlst.zip / CRACK.CMD next >
OS/2 REXX Batch file  |  1997-02-12  |  1KB  |  46 lines
  1. /* OS/2 REXX -- PATCHPAK TOOLKIT */
  2.  
  3. PSpec = 'HTML Studio 1.5'
  4. FSpec = 'htmlstud.dll'
  5.  
  6. Say ''
  7. Say 'This will patch' PSpec
  8. Say ''
  9. Say 'A DBL-CLK on the Help/Product Information dialog box will'
  10. Say 'allow you to register in any name and serial number...:)'
  11. Say ''
  12. Say 'If you like it...buy it! Support quality OS/2 Software...'
  13. Say '...meantime tho....have Phun! :)'
  14. Say ''
  15. Say 'AQPFEPO by SafeHex...all the way from New Delhi, India :)'
  16. Say 'BTW, AQPFEPO = Another Quality Patch For Educational Purposes Only! :>'
  17. Say ''
  18. Say ''
  19.  
  20. If ( Stream( FSpec, 'c', 'Query Exists' ) = '' ) Then Do
  21.     Say 'USAGE: Just run this in the installed' PSpec 'Directory!'
  22.     Exit
  23. End
  24.  
  25. Say 'Patching' PSpec'...'
  26.  
  27. t = CharIn(FSpec, 183057, 16)
  28. If c2x(t) \= '550C8D45D8E87E4C010085C075166A01' Then Do
  29.     Say 'Verification Check #1 Failed...'
  30.     Exit
  31. End
  32.  
  33. t = CharIn(FSpec, 267537, 16)
  34. If c2x(t) \= 'DB2BC35BC9C35E33C05F5BC9C3000000' Then Do
  35.     Say 'Verification Check #2 Failed...'
  36.     Exit
  37. End
  38.  
  39. Call CharOut FSpec, x2c('550C8D45D8E87E4C010085C090906A01'), 183057
  40. Call CharOut FSpec, x2c('DB29C05BC9C35E33C05F5BC9C3000000'), 267537
  41.  
  42. Say 'Patches applied to' PSpec
  43. Say ''
  44. Say 'Feel the POWER -- OS/2 REXX!'
  45. Say 'Have Phun! Compliments of a desperate SafeHex :)'
  46.