DLL call in ASP that I need to convert to VFP

[SBTBILL]

This code calls a framework routine that is used by our VB/ASP programmer. I need to call the same SQL field from Fox via ADO. I also need to decript. Any suggestions how to convert this call to VFP?

System.Security.Cryptography is the name of namespace.



These are the functions created to encrypt / decrypt a string

public static string Encrypt(string clearText, string Password)
{
byte[] clearBytes = System.Text.Encoding.Unicode.GetBytes(clearText);

PasswordDeriveBytes pdb = new PasswordDeriveBytes(Password, new byte[] {0x49, 0x76, 0x61, 0x6e, 0x20, 0x4d,
0x65, 0x64, 0x76, 0x65, 0x64, 0x65, 0x76});
byte[] encryptedData = Encrypt(clearBytes,
pdb.GetBytes(32), pdb.GetBytes(16));
return Convert.ToBase64String(encryptedData);
}

public static byte[] Encrypt(byte[] clearData, byte[] Key, byte[] IV)

(
MemoryStream ms = new MemoryStream();
Rijndael alg = Rijndael.Create();
alg.Key = Key;
alg.IV = IV;

CryptoStream cs = new CryptoStream(ms,
alg.CreateEncryptor(), CryptoStreamMode.Write);

cs.Write(clearData, 0, clearData.Length);
cs.Close();

byte[] encryptedData = ms.ToArray();
return encryptedData;
}

public static byte[] Decrypt(byte[] cipherData,
byte[] Key, byte[] IV)

{
MemoryStream ms = new MemoryStream();
Rijndael alg = Rijndael.Create();
alg.Key = Key;
alg.IV = IV;
CryptoStream cs = new CryptoStream(ms,
alg.CreateDecryptor(), CryptoStreamMode.Write);

cs.Write(cipherData, 0, cipherData.Length);

cs.Close();
byte[] decryptedData = ms.ToArray();
return decryptedData;
}

public static string Decrypt(string cipherText, string Password)

{
byte[] cipherBytes = Convert.FromBase64String(cipherText);
PasswordDeriveBytes pdb = new PasswordDeriveBytes(Password, new byte[] {0x49, 0x76, 0x61, 0x6e, 0x20, 0x4d, 0x65, 0x64, 0x76, 0x65, 0x64, 0x65, 0x76});

byte[] decryptedData = Decrypt(cipherBytes,
pdb.GetBytes(32), pdb.GetBytes(16));
return System.Text.Encoding.Unicode.GetString(decryptedData);


Thanks for the help
Bill Couture