LoginCrypt

[SkyWard]

Всем добрый день! Возникла проблема!!!
В файле LoginCrypt выдает ошибку, при входе на серв!

ошибка

Исключение типа "System.OverflowException" но не было обработано в коде пользователя

Дополнительные сведения: Переполнение в результате выполнения арифметической операции.

Код на vb.net!

часть кода

[SRC="csharp"]Public Shared Sub encXORPass(ByVal da() As Byte, ByVal offset As Integer, ByVal size As Integer, ByVal key As Integer)
Dim [stop] As Integer = size - 8
Dim pos As Integer = 4 + offset
Dim dx As Integer
Dim cx As Integer = key

Do While pos < [stop]
dx = (da(pos) And &HFF)
dx = dx Or (da(pos + 1) And &HFF) << 8
dx = dx Or (da(pos + 2) And &HFF) << 16
dx = dx Or (da(pos + 3) And &HFF) << 24

cx += dx

dx = dx Xor cx

da(pos) = CByte(dx And &HFF)
pos += 1
da(pos) = CByte(dx >> 8 And &HFF)
pos += 1
da(pos) = CByte(dx >> 16 And &HFF)
pos += 1
da(pos) = CByte(dx >> 24 And &HFF)
pos += 1
Loop

da(pos) = CByte(cx And &HFF)
pos += 1
da(pos) = CByte(cx >> 8 And &HFF)
pos += 1
da(pos) = CByte(cx >> 16 And &HFF)
pos += 1
da(pos) = CByte(cx >> 24 And &HFF)
pos += 1

End Sub[/SRC]

[Ashe]

KapkapoB, Вы предлагаете угадать, где у Вас в коде происходит переполнение?

[SkyWard]

KapkapoB, Вы предлагаете угадать, где у Вас в коде происходит переполнение?

извините!!!!

Код:

cx += dx

[Zeratyl]

KapkapoB, месье, либо вы над нами издеваетесь, либо одно из двух.

Fixed: увидел

[Ashe]

KapkapoB, месье, либо вы над нами издеваетесь, либо одно из двух.

Код в первом посте под спойлером.

[JavaMan]

Самое простое попробуй cx представь как лонг.

[KID]

rabbita.exe ?

[SkyWard]

Самое простое попробуй cx представь как лонг.

Все спс, решил вопрос!!! Забыл , что в вб Integer немного не такой как в шарпе))
[SRC="csharp"]Dim edx As Long
Dim ecx As Long = key[/SRC]