I am so frustrated trying to code my sample project, I am willing to pay someone to make a project or code that will do this. This project will need to be coded in vb.net 2008.
If you can code this please email me [email protected] or post here. Just give me an estimate on what this will cost, Thank you.
'///////////////////////////////////////////////////////////////////////////////////////////////////////////
I need the project to do md5(md5($password) . $salt)
There will be 1 form with:
• 1 textbox for a password
• 1 textbox for the salt
• 1 textbox for the outputted new md5(md5($password) . $salt) hash
• 1 button to compute the hash
Right now I created a username: test and the password: password the md5(md5($password) . $salt) hash is: 1596c3a4b703748ff0d87e88b6a2d98d the salt is: y:f
The program has to output the same hash from using the password: password and the salt: y:f
Here is a sample code I was testing but it don't work right.
Imports System
Imports System.Security.Cryptography
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strText As String = TextBox2.Text
Dim salt As String = TextBox3.Text
Dim bytHashedData As Byte()
Dim encoder As New UTF8Encoding()
Dim md5Hasher As New MD5CryptoServiceProvider
' Get Bytes for "password"
Dim passwordBytes As Byte() = encoder.GetBytes(strText)
' Get Bytes for "salt"
Dim saltBytes As Byte() = encoder.GetBytes(salt)
' Creat new Array to store both "password" and "salt" bytes
Dim passwordAndSaltBytes As Byte() = _
New Byte(passwordBytes.Length + saltBytes.Length - 1) {}
' Store "password" bytes
For i As Integer = 0 To passwordBytes.Length - 1
passwordAndSaltBytes(i) = passwordBytes(i)
Next
' Append "salt" bytes
For i As Integer = 0 To saltBytes.Length - 1
passwordAndSaltBytes(i + passwordBytes.Length) = saltBytes(i)
Next
' Compute hash value for "password" and "salt" bytes
bytHashedData = md5Hasher.ComputeHash(passwordAndSaltBytes)
' Convert result into a base64-encoded string.
Dim hashValue As String
hashValue = Convert.ToBase64String(bytHashedData)
TextBox4.Text = (hashValue.ToString)
End Sub
End Class
Can anyone please help me out? If you can code this please email me [email protected] or post here. Just give me an estimate on what this will cost, Thank you.

New Topic/Question



MultiQuote


|