Advertisement
Guest User

Untitled

a guest
Mar 26th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.29 KB | None | 0 0
  1. Public Function package_createChar(ByVal cName As String) As String
  2.  
  3. '
  4. ' @ maTih.-
  5.  
  6. With auxBuffer
  7.  
  8. ' @@ Packet
  9. Call .WriteByte(client_Packets.createNewChar)
  10.  
  11.  
  12. '1D-1B ?????????????????
  13. ' algo falta acá? pero si agrego quedarían 4 ..... por que agregaría un byte o algo
  14.  
  15.  
  16. ' @@ Nick
  17. Call .WriteASCIIString("ZH_ZH_") ' AAAAAA(cName)
  18.  
  19. ' @@ Pass
  20. Call .WriteASCIIString("zzzzzz") 'AAAAA
  21.  
  22. ' @@ Pin
  23. Call .WriteASCIIString("zh127zh") 'aasaasaas
  24.  
  25. ' @@ App.Version - App.Major - App.Minor
  26. Call .WriteByte(26) '1
  27. Call .WriteByte(26) '1
  28. Call .WriteByte(28) '7
  29.  
  30. ' Head, clase, head
  31. Call .WriteByte(26) '1
  32. Call .WriteByte(26) '1
  33. Call .WriteByte(26) '1
  34.  
  35. Call .WriteInteger(27) '17 CREO XD
  36.  
  37. Call .WriteASCIIString("z[z5z") ' a@a.a
  38.  
  39. 'hogar
  40. Call .WriteByte(26) ' 1
  41.  
  42. Call .WriteASCIIString("*)*" & Chr(34) & "," & Chr(34) & "*)#(") ' el codigo raro del final
  43.  
  44.  
  45. 'Call .WriteASCIIString("12345678")
  46. package_createChar = .ReadASCIIStringFixed(.length)
  47. End With
  48.  
  49. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement