The following information is provided to help simplify using WET with
Visual Basic.  The information and example code is provided as is.
It was provided by a WET user in an effort to help other Visual Basic
users more easily take advantage of WET in their code.


'/* functions provided by WETSTD.DLL */
Declare Sub EncryptXORBlock Lib "WETSTD.DLL" (ByVal block As String, 
ByVal block_length As Integer, ByVal code_key As String)
Declare Sub EncryptTranspositionBlock Lib "WETSTD.DLL" (ByVal block As 
String, ByVal block_length As Integer, ByVal code_key As String)
Declare Sub EncryptSubstitutionBlock Lib "WETSTD.DLL" (ByVal block As 
String, ByVal block_length As Integer, ByVal code_key As String)
Declare Function CRCBlock Lib "WETSTD.DLL" (ByVal block As String, 
ByVal block_length As Integer) As Integer
Declare Function GetVersionWETSTD Lib "WETSTD.DLL" () As Integer

'/* functions provided by WETDES.DLL */
Declare Sub DESKeyloadEncrypt Lib "WETDES.DLL" (ByVal key As String)
Declare Sub DESKeyloadDecrypt Lib "WETDES.DLL" (ByVal key As String)
Declare Sub CryptDES Lib "WETDES.DLL" (ByVal datablock As String)
Declare Sub EncryptDESBlock Lib "WETDES.DLL" (ByVal block As String, 
ByVal block_length As Integer)
Declare Sub DecryptDESBlock Lib "WETDES.DLL" (ByVal block As String, 
ByVal block_length As Integer)
Declare Sub EncryptDESBlockCBC Lib "WETDES.DLL" (ByVal block As String, 
ByVal block_length As Integer)
Declare Sub DecryptDESBlockCBC Lib "WETDES.DLL" (ByVal block As String, 
ByVal block_length As Integer)
Declare Function GetVersionWETDES Lib "WETDES.DLL" () As Integer


Sample Code:

Sub EncryptString ()

   Dim sBlock as String
   Dim sPassword as String

   sBlock = "This is a test"
   sPassword = "MAEDAE"

   MsgBox sBlock & " " & sPassword

   Call EncryptXORBlock(sBlock, Len(sBlock), sPassword)

   MsgBox sBlock

   Call EncryptXORBlock(sBlock, Len(sBlock), sPassword)

   MsgBox sBlock

End Sub

' Make call to sub routine
Call EncryptString