Vb6 encrypt decrypt password

I adapted it from something I was using to encrypt byte sequences where I was not concerned with these sequences being printable. And what does it mean to dim B as byte? Who are you hiding it from? I think there is a database password hashing example in there. If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu. Are you referring to CVMichael's code linked to in post 27? Aug 21st, , AM 35 firoz. Neither of the project.

NET VB. Advertiser Disclosure: Some of the products that appear on this site are from companies from which TechnologyAdvice receives compensation.

This compensation may impact how and where products appear on this site including, for example, the order in which they appear. TechnologyAdvice does not include all companies or all types of products available in the marketplace.

Remember Me? Advertiser Disclosure. Advanced Search. Results 1 to 37 of Thread Tools Show Printable Version. Feb 9th, , AM 1. Feb 9th, , AM 2. Feb 9th, , PM 3. Feb 11th, , AM 4.

Feb 11th, , AM 5. Feb 13th, , AM 6. Re: Encrypting Password VB6. Feb 13th, , AM 7. Re: Encrypting Password VB6 That allows you to write two or more lines of code on one line, you could also do this: Code:. Feb 13th, , AM 8. Feb 13th, , AM 9. I'm guessing your next question will be about the? Print ie: print to the Immediate window.

Connection Strings. Feb 13th, , AM Originally Posted by RhinoBull. Length cryptoStream. ToArray memoryStream. Close cryptoStream. GetBytes saltValue ' Convert our ciphertext into a byte array.

FromBase64String cipherText ' First, we must create a password, from which the key will be ' derived. This password will be generated from the specified ' passphrase and salt value. The password will be created using ' the specified hash algorithm.

Password creation can be done in ' several iterations. Specify the size of the key in bytes instead of bits. Use default options for other symmetric key parameters. CBC ' Generate decryptor from the existing key bytes and initialization ' vector.

Key size will be defined based on the number of the key ' bytes. CreateDecryptor keyBytes, initVectorBytes ' Define memory stream which will be used to hold encrypted data. Read ' Since at this point we don't know what the size of decrypted data ' will be, allocate the buffer long enough to hold ciphertext; ' plaintext is never longer than ciphertext. Read plainTextBytes, 0, plainTextBytes. Length ' Close both streams.

Close ' Convert decrypted data into a string. Rijndael algorithm is quite good and has already been shared here.

Thanks though. SqlClient Imports System. Data Imports System. Forms Imports System. Object, ByVal e As System. EventArgs Handles Login. Click Try If constring.

Open Then constring. Close End If constring. ExecuteScalar ad. Show Me. Message, MsgBoxStyle. EventArgs Handles CheckBox1. Open If CheckBox1. EventArgs Handles btnSave. Text While CheckBox1. IsNullOrEmpty txtuserid. Text OrElse String. IsNullOrEmpty txtpwd. IsNullOrEmpty txtoldpwd. IsNullOrEmpty txtnewpwd.

ExecuteScalar 'ad. Text" If txtoldpwd. Length memoryStream. GetString ms. GetBytes clearText. GetBytes Using ms As New MemoryStream. Using cs As New CryptoStream ms, encryptor. End Using. Return clearText. End Function. FromBase64String cipherText. Return cipherText. Displaying the Usernames and the Encrypted and Decrypted Passwords. Once the DataTable is populated, a new column is added to the DataTable. Then a loop is executed over the DataTable rows and the encrypted Password is fetched and decrypted using the Decrypt function discussed earlier.

PopulateDataGrid ;. Fill dt ;. Add "Password" ;. ToString ;. Object , e As System. EventArgs Handles MyBase. End Sub. Private Sub PopulateDataGrid. Using con As New SqlConnection constr. Dim dt As New DataTable. Fill dt. Columns 1. Add "Password".