lol well I copied and pasted it from vs .net, but I've done it before using this rich text editor

try
test = ComputeHashValue(System.Text.Encoding.ASCII.GetBytes(TextBox1.Text))

I just finished writing a SHA1 digester for Visual Basic 6. We needed this as a plug in for calculating the Psuedo-ESN in our cell phone database (KWC).

Hope it helps!

jt :eek:

http://www.tayloredge.com/utilities/...1_VBSource.txt
http://www.tayloredge.com/utilities/vbapps/iSHA1.e_e

public static string SHA1(string password)
{
byte[] textBytes = System.Text.Encoding.Default.GetBytes(password);
try
{
System.Security.Cryptography.SHA1CryptoServiceProvider cryptHandler;

cryptHandler = new System.Security.Cryptography.SHA1CryptoServiceProvider();

byte[] hash = cryptHandler.ComputeHash (textBytes);

string ret = "";

foreach (byte a in hash)
{
ret += a.ToString("x2");
}
return ret ;
}
catch
{
throw;
}
}

I really didn't want to just spit out the answer, but wanted for my own entertainment to write the digester itself.

jt