ethsend/0000777000000000000000000000000011264623251011214 5ustar rootrootethsend/EthernetFrame.txt0000777000000000000000000000026711264623235014520 0ustar rootroot# Comment 000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001 000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001 ethsend/ethsend.pl0000777000000000000000000000427111264623235013214 0ustar rootroot#!/usr/bin/perl #----------------------------------------------------------- # ethsend.pl: 2009-10-12: Public Release 1.0 # # EthSend # # 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 < 1){ &usage; } $nic = $ARGV[0]; $file = $ARGV[1]; if(! -r $file){ print "File[$file] not found!!!\n"; &usage; } $frame_num = 0; print "NIC[$nic]\n"; print "File[$file]\n"; use Net::RawIP; $packet = new Net::RawIP; $packet->ethnew("$nic"); open(IN, $file); while($hex = ){ # chomp($hex); $hex =~ tr/.\r$|.\n$|.\r\n$|.\n\r$//d; $len = length($hex); if($hex =~ /^\#/){ # print "Comment Line\n"; }elsif($len % 2 != 0 || $len < 24){ print "- Invalid Ethernet Frame $frame_num [$hex]\n"; }elsif($hex =~ /[^0-9a-fA-F\r\n]/){ print "- Invalid Hex Character $frame_num [$hex]\n"; }else{ $frame_num++; $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 Ethernet Frame $frame_num [$hex]\n"; } } close(IN); 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 usage{ print "=========\n"; print " EthSend\n"; print "=========\n"; print "Usage: $program_name [nic] [EthernetFrame_file(hex)]\n\n"; print "Version: 1.0 (12 October 2009)\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; } ethsend/README_ja.txt0000777000000000000000000000607011264623235013374 0ustar rootroot----------------------------------------------------------- ethsend.pl: 2009-10-12: Public Release 1.0 EthSend Copyright(c) 2009 Eiji James Yoshida. All rights reserved ptrs_ejy@bp.iij4u.or.jp ----------------------------------------------------------- ## 1. EthSend とは EthSend とは、任意のイーサネット・フレーム（Ethernet II）を送信するためのパケット・ジェネレータです。 ## 2. 主な機能 + 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 ethsend.pl ========= EthSend ========= Usage: ethsend.pl [nic] [EthernetFrame_file(hex)] Version: 1.0 (12 October 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 ~]# nic : 送信するインターフェースを指定します。（例: eth0） EthernetFrame_file(hex): 送信するイーサネット・フレームが16進数形式の文字列で記載されているテキスト・ファイルを指定します。（例: EthernetFrame.txt） EthernetFrame_fileの作成には、tcpdump(-xx -s 0 オプション)やWireshark(http://www.wireshark.org/)の16進出力を利用すると便利です。 ## 6. 使用例 [root@localhost ~]# cat EthernetFrame.txt # Comment 000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001 000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001 [root@localhost ~]# perl ethsend.pl eth0 EthernetFrame.txt NIC[eth0] File[EthernetFrame.txt] + Send Ethernet Frame 1 [000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001] + Send Ethernet Frame 2 [000000000000000000000000080600010800060400010000000000007f0000010000000000007f000001] [root@localhost ~]# ## 7. 注意点 EthSend は、イーサネット・フレームの下記の部分を任意の値に設定できます。 + 送信先MACアドレス（6バイト）[必須] + 送信元MACアドレス（6バイト）[必須] + タイプ（2バイト） + データ EthSend は、イーサネット・フレームの下記の部分は設定できません。（自動設定） + プリアンブル + フレーム・チェック・シーケンス ## 8. 著作権その他 EthSend はフリーソフトです。 EthSend の著作権は作者である Eiji James Yoshida が保有しています。 EthSend は無保証のソフトなので、サポートは行いません。 また、EthSend を使って発生した不具合・問題等の結果についても作者は一切責任は負えません。 各自の責任で使用してください。