VB.netでパケットキャプチャーを作ってみる

VB.netでパケットキャプチャーを作ってみる

[C#] System.Net.Sockets.Socketを使ってパケットモニタ (3)
こちらのサイトを参考にしました

目的
 ・開いたサイトのアドレスとかもリアルタイムで分かるのでコメントビューアに使いたかった
 ・通信内容が直で分かるので、ニコ生のゲットプレーヤーステータスが暗号化されてても接続できるようにする
です。

これが書いたソースです。

    Private Sub Test()
        Dim ip As String = "192.168.11.2"

        Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Raw, ProtocolType.IP)

        socket.Bind(New IPEndPoint(IPAddress.Parse(ip), 0))
        socket.SetSocketOption(SocketOptionLevel.IP, SocketOptionName.AcceptConnection, True)
        socket.IOControl(IOControlCode.ReceiveAll, New Byte() {1, 0, 0, 0}, New Byte() {0, 0, 0, 0})

        Dim buffer As Byte() = New Byte(4096) {}
        Dim k As Integer

        Do
            socket.Receive(buffer)

            Dim message As String = Encoding.UTF8.GetString(buffer)
            'Console.WriteLine(message) '←何故かココでプログラムが止まってしまう。原因教えて下さい


            '送信元IP
            Dim source As String = String.Format("{0}.{1}.{2}.{3}", buffer(12), buffer(13), buffer(14), buffer(15))
            '送信先IP
            Dim destination As String = String.Format("{0}.{1}.{2}.{3}", buffer(16), buffer(17), buffer(18), buffer(19))


            If message.Contains("<chat") = True AndAlso source.Contains(ip) = False Then

                'For Each item As String In buffer
                '    Console.WriteLine(item)
                'Next

                Dim dstPort10 As String = Convert.ToString(buffer(22), 16) & Convert.ToString(buffer(23), 16)
                Dim srcPort10 As String = Convert.ToString(buffer(20), 16) & Convert.ToString(buffer(21), 16)
                Dim dstPort As Integer = Convert.ToInt32(dstPort10, 16)
                Dim srcPort As Integer = Convert.ToInt32(srcPort10, 16)


                Dim match = System.Text.RegularExpressions.Regex.Match(message, "thread=""(?<thread>[0-9]+)""")
                Dim thread As Integer = CInt(match.Groups("thread").Value)


                Console.WriteLine()
                Console.WriteLine(k)
                Console.WriteLine("送信元{0}  -  送信先{1}", source, destination)
                Console.WriteLine("ポート{0}  -  {1}", srcPort, dstPort)
                Console.WriteLine("スレッド{0}", thread)
                k = k + 1
            End If


        Loop
    End Sub

はいこれが、パケットキャプチャーのソースです。
以下説明

自分のIP

        Dim ip As String = "192.168.11.2"

messageの中にはパケットのバイナリ?をUTF-8でエンコードした物が一応入ってます。

Dim message As String = Encoding.UTF8.GetString(buffer)
'Console.WriteLine(message) '←何故かココでプログラムが止まってしまう。原因教えて下さい

bufferの中にパケットの16進数(バイナリ?)を10進数に直した1バイトが入ってます。
(写真1)

12,13,14,15 送信元
16,17,18,19 送信先アドレス
が.区切り?で入ってるのでIPの形に直して入れます。
(写真2)

            '送信元IP
            Dim source As String = String.Format("{0}.{1}.{2}.{3}", buffer(12), buffer(13), buffer(14), buffer(15))
            '送信先IP
            Dim destination As String = String.Format("{0}.{1}.{2}.{3}", buffer(16), buffer(17), buffer(18), buffer(19))

messageの中にコメントで使われる形式の”
っとなっているので、threadの値を正規表現で取ります。

                Dim match = System.Text.RegularExpressions.Regex.Match(message, "thread=""(?<thread>[0-9]+)""")
                Dim thread As Integer = CInt(match.Groups("thread").Value)

以上です。ありがとうございました。

生主討論会2の俺的意見

※すっげー見づらいです

http://live.nicovideo.jp/watch/lv40747757
でやってた生主討論会の俺的意見

①相変わらず出会い厨多いいよね
 多いいっすね。オワリ

 え?意見少ないだって?
 だってどうでもいいしw
 (それに、勉強会目的とかあるし)

 いや、別に出会い厨が居るのは問題ないんですよ
 そこからが問題だと自分は思うんですよ

 出会う→犯罪行為→ニュースになる→ニコ生は悪の巣窟
 ニコ生は悪の巣窟だと思われる
 
 これが困るんですよね。

 結論:別に出会う分には問題ないです、はい
    ただ犯罪行為などニュースになるような事はしないでほしい

②エロ配信で釣るのはどうよ?
 別にいいんじゃないっスか?はい
 自分はエロ配信とか見ないんで分からないっすね、

 釣ってコミュ伸ばそうがそれは人それぞれ有って良いんじゃないですかね?
 釣られてたらザマーミロって事でw

 つまり、何が言いたいかというと、エロ配信がすべてじゃないって事ですよ
 面白ければ評価される。それだけです。
 (面白い の評価の仕方は人それぞれです。 暗黒が面白い・面白くない って人もいるし)

 結論:①の結論と似てるけど、犯罪行為にならない程度ならいいと思いますよ
    釣られて怒るのは小学生までです。

 ちなみに、運営曰くR-18タグって形だけなんですって、だからR-18付けようが実況タグ付けようが関係ないらしいですよ

③ニコニコ大会議をどう思いますか?
 一応要る

 そもそも、元々の大会議は新バージョンや新機能の発表の場で有ったわけですよ

=================================================================
  当初は運営報告や新バージョンの発表会を大規模に行う方向性であり、ユーザーゲストも極小であった。
  が、ニコニコ動画(9)発表と同時に敢行したニコニコ大会議2009-2010 ニコニコ動画(9)全国ツアー(というかそのファイナル)
  以降、『「大会議」と言う名のライブイベント』大きく様変わりすることとなる。

ニコニコ大百科-ニコニコ大会議から抜粋
=================================================================

 そう、元々は新機能など発表用のイベントだった訳ですよ、
 それに何故か歌い手さんなどが来てかつ有料に成った訳ですよ、

 一緒にしたのが間違いなんですよ。

 昔:新機能発表(メイン)→ 歌い手(サブ)
 今:新機能発表(メインに近いサブ)→ 歌い手(メイン)

 こんな気がしますねw

 結論:昔みたいに新機能発表などなら必要だと思います。
 結論②:歌い手と新機能発表を別枠で放送して!

 こんな感じですw
 
 ちなみに、新機能発表だけなら100P位払ってもいいですよ。
 歌い手はあまり興味無いので払いたくないですけどねw

④3年後、ユーザー生放送は残っているか?
 残っている
 しかし、今よりも過疎ってると思う

 3年後は、有名配信者OR過疎配信の2極化しちゃうと思うんですよね。
  ・ちくわランキング上位配信者だけ見る
  ・今過疎ってる放送は、たぶん1年持たないと思うんですよ、
  ・放送枠がありすぎて昔入ってたコミュしか見ない←今の俺
  ・新しい放送を見つけるのがめんどくさい。
  ・ニコ生クルーズとか見のめんどくさい。

 今ニコ生が盛んな理由(俺的感!)
  1、ニコニコ動画の為にプレミアムになった。しかし、プレミアムだけが利用できるニコ生を実際に放送してみたらはまった、からやってる
  2、暗黒放送など、常に満員放送などでも追い出されないようにプレミアムになった。 後↑と同じ理由
  3、出会いやエロ目的でニコ生を始めて見た
  4、友達がやってって面白そうだからやってみた
  5、gacktや福山雅治がやってるから!

 なぜ放送が過疎るのか?
  ①昔見たい(枠取がクリックの頃)にワザワザクリックせずに待ってるだけで枠が取れるようになった
   ちゃんと、企画せずに枠取りができるようになっちゃった。
   昔は枠取るのが一番の苦労で、しかも、放送時間が30分と限られていました、なので放送内容がぎっしり詰まってた気がします。

  ②枠数が多すぎる
   ↑でも書いたんですが、枠数が多いいと2極化になっちゃうと思うんですよ。

  ③ランギングがあるから
   ランキング上位に上がる→何となく見る→さらに上がる→過疎放送はもっと過疎る

 こんな感じに俺は考えてます。

 結論:残ってる。しかし今よりも過疎ってる
    (何となく思ったこと: 有名配信者を潰す。& 枠数を減らす。 AND クリックを復活させる これすれば、いいんでね?)

⑤運営に物申す
 1、取りあえず、バグ減らしてください…

ニコニコ生放送のコメント取得の方法まとめ

実際にコメントビューアーを作ってみて分かったこと(飛ばしてもいいよ)
http://sekki.org/wordpress/?p=13

実際にコメント取得してみよう!(VB.NETのコードです)
http://sekki.org/wordpress/?p=25

Cookieを渡してgetplayerstatus を取る方法です。
http://sekki.org/wordpress/?p=47

コメントサーバーの仕組み?を解説します。
これを読めば、アリーナ、立ち見ABCどこにでも接続が出来ちゃう!
http://sekki.org/wordpress/?p=54

ニコニコ生放送のコメント取ってみようぜ!4

ニコ生コメント鯖について分かったかも知れない事

※間違ってたらごめんなさい
※ユーザー生の場合です。

知ったら得すること
ポート番号は
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
これしかない。

アドレスは
msg101.live.nicovideo.jp
msg102.live.nicovideo.jp
msg103.live.nicovideo.jp
msg104.live.nicovideo.jp
これだけ

スレッドは
アリーナから席ごとに+1した数
例)1062986843 : アリーナ
1062986844 : 立ち見A列
1062986845 : 立ち見B列
1062986846 : 立ち見C列
こんな感じ

そして!!
ポート番号が 2814 で、アドレスが msg101.live.nicovideo.jp でアリーナの時
立ち見にアクセスするときは、ポートが 2805 で、アドレスが msg102.live.nicovideo.jp になる!

例)スレッド,アドレス,ポートの順番
1039973590,msg101.live.nicovideo.jp,2813 : アリーナ
1039973591,msg101.live.nicovideo.jp,2814 : 立ち見A列
1039973592,msg102.live.nicovideo.jp,2805 : 立ち見B列
1039973593,msg102.live.nicovideo.jp,2806 : 立ち見C列

繰り上がる?感じ。
さらに、アドレスが msg104.live.nicovideo.jp だと次が、 msg101.live.nicovideo.jp に戻る

例)1062194798,msg104.live.nicovideo.jp,2814 : アリーナ
1062194799,msg101.live.nicovideo.jp,2805 : 立ち見A列
1062194800,msg101.live.nicovideo.jp,2806 : 立ち見B列
1062194801,msg101.live.nicovideo.jp,2807 : 立ち見C列

スレッドは、関係なしに+1

自分は、一回アリーナに戻して(今立ち見Cだったら、アドレスをアリーナにしなおす)全席を出してます。

以上だいたい説明しました。
これが今まで書いた内容が全部出来れば無敵です!w

コメビューを開発する方は頑張ってください!

== 追伸 ==
経過時間、残り時間の出し方は、暇だったら書きます。

ニコニコ生放送のコメント取ってみようぜ!3

Cookieを渡して getplayerstatus を取る方法

        Dim wc As New WebClient
        wc.Headers.Add("Cookie", "user_session=" & UserSessionValue)
        Dim enc As Encoding = Encoding.UTF8

    Dim liveID As String = "lv36190498"
        Dim data As Byte() = wc.DownloadData("http://live.nicovideo.jp/api/getplayerstatus?v=" & liveID)
        Dim res As String = enc.GetString(data)

        '0幅文字が含まれてるので消す(消さないと動かない)
        res = res.Replace("", "")

        Dim status = XDocument.Parse(res)
        threadId = status...<ms>...<thread>.Value
        messageServerPort = status...<ms>...<port>.Value
        messageServerAddress = status...<ms>...<addr>.Value

UserSessionValueの中に自分のユーザーセッションを記入してください、
自分は、Hal.CookieGetterSharpを使用しました。
CookieGetterSharpの使い方はいつか書きたいなーっと思ってます。

次は、コメントサーバーの仕様について書いて行きたいと思います。
自分の勝手な憶測なので、間違ってたらごめんなさい…

ニコニコ生放送のコメント取ってみようぜ!2

作るのに参考にしたサイト
とある技術の備忘録 – C#でニコ生からコメント取得
http://d.hatena.ne.jp/r7kamura/20091123/1258948977

NicoPITA Blog.
http://nicopita.info/NicoPITA/

今回は、VB.NET で作成していきます。

Imports System.Net.Sockets
Imports System.Text

Module Module1

    Sub Main()

        'http://watch.live.nicovideo.jp/api/getplayerstatus?v=lv何とか
        'msの値
        '取ってくるのはまた別に書くよ!
        Dim thread As Integer = 1062986843
        Dim addr As String = "msg102.live.nicovideo.jp"
        Dim port As Integer = 2813

        Dim more As String = ""
        'res_from で過去ログ取得 -10にすると、-10コメント前を取ってくる
        Dim req = String.Format("<thread thread=""{0}"" version=""20061206"" res_from=""-10"" /> ", thread)
        Dim tcp As New TcpClient(addr, Integer.Parse(port.ToString))
        Dim ns As NetworkStream = tcp.GetStream()
        Dim sendBytes As Byte() = Encoding.UTF8.GetBytes(req)
        sendBytes(sendBytes.Length - 1) = 0

        ns.Write(sendBytes, 0, sendBytes.Length)


        Dim resSize As Integer

        Do
            Dim resBytes As Byte() = New Byte(2048) {}

            resSize = ns.Read(resBytes, 0, resBytes.Length)
            If resSize = 0 Then
                Exit Do
            End If

            Dim message As String = Encoding.UTF8.GetString(resBytes)
            'Console.WriteLine(message)

            message = more & message
            more = ""
            Dim elements As String() = message.Split(New String() {vbNullChar}, StringSplitOptions.RemoveEmptyEntries)

            '<chat thread="1062986843" no="1" vpos="6300" date="1293718792" mail="184" user_id="mwR5e8FptFf6-O3gZtQ3ceHAgPU" premium="3" anonymity="1">テスト!</chat>

            For Each receiveData As String In elements

                '帰ってきたXMLに"<chat"から"</chat>"まで全部あったらで分ける
                '文字が多いいと、分割して帰ってくるから、
                If receiveData.StartsWith("<chat") AndAlso receiveData.EndsWith("</chat>") Then
                    OnReceiveChat(receiveData)
                Else
                    'チャットが分割で来たときの処理。
                    If receiveData.StartsWith("<thread resultcode=") = False Then
                        If receiveData.StartsWith("<view_counter") = True Then
                            'ここは、ニコニコ実況ようだから、スルーでおk
                        ElseIf receiveData.Contains("</chat>") = False Then
                            more = receiveData
                        End If
                    End If

                End If

            Next

        Loop While ns.CanRead
    End Sub

    Public Sub OnReceiveChat(ByVal receiveData As String)
        Dim commentNo As String
        Dim commentVpos As String
        Dim commentDate As String
        Dim commentMaill As String
        Dim commentUserID As String
        Dim commentPremium As String
        Dim commentAnonymity As String
        Dim commentText As String
        Dim commentThread As Integer
        Dim commentLoom As String = ""

        Dim userName As String = Nothing




        Dim comment = XElement.Parse(receiveData)
        commentNo = comment.@no
        commentDate = comment.@date
        commentVpos = comment.@vpos
        commentMaill = comment.@mail
        commentUserID = comment.@user_id
        commentPremium = comment.@premium

        '時々帰って来ない時がある。
        If commentPremium = Nothing Then
            commentPremium = "0"
        End If

        commentAnonymity = comment.@anonymity
        commentThread = CInt(comment.@thread)
        commentText = comment.Value



        'ユーザーレベル種分け
        If commentPremium = "0" Then
            commentPremium = "一般"
        ElseIf commentPremium = "1" Then
            commentPremium = "プレミアム"
        ElseIf commentPremium = "3" Then
            commentPremium = "放送主"
        ElseIf commentPremium = "7" Then
            commentPremium = "BSP"
        End If

        '0=一般
        '1=プレミアム
        '2=放送終了後に送られてくる、/disconnect のレベル
        '3=放送主
        '7=BSP

        '公式生見ると25とかある時がある。何故かはわからん

        Console.WriteLine("{0} : {1}", commentNo, commentText)
        'Console.Write(vbCrLf & CommentNo & " " & CommentVpos & " " & CommentDate & " " & CommentMaill & " " & CommentUserID & " " & CommentPremium & " " & CommentAnonymity & " " & CommentText)
 
    End Sub

End Module

お疲れ様でした 一応取得部分は完成です。
次は、getplayerstatusから値を取るコードを書きたいと思います。

ニコニコ生放送のコメント取ってみようぜ!1

実際にコメント取得して分かった事一覧

1, ログインしなくてもコメントは取れる。
2, なので、コミュに入ってない、かつコミュニティ限定のコメントも取れなくはない。
3, 匿名IDからユーザーの名前を取得するのは不可能
4, 帰ってくるチャットのXMLの順番が適当
5, コメントの長さが多いいと分割されて帰ってくる。
6, アリーナ・立ち見ABCのコメント鯖は推測できる。
7, 経過時間を出すのは結構難しい。
8, なんの文字がNGワードなのか特定不可能になった。
しかし、コメント番号から、NGコメントはわかる。

以上自分がコメント取得して分かったことです。

次は本題