/ 
RFID-Libnfc-0.02
River stage zero No dependents
/ RFID::Libnfc

NAME

RFID::Libnfc - Perl extension for libnfc (Near Field Communication < http://www.libnfc.org/ >)

SYNOPSIS

ObjectOriented API: 

use RFID::Libnfc;

$r = RFID::Libnfc::Reader->new();
if ($r->init()) {
  printf ("Reader: %s\n", $r->name);
}

$tag = $r->connectTag(IM_ISO14443A_106);
$tag->dumpInfo

$block_data = $tag->read_block(240);
$entire_sector = $tag->read_sector(35);

$tag->write(240, $data); 

$uid = $tag->uid;

===============================================================================

Procedural API: (equivalend of C api)

  use RFID::Libnfc ':all';
  use RFID::Libnfc::Constants ':all';


  my $pdi = nfc_connect();
  if ($pdi == 0) { 
      print "No device!\n"; 
      exit -1;
  }
  nfc_initiator_init($pdi); 
  # Drop the field for a while
  nfc_configure($pdi, DCO_ACTIVATE_FIELD, 0);
  # Let the reader only try once to find a tag
  nfc_configure($pdi, DCO_INFINITE_SELECT, 0);
  nfc_configure($pdi, DCO_HANDLE_CRC, 1);
  nfc_configure($pdi, DCO_HANDLE_PARITY, 1);
  # Enable field so more power consuming cards can power themselves up
  nfc_configure($pdi, DCO_ACTIVATE_FIELD, 1);

  printf("Reader:\t%s\n", $pdi->acName);

  # Try to find a MIFARE Classic tag
  my $ti = tag_info->new();
  my $pti = $ti->_to_ptr;
  my $bool = nfc_initiator_select_tag($pdi, IM_ISO14443A_106, 0, 0, $pti);

  #read UID out of the tag
  my $uidLen = $pti->uiUidLen;
  my @uid = unpack("C".$uidLen, $pti->abtUid);
  printf("UID:\t". "%x " x $uidLen ."\n", @uid);

  # disconnects the tag
  nfc_disconnect($pdi);

DESCRIPTION

Provides a perl OO api to libnfc functionalities
(actually implements only mifare-related functionalities)

EXPORT

None by default.

Exportable functions

void append_iso14443a_crc(byte_t* pbtData, uint32_t uiLen)
byte_t mirror(byte_t bt)
uint32_t mirror32(uint32_t ui32Bits)
uint64_t mirror64(uint64_t ui64Bits)
void mirror_byte_ts(byte_t *pbts, uint32_t uiLen)
_Bool nfc_configure(dev_info* pdi, const dev_config_option dco, const _Bool bEnable)
dev_info* nfc_connect(void)
void nfc_disconnect(dev_info* pdi)
_Bool nfc_initiator_deselect_tag(const dev_info* pdi)
_Bool nfc_initiator_init(const dev_info* pdi)
_Bool nfc_initiator_mifare_cmd(const dev_info* pdi, const mifare_cmd mc, const uint8_t ui8Block, mifare_param* pmp)
_Bool nfc_initiator_select_tag(const dev_info* pdi, const init_modulation im, const byte_t* pbtInitData, const uint32_t uiInitDataLen, tag_info* pti)
byte_t *nfc_initiator_transceive_bits(const dev_info* pdi, const byte_t* pbtTx, const uint32_t uiTxBits, const byte_t* pbtTxPar)
byte_t *nfc_initiator_transceive_bytes(const dev_info* pdi, const byte_t* pbtTx, const uint32_t uiTxLen)
byte_t *nfc_target_init(const dev_info* pdi)
byte_t *nfc_target_receive_bits(const dev_info* pdi)
byte_t *nfc_target_receive_bytes(const dev_info* pdi)
_Bool nfc_target_send_bits(const dev_info* pdi, const byte_t* pbtTx, const uint32_t uiTxBits, const byte_t* pbtTxPar)
_Bool nfc_target_send_bytes(const dev_info* pdi, const byte_t* pbtTx, const uint32_t uiTxLen)
byte_t oddparity(const byte_t bt)
void oddparity_byte_ts(const byte_t* pbtData, const uint32_t uiLen, byte_t* pbtPar)
void print_hex(const byte_t* pbtData [ uint32_t uiLen ])
void print_hex_bits(const byte_t* pbtData, const uint32_t uiBits)
void print_hex_par(const byte_t* pbtData, const uint32_t uiBits, const byte_t* pbtDataPar)
uint32_t swap_endian32(const void* pui32)
uint64_t swap_endian64(const void* pui64)

SEE ALSO

RFID::Libnfc::Constants RFID::Libnfc::Reader RFID::Libnfc::Tag

< check also documentation for libnfc c library [ http://www.libnfc.org/documentation/introduction ] >

AUTHOR

xant

COPYRIGHT AND LICENSE

Copyright (C) 2009 by xant <xant@xant.net>

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.