Code Index:

package Net::Lorcon
- AUTOLOAD
- new
__END__
EOF

NAME

Net::Lorcon - Raw wireless packet injection using the Lorcon library

SYNOPSIS

  use Net::Lorcon;

  my $tx = Net::Lorcon->new("eth1", "prism54");

  $tx->open;

  $tx->txpacket("packet..");

DESCRIPTION

This module enables raw 802.11 packet injection provided you have a Wi-Fi card supported by Lorcon.

Lorcon can be obtained from http://802.11ninja.net/lorcon.

FUNCTIONS

Net::Lorcon::getcardlist: Returns a list of supported driver names.
Net::Lorcon::resolvecard: Returns the ID of the given card. Not normally needed as new will automatically call this.

METHODS

new(device, driver): Constructs a new Net::Lorcon object. device is the name of the device to use for packet injection. driver is the driver to use (one of the names returned from getcardlist)
getcapabilities(): Returns the capabilites of this device. This is an integer with the TX80211_CAP_* constants below ORed together.
open(): Opens the device ready for transmitting packets
close(): Closes the device. (Automatically called when object is destroyed).
setmode(mode): Sets the mode of the device. Expects constants from <linux/wireless.h> (IW_MODE_MONITOR, etc).
getmode(): Returns an integer representing the current mode.
setfunctionalmode(func_mode): (Not implemented in the version of Lorcon I have)
setchannel(channel): Sets the channel to trasmit on.
getchannel: Returns the channel the wireless card is currently on.
txpacket(packet): Transmits the given packet. The expected input is a full 802.11 packet.

EXPORT

None by default.

Exportable constants

constant: Used internally only.

INJ_* are the various injection methods supported by Lorcon. TX80211_CAP_* are returned by getcapabilites.

  INJ_AIRJACK
  INJ_AIRPCAP
  INJ_BCM43XX
  INJ_HOSTAP
  INJ_MAC80211
  INJ_MADWIFING
  INJ_MADWIFIOLD
  INJ_MAX
  INJ_NODRIVER
  INJ_PRISM54
  INJ_RT2500
  INJ_RT2570
  INJ_RT61
  INJ_RT73
  INJ_RTL8180
  INJ_WLANNG
  INJ_ZD1211RW
  MAX_IFNAME_LEN
  TX80211_CAP_BSSTIME
  TX80211_CAP_CTRL
  TX80211_CAP_DSSSTX
  TX80211_CAP_DURID
  TX80211_CAP_FRAG
  TX80211_CAP_MIMOTX
  TX80211_CAP_NONE
  TX80211_CAP_OFDMTX
  TX80211_CAP_SELFACK
  TX80211_CAP_SEQ
  TX80211_CAP_SETMODULATION
  TX80211_CAP_SETRATE
  TX80211_CAP_SNIFF
  TX80211_CAP_SNIFFACK
  TX80211_CAP_TRANSMIT
  TX80211_CAP_TXNOWAIT
  TX80211_FUNCMODE_INJECT
  TX80211_FUNCMODE_INJMON
  TX80211_FUNCMODE_RFMON
  TX80211_MODE_ADHOC
  TX80211_MODE_AUTO
  TX80211_MODE_INFRA
  TX80211_MODE_MASTER
  TX80211_MODE_MONITOR
  TX80211_MODE_REPEAT
  TX80211_MODE_SECOND
  TX80211_RTAP_LEN
  TX80211_RTAP_PRESENT
  TX80211_STATUS_MAX
  TX_IEEE80211_RADIOTAP_ANTENNA
  TX_IEEE80211_RADIOTAP_CHANNEL
  TX_IEEE80211_RADIOTAP_DBM_ANTNOISE
  TX_IEEE80211_RADIOTAP_DBM_ANTSIGNAL
  TX_IEEE80211_RADIOTAP_DBM_TX_POWER
  TX_IEEE80211_RADIOTAP_DB_ANTNOISE
  TX_IEEE80211_RADIOTAP_DB_ANTSIGNAL
  TX_IEEE80211_RADIOTAP_DB_TX_ATTENUATION
  TX_IEEE80211_RADIOTAP_EXT
  TX_IEEE80211_RADIOTAP_FCS
  TX_IEEE80211_RADIOTAP_FHSS
  TX_IEEE80211_RADIOTAP_FLAGS
  TX_IEEE80211_RADIOTAP_LOCK_QUALITY
  TX_IEEE80211_RADIOTAP_RATE
  TX_IEEE80211_RADIOTAP_TSFT
  TX_IEEE80211_RADIOTAP_TX_ATTENUATION

AUTHOR

David Leadbeater, <dgl at dgl dot cx> (original author)

Patrice <GomoR> Auffret, <gomor at cpan dot org> (current maintainer)

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.

# # $Id: Lorcon.pm 3 2008-11-08 10:37:37Z gomor $ # package Net::Lorcon; use strict; use warnings; use 5.006; use Carp; use Exporter; use AutoLoader; our @ISA = qw(Exporter); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. # This allows declaration use Net::Lorcon ':all'; # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. our %EXPORT_TAGS = ( 'all' => [ qw( INJ_AIRJACK INJ_AIRPCAP INJ_BCM43XX INJ_HOSTAP INJ_MAC80211 INJ_MADWIFING INJ_MADWIFIOLD INJ_MAX INJ_NODRIVER INJ_PRISM54 INJ_RT2500 INJ_RT2570 INJ_RT61 INJ_RT73 INJ_RTL8180 INJ_WLANNG INJ_ZD1211RW MAX_IFNAME_LEN TX80211_CAP_BSSTIME TX80211_CAP_CTRL TX80211_CAP_DSSSTX TX80211_CAP_DURID TX80211_CAP_FRAG TX80211_CAP_MIMOTX TX80211_CAP_NONE TX80211_CAP_OFDMTX TX80211_CAP_SELFACK TX80211_CAP_SEQ TX80211_CAP_SETMODULATION TX80211_CAP_SETRATE TX80211_CAP_SNIFF TX80211_CAP_SNIFFACK TX80211_CAP_TRANSMIT TX80211_CAP_TXNOWAIT TX80211_FUNCMODE_INJECT TX80211_FUNCMODE_INJMON TX80211_FUNCMODE_RFMON TX80211_MODE_ADHOC TX80211_MODE_AUTO TX80211_MODE_INFRA TX80211_MODE_MASTER TX80211_MODE_MONITOR TX80211_MODE_REPEAT TX80211_MODE_SECOND TX80211_RTAP_LEN TX80211_RTAP_PRESENT TX80211_STATUS_MAX TX_IEEE80211_RADIOTAP_ANTENNA TX_IEEE80211_RADIOTAP_CHANNEL TX_IEEE80211_RADIOTAP_DBM_ANTNOISE TX_IEEE80211_RADIOTAP_DBM_ANTSIGNAL TX_IEEE80211_RADIOTAP_DBM_TX_POWER TX_IEEE80211_RADIOTAP_DB_ANTNOISE TX_IEEE80211_RADIOTAP_DB_ANTSIGNAL TX_IEEE80211_RADIOTAP_DB_TX_ATTENUATION TX_IEEE80211_RADIOTAP_EXT TX_IEEE80211_RADIOTAP_FCS TX_IEEE80211_RADIOTAP_FHSS TX_IEEE80211_RADIOTAP_FLAGS TX_IEEE80211_RADIOTAP_LOCK_QUALITY TX_IEEE80211_RADIOTAP_RATE TX_IEEE80211_RADIOTAP_TSFT TX_IEEE80211_RADIOTAP_TX_ATTENUATION ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( INJ_AIRJACK INJ_AIRPCAP INJ_BCM43XX INJ_HOSTAP INJ_MAC80211 INJ_MADWIFING INJ_MADWIFIOLD INJ_MAX INJ_NODRIVER INJ_PRISM54 INJ_RT2500 INJ_RT2570 INJ_RT61 INJ_RT73 INJ_RTL8180 INJ_WLANNG INJ_ZD1211RW MAX_IFNAME_LEN TX80211_CAP_BSSTIME TX80211_CAP_CTRL TX80211_CAP_DSSSTX TX80211_CAP_DURID TX80211_CAP_FRAG TX80211_CAP_MIMOTX TX80211_CAP_NONE TX80211_CAP_OFDMTX TX80211_CAP_SELFACK TX80211_CAP_SEQ TX80211_CAP_SETMODULATION TX80211_CAP_SETRATE TX80211_CAP_SNIFF TX80211_CAP_SNIFFACK TX80211_CAP_TRANSMIT TX80211_CAP_TXNOWAIT TX80211_FUNCMODE_INJECT TX80211_FUNCMODE_INJMON TX80211_FUNCMODE_RFMON TX80211_MODE_ADHOC TX80211_MODE_AUTO TX80211_MODE_INFRA TX80211_MODE_MASTER TX80211_MODE_MONITOR TX80211_MODE_REPEAT TX80211_MODE_SECOND TX80211_RTAP_LEN TX80211_RTAP_PRESENT TX80211_STATUS_MAX TX_IEEE80211_RADIOTAP_ANTENNA TX_IEEE80211_RADIOTAP_CHANNEL TX_IEEE80211_RADIOTAP_DBM_ANTNOISE TX_IEEE80211_RADIOTAP_DBM_ANTSIGNAL TX_IEEE80211_RADIOTAP_DBM_TX_POWER TX_IEEE80211_RADIOTAP_DB_ANTNOISE TX_IEEE80211_RADIOTAP_DB_ANTSIGNAL TX_IEEE80211_RADIOTAP_DB_TX_ATTENUATION TX_IEEE80211_RADIOTAP_EXT TX_IEEE80211_RADIOTAP_FCS TX_IEEE80211_RADIOTAP_FHSS TX_IEEE80211_RADIOTAP_FLAGS TX_IEEE80211_RADIOTAP_LOCK_QUALITY TX_IEEE80211_RADIOTAP_RATE TX_IEEE80211_RADIOTAP_TSFT TX_IEEE80211_RADIOTAP_TX_ATTENUATION ); our $VERSION = '0.02'; sub AUTOLOAD { # This AUTOLOAD is used to 'autoload' constants from the constant() # XS function. my $constname; our $AUTOLOAD; ($constname = $AUTOLOAD) =~ s/.*:://; croak "&Net::Lorcon::constant not defined" if $constname eq 'constant'; my ($error, $val) = constant($constname); if ($error) { croak $error; } { no strict 'refs'; # Fixed between 5.005_53 and 5.005_61 #XXX if ($] >= 5.00561) { #XXX *$AUTOLOAD = sub () { $val }; #XXX } #XXX else { *$AUTOLOAD = sub { $val }; #XXX } } goto &$AUTOLOAD; } require XSLoader; XSLoader::load('Net::Lorcon', $VERSION); sub new { my($class, $ifname, $injector) = @_; my $res = $injector; if($res !~ /^\d+$/) { $res = resolvecard($injector); if($res == INJ_NODRIVER()) { croak "Unknown driver ($injector)"; } } return Net::Lorcon::_new($ifname, $res); } 1; __END__