dr_aybyd
Aug 7th, 2010, 11:00 AM
Is there any good way to convert a vb.net code into PHP?
Here is my code function that want to convert into php. Tia
Dim valuearray As Byte() = New Byte(3) {}
Dim s As String = myMD5res
Dim rx As New Regex("\w{2}")
Dim mc As MatchCollection = rx.Matches(s)
Dim sb As New StringBuilder()
Dim n As Integer = mc.Count / 4
For i As Integer = 0 To n - 1
For j As Integer = 0 To n - 1
valuearray(j) = Convert.ToByte(mc(i + (j * n)).Value, 16)
Next
Dim value As Integer = valuearray(0) Xor valuearray(1) Xor valuearray(2) Xor valuearray(3)
sb.Append(value.ToString("X2"))
Next
Dim hex32 As String = sb.ToString()
Dim myCodes As Integer = ("&H" & hex32 And &H1FFFFFF) Or &H2000000
Dim newCodes As String = myCodes.ToString("X2")
Dim hexNumber As [String] = newCodes
Dim hextodecs As Integer = Int32.Parse(hexNumber, NumberStyles.HexNumber)
TextBox1.Text = hextodecs
Here is my code function that want to convert into php. Tia
Dim valuearray As Byte() = New Byte(3) {}
Dim s As String = myMD5res
Dim rx As New Regex("\w{2}")
Dim mc As MatchCollection = rx.Matches(s)
Dim sb As New StringBuilder()
Dim n As Integer = mc.Count / 4
For i As Integer = 0 To n - 1
For j As Integer = 0 To n - 1
valuearray(j) = Convert.ToByte(mc(i + (j * n)).Value, 16)
Next
Dim value As Integer = valuearray(0) Xor valuearray(1) Xor valuearray(2) Xor valuearray(3)
sb.Append(value.ToString("X2"))
Next
Dim hex32 As String = sb.ToString()
Dim myCodes As Integer = ("&H" & hex32 And &H1FFFFFF) Or &H2000000
Dim newCodes As String = myCodes.ToString("X2")
Dim hexNumber As [String] = newCodes
Dim hextodecs As Integer = Int32.Parse(hexNumber, NumberStyles.HexNumber)
TextBox1.Text = hextodecs