_______l33t______viprasys

1: Programs you need.

When Packet coding there are a few programs you will need actly there is just one program you will need to download and install the other is already installed with in your windows system.

Now first off you need a sniffer. What is a sniffer well a sniffer is a program that sniffs incoming and out going data that your pc is either recieving or sending out.Now right now i know of 3 good sniffers thats out CommView EtherDetect and Active Network Sniffer.
My Suggestions is to use Ether Detect but if you want use what you think is easyer for you.
This text will work with ether detect and comm view not active network sniffer.
Here is a site to get Comm View or Ether Detect.
[Only registered users can see links. ] go there click downloads then Apps / Utilites
and thats where you will find the sniffer at .
Now the other program needed is wordpad i suggest wordpad over notepad because wordpad shows the alt keys notepad.

2: Configing the programs

Now when the programs are installed you have to config it for ya modem other wise it will sit there and do 100% nothing not even detect a packet.
Now lets start off with Comm View after its installed you will notice there is a selete drop down list on the right hand side...
thats for you to selete your modem click the drop down list and selete the first modem in the list if your pc has two modems you will want to selete the drop down list and selete the first one then click start and see if you get any thing if you dont then go back to that list selete the second one.
now after that your ready to move one
Now for those of you using ether detect heres how you set that up.
Now at the top you see icons
First one over at ya left is a piece of white paper then you see a green arrow pointing to the right then a box thats disabled grayed out then a icon that looks like a magic wand then a green icon that looks like a piece of hard ware.
Now that green icon is the one you wanna click on then you get a box that pops up with many seletions selete the first one then click ok after that click the green arrow pointing to the right and if it does any thing your good to go if it dont go back to the green hard ware icon and click it selete the second one and try again do that untill it shows its doing something.

3: Sniffing your first packet.

Now i must say this before you do any sniffing the best way to do this is to close any peer to peer file sharing programs any chat rooms any pms
Now with that said we can sniff the first packet.
The reason i suggest to close those are because the sniffer will sniff any data in or out of ya pc with having a chat room open you will sniff the packet room packets or with peer to peer file sharing programs open you will sniff the udp packets we only wanna sniff a pm packet thats it...

Now first what we do is open a pm to our self now most of you might now how to do this
open messenger at the top you see Friends for - and your id then below that you see a group where your ids go into click on that group then click message at the top of messenger that opens a blank pm window.
Now in the blank pm window you will see to text box thats blank then send as you want to type in your id into the to text box that will send your self a message i suggest doing this to get a pm packet because its easyer then pming someone off ya list

So now with our pm open and our id typed in lets open the sniffer and click start...
if you did what i suggested at the front of this and every thing else is closed your sniffer wont be sniffing nothing if thats right then go ahead and send your send a message your sniffer will caputre that message packet that was just sent out and recieved in so your sniffer should of sniffed two packets just then

Now for Comm View users you need to click Packet type to see the packets now what you wanna look for is port 5001 thats the port for pms when you find it you wanna click on that then at the bottom you will see the packet plus hex
At this point you wanna open wordpad and copy the hex and packet then paste it into word page

Now for Ether Detect Users on the top left hand side are the packets you wanna scroll over to ya right hand side look for tcp then click on that then over on your right hand side in the other box you should see two ymsg's click on the first one when you do that down at the bottom on your right hand side you should see the hex plus packet now at this point you wanna copy all that and open word pad then paste it into wordpad
Also after you copy the hex into wordpad then click data tab down below to copy the packet it self.

Now if ya did every thing right then your packet should look like the below packets the first i will display was sniffed using comm view the second was sniffed using ether detect
yours should match up to the packet

Pm Packet Sniffed Using CommView

0x0000 00 05 00 E4 0D 7E 00 04-5A 6C 41 A9 08 00 45 00 ...ä.~..ZlA©..E.
0x0010 00 8E 59 8C 40 00 40 06-B3 F0 42 A8 50 24 D8 9B .ŽYÅ’@.@.³ðBƚ¨P$Ø›
0x0020 C1 85 09 9C 13 BA 5A F2-5C 6D FC DF 38 34 50 18 ÃÂÂ�….Å“.ºZÃƒÆ ’²\müß84P.
0x0030 FF 60 E9 4A 00 00 59 4D-53 47 00 0B 00 00 00 52 ÿ`éJ..YMSG.....R
0x0040 00 06 5A 55 AA 55 74 77-F1 BA 31 C0 80 5F 6D 61 ..ZUªUtwñº1Àâà ¢â‚¬Å¡Ã‚¬l33t
0x0050 63 68 69 6E 65 5F C0 80-35 C0 80 5F 6D 61 63 68 chine_À€5Àâ⠀šÂ¬l33t
0x0060 69 6E 65 5F C0 80 31 34-C0 80 54 68 69 73 20 69 hooÀ€14Àââ₠¬Å¡Ã‚¬This i
0x0070 73 20 61 20 6D 65 73 73-61 67 65 20 74 6F 20 6D s a message to l
0x0080 79 20 73 65 6C 66 C0 80-39 37 C0 80 31 C0 80 36 y selfÀ€97Àââ⠂¬Å¡Ã‚¬1À€6
0x0090 33 C0 80 C0 80 36 34 C0-80 32 C0 80 3À€Àâ‚à ‚¬64À€2Àââ⠂¬Å¡Ã‚¬

Pm Packet Sniffed Using Ether Detect.

00 05 00 E4 0D 7E 00 04 5A 6C 41 A9 08 00 45 00 00 8E 59 99 40 00 40 06 B3 E3 42 A8 50 24 D8 9B C1 85 09 9C 13 BA 5A F2 5D 75 FC DF 3B D7 50 18 FB BD E8 42 00 00 59 4D 53 47 00 0B 00 00 00 52 00 06 5A 55 AA 55 74 77 F1 BA 31 C0 80 5F 6D 61 63 68 69 6E 65 5F C0 80 35 C0 80 5F 6D 61 63 68 69 6E 65 5F C0 80 31 34 C0 80 54 68 69 73 20 69 73 20 61 20 6D 65 73 73 61 67 65 20 74 6F 20 6D 79 20 73 65 6C 66 C0 80 39 37 C0 80 31 C0 80 36 33 C0 80 C0 80 36 34 C0 80 32 C0 80

YMSG.....R..ZUªUtwñº1Ãâ ‚¬Ã¢â€šÂ¬l33t_yahooÀ↚¬5À€l33t_yahooÃâ⠀šÂ¬ÃƒÆ’€â‚¬14 À€This is a message to my selfÀ€97Àââ⠂¬Å¡Ã‚¬1À€63Àà ¢â€šÂ¬Ãƒâ‚¬Ã¢â€šÂ¬64Ãâ‚ ¬Ã¢â€šÂ¬2À€

Now thats how both packets should look like after you have them sniffed and pasted into wordpad.

Now a brief description for ya all yours will be diff when it comes to the ids my id at the time of sniffing the packet was l33t_yahoo the message i sent to my self was This is a message to my self.

4: Coding the Packet.

Now this next part we will begin to code the packet we sniffed.
Now most of you know this some do not what is the packet lol thats easy...
You sniff two things one is the hex numbers the other is the packet the packet is kinda like the text for commview users your packet is on the left hand side of the hex numbers its at the very left for Ether Detect users your packet is what you copyed and pasted when you clicked on the data tab so the packet we will code is as followed

YMSG.....R..ZUªUtwñº1Ãâ ‚¬Ã¢â€šÂ¬l33t_yahooÀÃâ‚ ¬Ã¢â€šÂ¬5À€l33t_y ahooÀÀ€14 À€This is a message to my selfÀ€97Àââ⠂¬Å¡Ã‚¬1À€63Àà ¢â€šÂ¬Ãƒâ‚¬Ã¢â€šÂ¬64Ãâ‚ ¬Ã¢â€šÂ¬2À€

That code right there is basicly our entire code more or less the parts we dont need to worrie about right now is the text from YMSG to the 1 thats the header and sessionid of the packet so what i suggest is was delete that out and look at what we are going to code right now.

1À€l33t_yahooÀà ƒâ‚¬Ã¢â€šÂ¬5À₠¬l33t_yahooÀÀ€14 À€This is a message to my selfÀ€97Àââ⠂¬Å¡Ã‚¬1À€63Àà ¢â€šÂ¬Ãƒâ‚¬Ã¢â€šÂ¬64Ãâ‚ ¬Ã¢â€šÂ¬2À€

The code above is what we call the Packet.
Now this is a pm send packet it has 3 things we add to it a whofrom whoto and a message.
Now let me point this out to those of you that hasnt used vb or dont really understand it...
VB hates text ok i wont lie when you try and do a string it errors now that is why we use the " mark that mark tells vb its text so when ya coding the packet you want to use " around any text you have now i will speak more about this when we actly get this packet completly coded.

Now first off what we do is take out any of the ids or message thats in the packet like my l33t_yahoo id and this is a message to my self those come out like so

1À€ À€5Àâ‚à ‚¬ À€14Àâ‚ ¬ À€97Àâ‚ ¬1À€63Àââ €šÂ¬Ãƒâ‚¬Ã¢â€šÂ¬64Àà ¢â€šÂ¬2À€

The 3 wholes in the packet is where the id and message was they gone now.
The next thing to do is add whofrom whoto and message into the packet.
I wont lie most of you will or might be confused about where to put what but its easy in this pm packet the first thing you see is 1 now 1 tells me thats a whofrom next you see 5 that tells me whoto 14 tells me message
now before we move on let me explain this to you really fast.
Some packets that you will code the whofrom will not start frist the whoto might the things you need to watch out for is when you see a 1À€ or À€1Àâ‚à ‚¬ that always means whofrom when you see a 5À€ or À€5Àâ‚à ‚¬ that always means whoto À€14Àâ‚ ¬ always means its a message.................

Now with that cleared up lets add the whofrom and whoto and message.

1À€ & whofrom & À€5Àâ‚à ‚¬ & whoto & À€14Àâ‚ ¬ & Message & À€97Àâ‚ ¬1À€63Àââ €šÂ¬Ãƒâ‚¬Ã¢â€šÂ¬64Àà ¢â€šÂ¬2À€

Now take a min and look at what i did here.
I put & before I did a whofrom or whoto or message and I also put & after each
Let me explain why for those that have no idea why...
vb dont like it when you have text and a string beside each other it errors out gives you this error Compile Error: Expected end of statement.
Then it high lights the whofrom.
So thats why we use the & marks now you can use + marks also they do the same thing
Now lets go back and add the " marks to only the text that will be sent.

"1À€" & whofrom & "À€5Àâ‚ ¬" & whoto & "À€14Àâ ¡Ã‚¬" & Message & "À€97Àâ ¡Ã‚¬1À€63Àâà ¢â‚¬Å¡Ã‚¬Ãƒâ‚¬Ã¢â€šÂ¬64Àà ƒÂ¢Ã¢â‚¬Å¡Ã‚¬2À€"

Now look at this a min why didnt I add the " marks for whofrom whoto and message the reason is because whofrom and whoto and message will become a string code in the public function that we will make later on.
Also why you put the & there with the " marks is simple with out & it gives ya the same error message...


Now that we have our packet coded we move on to coding the header of the packet

5: Coding the Header.

Now first off let me explain the header to ya really fast some of the people that code packets get really confused about this...

The header it self is the YMSG up to the 1À€ in the packet..

Also its in the hex numbers.


CommView users locate this line in the packet and hex you pasted in wordpad
0x0030 FF 60 E9 4A 00 00 59 4D-53 47 00 0B 00 00 00 52 ÿ`éJ..YMSG.....R

Ether Detect Users Locate this line you pasted in wordpad.
59 4D 53 47 00 0B 00 00 00 52 00 06 5A 55 AA 55 74 77 F1 BA 31 C0 80 5F 6D 61 63 68 69 6E 65 5F C0

now let me brake this up in parts so you all dont get to confused.
What you need to find with in the hex numbers are the numbers 59 4D 53 47
those numbers right there makes the YMSG in the packet thats where we start at when coding the header

Now two numbers together are what i call sets of numbers like 59 is a set 4D is a set 53 is a set and 47 is a set...

Now i have to make that clear now the first part of the header is 8 sets of numbers starting with 59 as the first set
So the first part of the header we will code will be


This for CommView Users: 59 4D-53 47 00 0B 00 00

This for Ether Detect Users: 59 4D 53 47 00 0B 00 00

Now lets look here a min notice that the numbers are the same as each other thats import for you to understand.
Each header for any packet you code will be the same but only the packet type will change......
Now after we have the first part of the header out of the hex lets go a head and code it now there are two ways to code this one using hextoascii or chr string codes.
Now for me i use hextoascii method for two reasons 1: its faster 2: it makes coding a packet easyer

Now i teach both ways.
Lets start off with chr string codes.
Most of you might have used chr codes and string codes before but if not this is how its done.
Chr() or String(,) now look ya your first 4 sets of numbers those make ymsg we dont need to code ymsg using chr string codes what we do is
"YMSG" then take away the 59 4D 53 47 caise we already coded that...

now the next numbers are 00 0B 00 00 now for 00 you can use chr(&H0) & Chr(&H0) or you can do it the other way String(2,0)
Both ways work but i prefer to do String(2,0)
Now lets add the remaining numbers to the header like so.

"YMSG" & String(2,0) & Chr(&H0B) & String(2,0) & String(2,0)

Now let me explain this OB isnt a string its a chr because string can only do what ever is on the left of it if you try doing String(2,0B) it would error out on you

so that becomes chr now &H lets chr not to error out btw

Notice we have 00 00 thats two strings or one string of 4 0 but i prefer two diff string codes..


Now we have made the first part of our header

Now for hex method i give you the codes to use that followed below are the 3 module codes to do the hex method


Public Function HexToAscii(inputstr As String) As String
Dim spilter As Variant, i As Integer, finnal As String
If InStr(1, inputstr, " ") <0> 255
FstNum = FstNum + 1
pcklen = pcklen - 256
Loop
cSizeHex = " " & Hex(FstNum) & " " & Hex(pcklen) & " "
End Function

Public Function Asciitohex(inputstr As String) As String
On Error Resume Next
Dim spilter As Variant, i As Integer, finnal As String
For i = 1 To Len(inputstr)
finnal = finnal & Hex(Asc(Mid(inputstr, i, 1))) & " "
Next i
Asciitohex = Mid(finnal, 1, Len(finnal) - 1)
End Function

now these are the codes we will use for the hex method of the first part of the header.....

using this method you only need the numbers thats it
59 4D 53 47 00 0B 00 00

The way you code that is like so

HexToAscii("59 4D 53 47 00 0B 00 00"
thats the first part and yes that will error on ya in vb cause the header isnt done yet...

Now lets move on to sizing the packet.

If you look back into the hex numbers after the 8 sets of numbers get the two sets of numbers after the 00 .
They would be the same for Comm View users and Ether Detect users.
00 52
Now those two sets is for the size of the packet we wont use those two numbers now there are many many ways to size a packet to by my self time i will display panty blazes method the PMPL and FC codes for the size of the packet using chr string codes.

PMPDL = Len(Packet)
If PMPDL <255> 255 And PMPDL <511> 511 And PMPDL <767> 767 And PMPDL <= 1024 Then FC = Chr(3) Else FC = Chr(4)
If FC = Chr(1) Then PMPDL = PMPDL - 256 Else If FC = Chr(2) Then PMPDL = PMPDL - 512 Else If FC = Chr(3) Then PMPDL = PMPDL - 768 Else If FC = Chr(4) Then PMPDL = PMPDL - 1024

Now this is what you all thats using chr codes will use when sizing the packet unless you wanna make your own.

Now lets look at the header that we made

chr - string header: "YMSG" & String(2,0) & Chr(&H0B) & String(2,0) & String(2,0)

Now after the last string(2,0) we put & FC & Chr(PMPDL) that

thats to size the packet so that it can be sent like so
"YMSG" & String(2,0) & Chr(&H0B) & String(2,0) & String(2,0) FC & Chr(PMPDL)

now for hex method lets look at the header again.

Hex Header: HexToAscii("59 4D 53 47 00 0B 00 00"

Now after the 00" part is where we size the packet

Now we add & cSizeHex(Packet) to that like so

HexToAscii("59 4D 53 47 00 0B 00 00" & cSizeHex(Packet)

Now we have the first part of the header coded and the size of the packet coded now lets move
on to the end of the packet...

Let me say this really fast before we do that.
The end of the Header is most import the end has the packet type in it now the packet type place changes only nothing else

Now Lets recap what we did for a min
We started at 59 and coded 10 Sets of numbers to make a header and to do the size of the packet
Now the last part of the header is the 6 sets of numbers after the 10 sets of numbers we just coded

For CommView users locate this line: 0x0040 00 06 5A 55 AA 55 74 77-F1 BA 31 C0 80 5F 6D 61 ..ZUªUtwñº1Àâà ¢â‚¬Å¡Ã‚¬_ma

and for Ether Detect Users Locate this line: 00 0B 00 00 00 52 00 06 5A 55 AA 55 74 77 F1 BA 31 C0 80 5F 6D 61 63 68 69 6E 65 5F C0

Now let me help ya out really fast we not going to be using all these numbers so for both commview and ether detect users find 00 06 in the hex numbers after you find those two sets of numbers then count to ya right till ya get to 6th set.
They should be 00 06 5A 55 AA 55

Now let me explain where ya packet type is this is a send pm its packet type is always 06 so look in the 6 sets of numbers and find 06 thats your packet type
When you get good at coding packets and the header you can find line 0040 and locate the packet type its the second set of numbers on that line in both commview and ether detect.....

Now This is where moist of you will get lost and all confused see the last 4sets of numbers after the packet type 5A 55 AA 55 thats standard meaning i am 100% sure if ya code that it will not work for ya lol easy way to do this a pm packet is diff its the most confusing packet to code because the 5A 55 AA 55 is there to be honest what that really is is this text in your packet.
ZUªUtwñº now the 5A 55 AA 55 makes that text but now I can suggst you two things one take out 5A 55 AA 55 and place it with ZUªUtwñº that or two replace the 5A 55 AA 55 with zero's like 00 00 00 00.........
which ever you want to do it but for me i will show only how to code using the 00 00 00 00 method cause its much easyer to understand.....
Now that we are out of that we should have this for the end of the header
00 06 00 00 00 00
Thats what we will code chr string codes are like this
string(2,0) & Chr(&H06) & String(2,0) & String(2,0) & String(2,0) & String(2,0)

now hex method is as followed.

"00 06 00 00 00 00")

Now lets add the chr string codes to the header for that method.

"YMSG" & String(2,0) & Chr(&H0B) & String(2,0) & String(2,0) FC & Chr(PMPDL) & string(2,0) & Chr(&H06) & String(2,0) & String(2,0) & String(2,0) & String(2,0)

Hex Header is as followed.

HexToAscii("59 4D 53 47 00 0B 00 00" & cSizeHex(Packet) & "00 06 00 00 00 00")

Now You have just made your Packet and your header for your pm send code
6: making the Public Function.

Public function codes go in the module of your program they are codes that you call apon when you want them now this will be a example of the packet plus header we have made in this text

The first line of code is always

Public Function SendPm()

Now SendPm is the name of the code you can change that to any thing but the Public Function and the () must stay there the SendPm can be renamed to any thing you want..

Now we need to think back for a min what did we add to the packet..

Whofrom whoto and message

Now remember i said the reason i didnt put " that mark around them was because they will be strings later on well here is where the strings go

They go into the () of the public function code like so

Public Function SendPm(WhoFrom a string,Whoto as string,Message as string)as string

Now we have all of them as strings Now you should have the code like this in a module

Public Function SendPm(WhoFrom a string,Whoto as string,Message as string)as string

End Function ops: it sin't over wait :|

Now let me recap what i just did for both chr string and hex method people. :wink: :roll:

See Dim Packet as string and Dim Header as string and Dim FC as string,PMPDL as string
those codes the reason we have those is so yahoo understands what the code is
If you dont dim packet as string
when you try to send the code you will get a error it will say not defind and high light packet
same with header and fc and pmpdl so we dim them as a string so vb understands its a string
what a string does is allows a word to care out a task like packet packet will carie out the Packet
Now that we are clear on that lets move on and add the header to this packet
For chr string users

Public Function SendPm(WhoFrom a string,Whoto as string,Message as string)as string
Dim Packet as string
Dim Header as string
Dim FC as string,PMPDL as string
Packet = "1À€" & whofrom & "À€5Àâ‚ ¬" & whoto & "À€14Àâ ¡Ã‚¬" & Message & "À€97Àâ ¡Ã‚¬1À€63Àâà ¢â‚¬Å¡Ã‚¬Ãƒâ‚¬Ã¢â€šÂ¬64Àà ƒÂ¢Ã¢â‚¬Å¡Ã‚¬2À€"
PMPDL = Len(Packet)
If PMPDL <255> 255 And PMPDL <511> 511 And PMPDL <767> 767 And PMPDL <= 1024 Then FC = Chr(3) Else FC = Chr(4)
If FC = Chr(1) Then PMPDL = PMPDL - 256 Else If FC = Chr(2) Then PMPDL = PMPDL - 512 Else If FC = Chr(3) Then PMPDL = PMPDL - 768 Else If FC = Chr(4) Then PMPDL = PMPDL - 1024
Header = "YMSG" & String(2,0) & Chr(&H0B) & String(2,0) & String(2,0) FC & Chr(PMPDL) & string(2,0) & Chr(&H06) & String(2,0) & String(2,0) & String(2,0) & String(2,0)
End Function

Now Ether Detect users.

Public Function SendPm(WhoFrom a string,Whoto as string,Message as string)as string
Dim Packet as string
Dim Header as string
Packet = "1À€" & whofrom & "À€5Àâ‚ ¬" & whoto & "À€14Àâ ¡Ã‚¬" & Message & "À€97Àâ ¡Ã‚¬1À€63Àâà ¢â‚¬Å¡Ã‚¬Ãƒâ‚¬Ã¢â€šÂ¬64Àà ƒÂ¢Ã¢â‚¬Å¡Ã‚¬2À€"
Header = HexToAscii("59 4D 53 47 00 0B 00 00" & cSizeHex(Packet) & "00 06 00 00 00 00")
End Function

Now to be honest we are almost done whats next we have to add a few most things to the header before its sent out we need to add the SessionID and the Packet

Now i dont really have any idea on what kina login source you all are using and this isnt about login sources so i tell ya where the sessionID gos basicly it gos after the entire header
Like so for chr string users

Header = "YMSG" & String(2,0) & Chr(&H0B) & String(2,0) & String(2,0) FC & Chr(PMPDL) & string(2,0) & Chr(&H06) & String(2,0) & String(2,0) & String(2,0) & String(2,0) & SessionID

For hex method users

Header = HexToAscii("59 4D 53 47 00 0B 00 00" & cSizeHex(Packet) & "00 06 00 00 00 00") & SessionID

Now after you have the sessionid done put & Packet after that like so
Chr users

Header = "YMSG" & String(2,0) & Chr(&H0B) & String(2,0) & String(2,0) FC & Chr(PMPDL) & string(2,0) & Chr(&H06) & String(2,0) & String(2,0) & String(2,0) & String(2,0) & SessionID & packet

hex users

Header = HexToAscii("59 4D 53 47 00 0B 00 00" & cSizeHex(Packet) & "00 06 00 00 00 00") & SessionID & Packet

Now i be honest with ya the sessionid use to have me really confused

But if you look into your winsock_DataArrival code and locate the code like = Mid(RecData, 17, 4)
find out whats on the left side of that = mark thats for ya sessionid all my source codes use SessionID most use YKey or what ever but find out whats on the Left hand side of the = Mark then if its Ykey go back to your header and take out SessionID and put YKey in also for your hex method users you can take out sessionid and put in "0000" << just like that with the " mark you chr string users can do the same thing if you like it works both ways honestly now my suggestion is to add debug.pring after the header to debug your code and see if its sending
Down below are the two complet codes for chr users and for hex method users

chr code users

Public Function SendPm(WhoFrom a string,Whoto as string,Message as string)as string
Dim Packet as string
Dim Header as string
Dim FC as string,PMPDL as string
Packet = "1À€" & whofrom & "À€5Àâ‚ ¬" & whoto & "À€14Àâ ¡Ã‚¬" & Message & "À€97Àâ ¡Ã‚¬1À€63Àâà ¢â‚¬Å¡Ã‚¬Ãƒâ‚¬Ã¢â€šÂ¬64Àà ƒÂ¢Ã¢â‚¬Å¡Ã‚¬2À€"
PMPDL = Len(Packet)
If PMPDL <255> 255 And PMPDL <511> 511 And PMPDL <767> 767 And PMPDL <= 1024 Then FC = Chr(3) Else FC = Chr(4)
If FC = Chr(1) Then PMPDL = PMPDL - 256 Else If FC = Chr(2) Then PMPDL = PMPDL - 512 Else If FC = Chr(3) Then PMPDL = PMPDL - 768 Else If FC = Chr(4) Then PMPDL = PMPDL - 1024
Header = "YMSG" & String(2,0) & Chr(&H0B) & String(2,0) & String(2,0) FC & Chr(PMPDL) & string(2,0) & Chr(&H06) & String(2,0) & String(2,0) & String(2,0) & String(2,0) & SessionID & Packet
Debug.Print SendPm
End Function

Hex Method Users.

Public Function SendPm(WhoFrom a string,Whoto as string,Message as string)as string
Dim Packet as string
Dim Header as string
Packet = "1À€" & whofrom & "À€5Àâ‚ ¬" & whoto & "À€14Àâ ¡Ã‚¬" & Message & "À€97Àâ ¡Ã‚¬1À€63Àâà ¢â‚¬Å¡Ã‚¬Ãƒâ‚¬Ã¢â€šÂ¬64Àà ƒÂ¢Ã¢â‚¬Å¡Ã‚¬2À€"
Header = HexToAscii("59 4D 53 47 00 0B 00 00" & cSizeHex(Packet) & "00 06 00 00 00 00") & SessionID & Packet
Debug.Print SendPm
End Function

7: Using the Public Function in vb.

Now Lets talk about how to send this packet using a winsock cause most users get confused after they make the packet they forget how to use it this is simple the hard part is over
Lets say your winsock is called Winsock1

Well in a button or timer we would do Winsock1.Senddata SendPm(
Now when we do ( we get a message in yellow that says whofrom as string,whoto as string,message as string)as string
Now that tells you see this code needs this stuff in it and if you do not put all the stuff the code needs in it it will error and tell ya that its not optional because you forgot to put a code in

Now our sendpm code needs two text boxes and a message so on our form we would have text1 as our logged in user id then text2 as the password for that logged in user id then text3 for the user we wanna send the pm to.

now the send code will or should look like this

Winsock1.Senddata SendPm(Text1,Text3,"Hello There")

Now let me explain why i did "Hello There")

The message part of the code is sending text not a message in a text box but a preset message preset means its already set in the send code Hello There is already set in the send code so thats text and like i stated when coding the packet all text must be in " marks other wise yahoo gives you that error.

Now you can use the code like this

Winsock1.Senddata SendPm(Text1,Text3,Text4)

Text4 as being a text box on the form for the message.

Either way the packets going to send if you did it right

Vipra Peace :evil:

saswata

bro can u plz upload those sniffer at [Only registered users can see links. ] once again plz..

saswata

which packet hit hard to Yazak??please give me the source...

__iMMoRTaL

▀hex▀

bro i got confuse on ur 3rd step...

how to open a blank pm??

and i couldnt find the ->(look on the red font above)



can u pls tell me where i could find it

satma

Click on Actions then
Send an instant message then
Other contact
Type the same id you're logged in with !
then click ok , a Pm will show up to your self, Start pming your self while the packets sniffer is Active , By the packets color - text - size , you want .
And continue with the other steps ..

▀hex▀

bro heres my result---check if this is correct---
on my right side i saw not only two YMSG...
then i click the first one...
but didnt hav the result same as urs...

so i click the other YMSG...
until i found the packet data that will be similar as urs..
its in the fourth YMSG



-----------heres tha packet tab's hex---------------------

00 1A 64 0A E8 98 00 D0 B7 E5 32 02 08 00 45 00 01 0A B4 70 40 00 80 06 7C 02 C0 A8 EA FF 44 B4 D9 1E 0C AE 13 BA 81 09 D3 88 E3 F4 03 88 50 18 42 5E BF 6E 00 00 59 4D 53 47 00 0F 2A 2A 55 6E 52 65 67 2A 2A 55 00 48 24 2D 31 C0 80 30 39 31 39 38 34 37 32 33 35 33 C0 80 35 C0 80 30 39 31 39 38 34 37 32 33 35 33 C0 80 31 34 C0 80 3C 41 4C 54 20 23 65 38 30 30 30 30 2C 23 65 38 30 30 30 30 2C 23 65 38 30 30 30 30 2C 23 65 38 30 30 30 30 2C 23 65 37 32 31 65 37 2C 23 65 37 32 31 65 37 2C 23 65 37 32 31 65 37 2C 23 31 35 30 32 31 35 2C 23 31 35 30 32 31 35 2C 23 31 35 30 32 31 35 2C 23 30 31 31 61 66 61 2C 23 30 31 31 61 66 61 2C 23 30 31 31 61 66 61 3E 61 71 20 73 69 20 6E 6F 69 64 20 70 6F 67 69 3C 2F 41 4C 54 3E C0 80 39 37 C0 80 31 C0 80 34 38 C0 80 32 C0 80 36 33 C0 80 3B 30 C0 80 36 34 C0 80 30 C0 80 32 30 36 C0 80 32 C0 80 00

------------data---------------

YMSG..**UnReg**U.H$-1À€09198472353À€5À€09198472353À€14À€<ALT #e80000,#e80000,#e80000,#e80000,#e721e7,#e721e7,#e 721e7,#150215,#150215,#150215,#011afa,#011afa,#011 afa>aq si noid pogi</ALT>À€97À€1À€48À€2À€63À€;0À€64À€0À€206À€2À€.

------------------------------------

toni_bbb2000

hello i wanna know is that a good pasket that am doing and how to add it now to module


YMSG..**UnReg**..NÞ*1À€roby_nnnÀ€4À€roby_nnnÀ€12À€ MTY3NzczNDM=À€61À€0À€2À€À€5À€pensieri_e_parole69À€ 13À€0À€49À€PEERTOPEERÀ€.YMSG.....T..ZUªV.NÞ*1À€rob y_nnnÀ€5À€pensieri_e_parole69À€14À€hello *****À€97À€1À€63À€;0À€64À€0À€206À€0À€

clinton

is there somthing wrong with the link to DL the sniffer it se's

i need a host. lGB of space and as much bandwidtth as possible (over 60 GB a month at least) it has to be reliable, ie you've been in business for more than a month. windows or linux, no home PCs. Until then, later.

do you have another link to download from when ive tryed other places it keeps coming up with a virus i sore somwhere it said to turn off my Antivirus but not to sure

Plancii

Bro, hex, can you share this prog to us. When I click the link, this pic appears.I guess we were late (see pic)

Attached Images

no_etherdetect_msg.JPG (36.9 KB, 6 views)