Digital Workshop

function Load1CryptDLL()
{
   MyDLL=LoadDLL(SYSTEM_WINSYS_DIR+"OneCrypt.dll")
   if(MyDLL)
   {
      //Debug.trace("DLL loaded")

      }

   else
   {
      Debug.trace("DLL not loaded")
   }
}

function EncryptString(Key,EInString)
{
         EOutString=MyDLL.CallFn("EncryptString","false","string","string",Key,"string",EInString)
   }

function DecryptString(Key,DInString)
{
         DOutString=MyDLL.CallFn("DecryptString","false","string","string",Key,"string",DInString)
   }

// LOADS THE CIPHER DLL WHEN PUBLICATION STARTS
OneCryptDLL = LoadDLL( SYSTEM_PUBLICATION_DIR + "OneCrypt.dll" )

// SET THE KEY / PASSWORD TO DEFAULT
// THIS CAN BE CHANGED OR A VARIABLE USED
myKey = 'default'

//ENCRYPTS THE PASSED PLAINTEXT AND RETURNS THE CIPHERTEXT TO THE CALLING FUNCTION
function Encrypt(myString)
{
   if (OneCryptDLL)
   {
      return  OneCryptDLL.CallFn( "EncryptString", false, "string", "string", myKey, "string", myString)
   }
}

// DECRYPTS THE PASSED CIPHERTEXT AND RETURNS THE PLAINTEXT TO THE CALLING FUNCTION
function Decrypt(myString)
{
   if (OneCryptDLL)
   {
      return  OneCryptDLL.CallFn( "DecryptString", false, "string", "string", myKey, "string", myString)
   }
}

// THIS IS A BASIC SAVE TO FILE FUNCTION. HOWEVER, BY INCLUDING THE TEXT TO BE WRITTEN WITHIN ENCRYPT ()
// CAUSES THE PLAINTEXT TO BE CIPHERED AND THE CIPHERTEXT TO BE SAVED IN ITS PLACE.
function SaveFile()
{
   var textObj = OpenFile("c:\\myText.txt",true)

   textObj.WriteLine(Encrypt("Hello World"))
   textObj.Close()
}

// AGAIN THIS IS A BASIC READ FILE FUNCTION. HOWEVER, BY INCLUDING THE READLINE WITHIN DECRYPT()
// CAUSES THE CIPHERTEXT READ IN BE DECRYPTED BEFORE BEING STORED IN THE myName VARIABLE.
function ReadFile()
{
   var textObj = OpenFile("c:\\myText.txt")
   myName = Decrypt(textObj.ReadLine())

   Debug.trace(myName)
   textObj.Close()
}