Исходное сообщение
"Аналог result Xor BitConverter.ToInt32(chars, i) на php" Отправлено Akmal, 29-Ноя-08 11:54
Есть функция на VB.NET. Как конвертировать эту функцию на php? Private Function CalcHash(ByVal stringToHash As String) As String         ' get character codes into an array         Dim chars As Byte() = Encoding.ASCII.GetBytes(stringToHash)         Dim result As Integer = 0         'step along the string in chunks of bytes         For i As Integer = 0 To chars.Length - 1 Step 4             ' get 4 bytes as an int and xor into the result             result = result Xor BitConverter.ToInt32(chars, i)         Next         ' get the negative result, no idea where the extra -1 comes from         result = -result - 1         ' make sure that the resulting string is always 8 hex digits         Return result.ToString("x8")     End Function

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Есть функция на VB.NET. Как конвертировать эту функцию на php? > Private Function CalcHash(ByVal stringToHash As String) As String > ' get character codes > into an array > Dim chars As Byte() > = Encoding.ASCII.GetBytes(stringToHash) > Dim result As Integer > = 0 > 'step along the string > in chunks of bytes > For i As Integer > = 0 To chars.Length - 1 Step 4 > > ' get 4 bytes as an int and xor into the > result > > result = result Xor BitConverter.ToInt32(chars, i) > Next > ' get the negative > result, no idea where the extra -1 comes from > result = -result - > 1 > ' make sure that > the resulting string is always 8 hex digits > Return result.ToString("x8") > End Function
	Введите код, изображенный на картинке: