rawframe/0000777000000000000000000000000011317646431011372 5ustar rootrootrawframe/EthernetFrame.txt0000777000000000000000000000034011307354754014667 0ustar rootroot# Comment 000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001 00 00 00 00 00 00 00 00 00 00 00 00 08 06 00 01 08 00 06 04 00 01 00 00 00 00 00 00 7f 00 00 01 00 00 00 00 00 00 7f 00 00 01 rawframe/rawframe.pl0000777000000000000000000000575411317646564013560 0ustar rootroot#!/usr/bin/perl #----------------------------------------------------------- # rawframe.pl: 2010-01-02: Public Release 1.0 # # rawframe # # Copyright(c) 2009 Eiji James Yoshida. All rights reserved # ptrs_ejy@bp.iij4u.or.jp #----------------------------------------------------------- ($program_name) = $0 =~ m|[\\\/]([^\\\/]*)$|g; if($program_name eq undef){ $program_name = $0; } if($#ARGV < 0){ &usage; } use Net::RawIP; $mode = $ARGV[0]; $nic = $ARGV[1]; print "# Mode[$mode]\n"; if($mode eq "send"){ if($#ARGV != 2){ &usage; } $file = $ARGV[2]; &send_frame; }elsif($mode eq "recv"){ if($#ARGV != 3){ &usage; } $filter = $ARGV[2]; $count = $ARGV[3]; &recv_frame; }else{ print "Invalid Mode[$mode]\n"; &usage; } sub send_frame{ $packet = new Net::RawIP; $packet->ethnew("$nic"); $frame_num = 0; print "# NIC[$nic]\n"; print "# File[$file]\n"; if($file eq "stdin"){ while($hex = ){ &craft_frame; } }elsif(-r $file){ open(IN, $file); while($hex = ){ &craft_frame; } close(IN); }else{ print "File[$file] not found!!!\n"; &usage; } } sub recv_frame{ $| = 1; print "# NIC[$nic]\n"; print "# Filter[$filter]\n"; print "# Count[$count]\n"; $packet = new Net::RawIP({generic =>{}}); $pcap = $packet->pcapinit($nic,"$filter",65535,-1); loop $pcap,$count,\&pktdmp,\@packet; } sub craft_frame{ $frame_num++; if($hex =~ /^\#/){ # print "Comment Line\n"; $frame_num--; }else{ $hex =~ s/[^0-9a-fA-F]//g; $len = length($hex); if($len == 0){ # print "blank line\n"; $frame_num--; }elsif($len % 2 != 0 || $len < 24){ print "- Invalid Frame $frame_num [$hex]\n"; }else{ $dmac_hex = substr($hex,0,12);$dmac_hex =~ s/([0-9a-fA-F][0-9a-fA-F])/$1:/g; chop($dmac_hex); $smac_hex = substr($hex,12,12);$smac_hex =~ s/([0-9a-fA-F][0-9a-fA-F])/$1:/g; chop($smac_hex); $frame_hex = substr($hex,24); &hex2data($frame_hex); # print "dmac = [$dmac_hex]\nsmac = [$smac_hex]\n"; # print "frame_data = [$frame_data]\n"; $packet->ethset(dest =>"$dmac_hex", source =>"$smac_hex"); $packet->send_eth_frame($frame_data); print "+ Send Frame $frame_num [$hex]\n"; } } } sub hex2data{ $frame_hex = $_[0]; # print "frame_hex = $frame_hex\n"; $frame_hex =~ s/([0-9a-fA-F][0-9a-fA-F])/pack("H2", $1)/eg; $frame_data = $frame_hex; # print "frame_data = $frame_data\n"; } sub pktdmp{ @data = @_; $frame = $data[2]; $frame_hex = unpack("H*",$frame); print "$frame_hex\n"; } sub usage{ print "==========\n"; print " rawframe \n"; print "==========\n"; print "Usage: rawframe.pl send [nic] [file or stdin]\n"; print " recv [nic] [filter] [count]\n"; print "\n"; print "Version: 1.0 (2 January 2010)\n"; print "Author : Eiji James Yoshida (ptrs_ejy\@bp.iij4u.or.jp)\n"; print " penetration technique research site\n"; print " (http://www.geocities.jp/ptrs_sec/index.htm)\n"; print " Security Professionals Network Inc.\n"; print " (http://www.sec-pro.net/)\n"; exit; } rawframe/README_ja.txt0000777000000000000000000000753711317646635013567 0ustar rootroot----------------------------------------------------------- rawframe.pl: 2010-01-02: Public Release 1.0 rawframe Copyright(c) 2009 Eiji James Yoshida. All rights reserved ptrs_ejy@bp.iij4u.or.jp ----------------------------------------------------------- ## 1. RawFrame とは RawFrame とは、任意のイーサネット・フレーム（Ethernet II）等を送受信するためのネットワーク・ツールです。 ## 2. 主な機能 + 16進数形式の文字列をイーサネット・フレーム等にして送信します。 + イーサネット・フレーム等を16進数形式の文字列で表示します。 ## 3. 確認済み動作環境 CentOS release 5.3 (v5.8.8 built for i386-linux-thread-multi) BackTrack 4 Pre Release ## 4. 必要なファイル perl [http://www.perl.com/] Net::RawIP [http://search.cpan.org/search?dist=Net-RawIP] libpcap [http://www.tcpdump.org/] ## 5. 使用方法 [root@localhost ~]# perl rawframe.pl ========== rawframe ========== Usage: rawframe.pl send [nic] [file or stdin] recv [nic] [filter] [count] Version: 1.0 (9 December 2009) Author : Eiji James Yoshida (ptrs_ejy@bp.iij4u.or.jp) penetration technique research site (http://www.geocities.jp/ptrs_sec/index.htm) Security Professionals Network Inc. (http://www.sec-pro.net/) [root@localhost ~]# # sendモード nic : 送信するインターフェースを指定します。（例: eth0） file : 送信するイーサネット・フレーム等が16進数形式の文字列で記載されているテキスト・ファイルを指定します。（例: EthernetFrame.txt） stdin : 送信するイーサネット・フレーム等を16進数形式の文字列で入力します。（例: 000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001） # recvモード nic : 受信するインターフェースを指定します。（例: eth0） filter: 受信する条件式を指定します。（例: tcp and port 80） count : 受信する回数を指定します。（例: 10） ## 6. 使用例 [root@localhost ~]# cat EthernetFrame.txt # Comment 000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001 00 00 00 00 00 00 00 00 00 00 00 00 08 06 00 01 08 00 06 04 00 01 00 00 00 00 00 00 7f 00 00 01 00 00 00 00 00 00 7f 00 00 01 [root@localhost ~]# # sendモード [root@localhost ~]# perl rawframe.pl send eth0 EthernetFrame.txt # Mode[send] # NIC[eth0] # File[EthernetFrame.txt] + Send Frame 1 [000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001] + Send Frame 2 [000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001] [root@localhost ~]# # recvモード [root@localhost ~]# perl rawframe.pl recv eth0 "" 1 # Mode[recv] # NIC[eth0] # Filter[] # Count[1] 000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001 [root@localhost ~]# ## 7. 注意点 RawFrame は、イーサネット・フレーム等の下記の部分を任意の値に設定できます。 + 送信先MACアドレス（6バイト）[必須] + 送信元MACアドレス（6バイト）[必須] + データ RawFrame は、イーサネット・フレーム等の下記の部分は設定できません。（自動設定） + プリアンブル + フレーム・チェック・シーケンス RawFrame は、recvモードにするとインターフェースがPromiscuousモードになります。 ## 8. 著作権その他 RawFrame はフリーソフトです。 RawFrame の著作権は作者である Eiji James Yoshida が保有しています。 RawFrame は無保証のソフトなので、サポートは行いません。 また、RawFrame を使って発生した不具合・問題等の結果についても作者は一切責任は負えません。 各自の責任で使用してください。