Per chi volesse le Encrypt/Decrypt dei packet, sto procendo a convertirle da c++ a vb.net, ma il lavoro è abbastanza complesso. Chiunque se ne intenda di .Net (soprattutto VB.Net) sarei felice se volesse partecipare al progetto.
Per adesso ho convertito:
-Encrypt/Decrypt Login Server;
-Get password;
-Decrypt Session ID;
-Decrypt Game Packet(sono riuscito quasi a completarla ed è per questo che ho bisogno del vostro aiuto)
Io potrei aiutarti a convertirlo in c# al limite..
se ti interessa inviami un pm ^^
I have Decrypt Pssw in vb.net
Codice:
Function Decrypt(ByVal pswd As String) As String
Dim Num As Integer = pswd.Length
Dim EsPar As Boolean
EsPar = IIf(Num Mod 2, False, True)
Try
If EsPar = True Then
Dim nueva = pswd.Remove(0, 3)
Dim Caracteres As New ArrayList
Caracteres.AddRange(nueva.ToCharArray)
Dim OffSetChar = ""
For i = 0 To nueva.Length - 1 Step 2
OffSetChar &= Caracteres(i)
Next
Dim toHex As New ArrayList
toHex.AddRange(OffSetChar.ToCharArray)
Dim StrConverted = ""
For S = 0 To OffSetChar.Length - 1 Step 2
StrConverted &= System.Convert.ToChar(System.Convert.ToUInt32(toHex(S) & toHex(S + 1), 16)).ToString()
Next
Return StrConverted
Else
Dim nueva = pswd.Remove(0, 4)
Dim Caracteres As New ArrayList
Caracteres.AddRange(nueva.ToCharArray)
Dim OffSetChar = ""
For i = 0 To nueva.Length - 1 Step 2
OffSetChar &= Caracteres(i)
Next
Dim toHex As New ArrayList
toHex.AddRange(OffSetChar.ToCharArray)
Dim StrConverted = ""
For S = 0 To OffSetChar.Length - 1 Step 2
StrConverted &= System.Convert.ToChar(System.Convert.ToUInt32(toHex(S) & toHex(S + 1), 16)).ToString()
Next
Return StrConverted
End If
Catch ex As Exception
Return "Error"
End Try
End Function
^^
he have:
-Encrypt/Decrypt Login Server;
-Get password;
-Decrypt Session ID;
he need:
- Gameserver Encrypt/Decrypt