0 Members and 1 Guest are viewing this topic.
4F 8A 31 E BF 10 42 47 3A A 7B F5 83 EB CD DA
Client TypesPrimaryClient 0x50PrimaryServer 0x51SecondaryClient 0x52SecondaryServer 0x53NodeList 0x54ChatClient 0x57ChatServer 0x58
I don't know why but it's rare to optain good peers
Key = GetCryptKeyID(Buf(0))IF KEY = 65535 THEN DECODEKEY() KEY = GetCryptKey(Buf(0),Upkey,Dwkey)END IF
Private Sub DECODEKEY(ByRef Buf( ) as Byte) buf(0) = Not (buf(0)) buf(1) = buf(1) Xor CInt("&H" & "F0") buf(2) = buf(2) Xor CInt("&H" & "F") buf(3) = buf(3) Xor CInt("&H" & "77") buf(4) = buf(4) Xor CInt("&H" & "77") buf(5) = Not (buf(5)) buf(6) = buf(6) Xor CInt("&H" & "F0") buf(7) = buf(7) Xor CInt("&H" & "F") buf(8) = buf(8) Xor CInt("&H" & "77") buf(9) = buf(9) Xor CInt("&H" & "77") buf(10) = Not (buf(10)) buf(11) = buf(11) Xor CInt("&H" & "F0") buf(12) = buf(12) Xor CInt("&H" & "F") buf(13) = buf(13) Xor CInt("&H" & "77") buf(14) = buf(14) Xor CInt("&H" & "77")End Sub
Public Function ClearCode(ByVal DATASTRING As String) ClearCode= "" Dim i%, j$ For i = 1 To Len(DATASTRING) j = Mid(DATASTRING, i, 1) If j = "\" Then ClearCode = ClearCode & "\" & j ElseIf j = "{" Then ClearCode = ClearCode & "\" & j ElseIf j = "}" Then ClearCode = ClearCode & "\" & j Else ClearCode = ClearCode & j End If Next i End Function