- 浏览: 176280 次
- 性别:
- 来自: 成都
文章分类
最新评论
-
行动与思考:
你好!请问GraphicString这个类型是什么类型呀?怎么 ...
ACSE-1 (osi 8650-1)abstract syntax -
gaozon:
楼主,你好,请问用lua能编写这样一种插件吗:我想更改网络层i ...
编程语言 Lua -
langzhe:
percept:profile("test.dat& ...
erlang r12 新增加Percept并发性能调测模块 -
mryufeng:
解释epmd等2进制协议是erlang的拿手呀
Use Erlang NIF to snoop, capture packets(in Windows XP), in OTP-R13B04 -
xumingyong:
GeoffCant在git clone git://git.e ...
Use Erlang NIF to snoop, capture packets(in Windows XP), in OTP-R13B04
1. Overview
In Erlang/OTP R13B03, there is new feature called Native Implementation Function, Here I use NIF and libpcap library to have implemented a simple sniffer to real-time capturing packet from one interface.
简述:使用NIF实现简单的抓包程序。
2. Developing enviroment:
- Ubuntu 9.10: 2.6.31-14-generic
- gcc: 4.4.1
- libpcap.so.1.0.0
- Erlang/OTP R13B03
3. nif.erl
%%% nif sniffer -module(nif). -on_load(on_load/0). -export([opendevice/1, capture/0, loop/1]). on_load() -> ok = erlang:load_nif("./nif", 0), true. opendevice(_Interface) -> error. capture() -> error. loop(0) -> ok; loop(Count) -> Pkt = capture(), io:format("~p~n", [Pkt]), loop(Count-1).
4. nif.c
/* This file used to create a Erlang NIF which sniffer network packets. */ #include <erl_nif.h> #include <stdio.h> #include <pcap.h> #include <string.h> #include <ctype.h> pcap_t *devHandler = NULL; static int my_enif_get_string(ErlNifEnv *env, ERL_NIF_TERM list, char* buf) { ERL_NIF_TERM cell, head, tail; int val; while (enif_get_list_cell(env, list, &head, &tail)) { if (!enif_get_int(env, head, &val)) return 1; *buf = (char)val; buf++; list = tail; } *buf = '\0'; return 0; } static ERL_NIF_TERM opendevice(ErlNifEnv* env, ERL_NIF_TERM device) { char dev[64]; char errbuf[PCAP_ERRBUF_SIZE]; memset(errbuf, 0, PCAP_ERRBUF_SIZE); my_enif_get_string(env, device, dev); /* return enif_make_string(env, dev); */ /* Parms: dev,snaplen,promisc,timeout_ms,errbuf * Notes: if timeout_ms is set by non-zero, system give "segment fault" error ? * to_ms=0 means wait enough packet to arrive. */ devHandler = pcap_open_live(dev, 65535, 1, 0, errbuf); if(devHandler != NULL) return enif_make_string(env, "ok"); else return enif_make_string(env, errbuf); } static ERL_NIF_TERM capture(ErlNifEnv* env) { int i; struct pcap_pkthdr pkthdr; const u_char *packet = NULL; ErlNifBinary bin; packet = pcap_next(devHandler, &pkthdr); if(packet != NULL) { enif_alloc_binary(env, pkthdr.len, &bin); for(i = 0; i < pkthdr.len; i++) { bin.data[i] = packet[i]; } } else { bin.size = sizeof("NULL"); bin.data = "NULL"; } return enif_make_binary(env, &bin); } static ErlNifFunc nif_funcs[] = { {"capture", 0, capture}, {"opendevice", 1, opendevice} }; ERL_NIF_INIT(nif,nif_funcs,NULL,NULL,NULL,NULL)
5. 编译nif.c程序
gcc -fPIC -shared -o nif.so nif.c /usr/lib/libpcap.so -I/usr/local/lib/erlang/usr/include/
6. 开始测试
xumingyong@ubuntu:~/workspace/sniffer_nif$ sudo erl Erlang R13B03 (erts-5.7.4) [source] [smp:2:2] [rq:2] [async-threads:0] [hipe] [kernel-poll:false] Eshell V5.7.4 (abort with ^G) 1> c(nif). {ok,nif} 2> nif:opendevice("eth0"). "ok" 3> nif:loop(5). <<255,255,255,255,255,255,0,12,41,66,42,16,8,6,0,1,8,0,6,4,0,1,0,12,41,66,42,16,192,168,0,200,0,0,0,0,0,0,192,168,0,1>> <<0,12,41,66,42,16,0,80,86,192,0,1,8,6,0,1,8,0,6,4,0,2,0,80,86,192,0,1,192,168,0,1,0,12,41,66,42,16,192,168,0,200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>> <<0,80,86,192,0,1,0,12,41,66,42,16,8,0,69,0,0,84,0,0,64,0,64,1,184,143,192,168,0,200,192,168,0,1,8,0,68,170,146,13,0,1,86,157,102,75,108,91,13,0,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55>> <<0,12,41,66,42,16,0,80,86,192,0,1,8,0,69,0,0,84,178,130,64,0,128,1,198,12,192,168,0,1,192,168,0,200,0,0,76,170,146,13,0,1,86,157,102,75,108,91,13,0,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55>> <<0,80,86,192,0,1,0,12,41,66,42,16,8,0,69,0,0,84,0,0,64,0,64,1,184,143,192,168,0,200,192,168,0,1,8,0,121,143,146,13,0,2,87,157,102,75,54,117,13,0,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55>> ok 4>
7. 注意
- Must be root user when start "erl" command, or you cannot open the network adapter interface.
- The output of "nif:loop(5)" command is 5 ARP packet, 1st is broadcast, 2nd is request, 3rd is reply, 4th is request, 5th is reply.
- Because the erlang/OTP NIF is experimental, the new erlang/OTP may be incompatible with this version, please check the newest online documentation.
发表评论
-
又一本ERLANG书:Erlang and OTP in Action
2010-03-30 15:46 1130在网上找了很久,终于通过twitter-->> ... -
Use Erlang NIF to snoop, capture packets(in Windows XP), in OTP-R13B04
2010-02-26 21:45 17171. 介绍 在上一篇博文http://xumingyo ... -
使用一个Makefile文件同时编译dll和beam文件
2010-02-09 11:28 14901. 测试环境 - Windows XP SP3 ... -
Use Erlang NIF to snoop, capture packets(in Windows XP)
2010-02-03 15:02 38791. Overview In my last blog ... -
New features of NIF in Erlang/OTP R13B04
2010-01-31 15:34 1039From: http://archive.netbsd.se/ ... -
Another erlang nif test
2010-01-31 11:30 1194from http://www.davispj.com/200 ... -
转载:UBUNTU下安装Erlang的两种方法
2010-01-28 21:04 2321================第一种============ ... -
在SOLARIS x86下编译安装ERLANG的另一种方法(失败)
2010-01-04 12:48 1003尝试另一种方法。 1. 安装环境 ... -
在SOLARIS x86下成功编译安装ERLANG
2009-12-25 22:35 9781. 系统环境 在http://www.sunfr ... -
ERLANG编辑环境IDE配置
2009-11-18 08:41 36751. 概述 erlang的IDE有很多种,包括EMACS, ... -
Erlang文件I/O性能测评
2009-08-23 15:31 1348转载:http://chaoslawful.ite ... -
erlang网络编程的几个性能调优和注意点
2009-08-23 10:38 1165转载:http://www.lupaworld.com/act ... -
用Erlang实现领域特定语言
2009-08-13 13:13 917用Erlang实现领域特定语言 http://cools ... -
ERLANG mnesia:create_table/2问题
2009-06-11 14:27 1226我测试发现mnesia:create_table()有这样几个 ... -
ERLANG的OS_MON应用程序
2009-06-10 23:03 1587在ERLANG在线手册中,凡是看到〔Application〕字 ... -
erlang/OTP for TCP资源
2009-05-24 00:02 1065a-generalized-tcp-server ... -
ERLANG网上的资源
2009-04-29 15:05 1046http://www.erlang.org/ 是官方 ... -
erlang:split_binary(Bin, N)的BUG
2009-04-23 23:52 5040OS运行平台: root ... -
当你net_adm:ping(Node)的时候发生了什么?流程复杂 但是对理解dist工作原理至关重
2009-04-09 16:31 1339当你net_adm:ping(Node)的时候发生 ... -
erlang的crash_core_dump解读
2009-04-09 16:27 1944正常情况下 当erlang进程发生错误没有catch的时候 e ...
相关推荐
Geef is an example of an Erlang NIF binding to libgit2. A bit out of date, but basically works. Best as a proof of concept of what you could do with Erlang and NIFs with libgit2. 标签:Geef
rabbitmq-server-3.8.17-1.el8.noarch.rpm可用的erlang
erlang-asn1-19.3.6.4-1.el7.x86_64.rpm
Erlang otp_src_20.3.tar.gz linux centos otp-OTP-20.0.tar.gz 可兼容rabbitmq3.7.0
erlang nif test demo
erlang-19.0.4-1.el7.centos.x86_64.rpm ,官网的正式包
Erlang程序设计 Programming.Erlang.Joe.Armstrong.英文版.pdf 英文 文字版
erlang-24.3.3-1.el9.x86_64.rpm centos
erlang 安装包。 rabbitmq 安装所需要的
在CentOS7上能满足RabbitMQ版本需要的erlang安装包。 安装命令: sudo yum install erlang-20.3-1.el7.centos.x86_64.rpm
erlang-21.3-1.el7.x86_64.rpm rabbitmq基础语言环境。
rabbitMQ安装需要依赖erlang环境,这里提供centOS erlang21.3.1版本免费下载,适用于rabbitMQ对应版本
Erlang是一种通用的面向并发的编程语言,它由瑞典电信设备制造商爱立信所辖的CS-Lab开发,目的是创造一种可以应对大规模并发活动的编程语言和运行环境。文件(erlang-23.1.1-1.el7.x86_64.rpm)是Erlang语言是安装包,...
Erlang 语言环境安装包,版本24.0,适用于Windows
包括erlang-23.3.4.3-1.el7.x86_64.rpm和rabbitmq-server-3.8.17-1.el7.noarch.rpm以及安装步骤
erlang-23.1-1.el8.x86_ ,erlang官网下载很慢,所以提供该下载链接。
erlang-xmerl-22.2.3-1.el7.x86_64.rpm 免费下载0积分镜像下载。rabbitMQ安装需要依赖此环境。Erlang 是一种多用途编程语言,主要用于开发并发和分布式系统。它最初是一种专有的编程语言,Ericsson 使用它来开发电话和...
erlang-22.1.4-1.el7.x86_64.rpm rabbitmq基础语言环境。
RabbitMQ安装需要的安装包