Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase


Activating McAfee's PGP to Create a Self Decrypting EXE

Keywords: 	 McAfee's PGP self decrypting EXE

;----------------------------------------------------------------------  
;** This is an example script for activating McAfee's PGP product to 
;** create a self decrpyting exe file from an ASCII text file.
;** 
;** Kevin Bell (kbell@src.cc.il.us)
;----------------------------------------------------------------------  
  KeyToggleSet  (@CAPSLOCK, @OFF)
  RunShell      ("...\network associates\pgp\pgptools.exe", "",   _
                 "...\network associates\pgp\", @HIDDEN, @NOWAIT)
;----------------------------------------------------------------------  
;** bring up the PGP tool bar and press the button to create a
;** self decrypting executable file
;----------------------------------------------------------------------  
  WinActivate   ("~PGPtools")
  WinWaitExist  ("PGPtools",-1) 
  SendKey       ("{TAB}{RIGHT}{SPACE}")
;----------------------------------------------------------------------  
;** place the file name we want to encrypt, then press 
;** the "open" button
;----------------------------------------------------------------------  
  WinActivate   ("~Select File(s) to Encrypt")
  WinWaitExist  ("Select File(s) to Encrypt", -1)
  SendKey       ("x:\xxx\x\xxxx\xxxxxxxxxxxxx")
  SendKey       ("!o")
;----------------------------------------------------------------------  
;** choose the self encrypting archive option
;----------------------------------------------------------------------  
  WinActivate   ("~PGPtools - Key Selection Dialog")
  WinWaitExist  ("PGPtools - Key Selection Dialog", -1)
  SendKey       ("!d{ENTER}")
;----------------------------------------------------------------------  
;** enter and re-enter the encryption password
;----------------------------------------------------------------------  
  WinActivate   ("~PGPtools - Enter Passphrase")
  WinWaitExist  ("PGPtools - Enter Passphrase", -1)
  SendKey       ("xxxxxxxxxxxxxxxxx")
  SendKey       ("{TAB}")
  SendKey       ("xxxxxxxxxxxxxxxxx")
  SendKey       ("!o")
;----------------------------------------------------------------------  
;** apply the previously created file name for the encryption file 
;** name (in this case it is named in the variable "eFile")
;----------------------------------------------------------------------  
  WinActivate   ("~Please confirm the filename of this SDA.")
  WinWaitExist  ("Please confirm the filename of this SDA.", -1)
  SendKey       ("%eFile%")
  SendKey       ("!s")
;----------------------------------------------------------------------  
;** all done! close up the PGP tool bar
;----------------------------------------------------------------------  
  WinActivate   ("~PGPtools")
  WinWaitExist  ("PGPtools",-1) 
  SendKey       ("!{SPACE}c")
;----------------------------------------------------------------------  
:CANCEL  
;----------------------------------------------------------------------  
  Exit

Article ID:   W14951