i'm about ready to start pulling out hair here.. i know i doing something really really dumb. can some please point me in the right direction. (i will post my decrypt function but if needed i can post the other.)
private sub decrypt()
dim nByte as Byte() = Convert.FromBase64String(s)
dim a as new System.IO.MemoryStream()
a.Write(nByte, 0, nByte.Length)
dim outputtext as new System.IO.MemoryStream()
dim apple as string ="appleberryappleberryjoh"
dim berry as string ="appleberryappleberrytan"
dim tdesKey(23) as byte
dim tdesIV(23)as byte
dim byteIndex as integer
dim AscEncod as new System.text.ASCIIEncoding()
'encode the keys
AscEncod.GetBytes(apple, byteIndex, apple.Length, tdesKey, byteIndex)
byteIndex = 0
AscEncod.GetBytes(berry, byteIndex, berry.Length, tdesIB, byteIndex)
dim bin(100) as byte
dim rdlen as long = 0
dim totlen as long = a.length
dim len as integer
'dim tdes as new system.Security.Cryptography.TripleDESCryptoServiceProvider()
dim encStream as new System.Security.Cryptography.CryptoStream(outputtext, tdes.CreateDecryptor(tdesKey, tdesIV), Security.Cryptography.CryptoStreamMode.Write)
try
while rdlen < totlen
len = a.Read(bin, 0, 100)
encStream.Write(bin, 0, len)
rdlen = rdlen + len
msgbox (rdlen) 'keep getting a zero here error somewhere above
end while
Finally
encStream.Close()
outputtext.Close()
end try
dim encoded() as byte = outputtext.ToArray()
Me.TextBox1.Text = Convert.ToBase64String(encoded)
s = me.textbox1.text
end sub
thanks for any insight that u can give me.
--------------

private sub decrypt()
dim nByte as Byte() = Convert.FromBase64String(s)
dim a as new System.IO.MemoryStream()
a.Write(nByte, 0, nByte.Length)
dim outputtext as new System.IO.MemoryStream()
dim apple as string ="appleberryappleberryjoh"
dim berry as string ="appleberryappleberrytan"
dim tdesKey(23) as byte
dim tdesIV(23)as byte
dim byteIndex as integer
dim AscEncod as new System.text.ASCIIEncoding()
'encode the keys
AscEncod.GetBytes(apple, byteIndex, apple.Length, tdesKey, byteIndex)
byteIndex = 0
AscEncod.GetBytes(berry, byteIndex, berry.Length, tdesIB, byteIndex)
dim bin(100) as byte
dim rdlen as long = 0
dim totlen as long = a.length
dim len as integer
'dim tdes as new system.Security.Cryptography.TripleDESCryptoServiceProvider()
dim encStream as new System.Security.Cryptography.CryptoStream(outputtext, tdes.CreateDecryptor(tdesKey, tdesIV), Security.Cryptography.CryptoStreamMode.Write)
try
while rdlen < totlen
len = a.Read(bin, 0, 100)
encStream.Write(bin, 0, len)
rdlen = rdlen + len
msgbox (rdlen) 'keep getting a zero here error somewhere above
end while
Finally
encStream.Close()
outputtext.Close()
end try
dim encoded() as byte = outputtext.ToArray()
Me.TextBox1.Text = Convert.ToBase64String(encoded)
s = me.textbox1.text
end sub
thanks for any insight that u can give me.
--------------