+- BorderGame (https://www.bordergame.it)
+-- Forum: NosTale (/Forum-NosTale)
+--- Forum: Server Privati Nostale (/Forum-Server-Privati-Nostale)
+--- Discussione: Encrypt/Decrypt Game Packet .Net (/Thread-Encrypt-Decrypt-Game-Packet-Net)
Encrypt/Decrypt Game Packet .Net - DeStRo - 29-09-2012 04:14 PM
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)
RE: Encrypt/Decrypt Game Packet .Net - Ð3V!L - 29-09-2012 04:19 PM
Io potrei aiutarti a convertirlo in c# al limite..
se ti interessa inviami un pm ^^
RE: Encrypt/Decrypt Game Packet .Net - ernilos - 29-09-2012 04:38 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 FunctionRE: Encrypt/Decrypt Game Packet .Net - Ð3V!L - 30-09-2012 01:12 PM
he have:
-Encrypt/Decrypt Login Server;
-Get password;
-Decrypt Session ID;
he need:
- Gameserver Encrypt/Decrypt