Содержание
- 2. Игры CTF (Capture the Flag) ICFP EACP (Extremely Advanced Computer Programming) YAPC::Russia 2009
- 3. Perl в хэке Простоя работа с сетью; Удобен при написании PoC; Обфускация кода; Генерация сложночитаемого С
- 4. Пример игрового сервиса YAPC::Russia 2009
- 5. Простой веб клиент YAPC::Russia 2009 ;
- 6. Perl2C ... (3474 строки) xpv_list[79].xpv_pv = savepvn("Hello, MayPerl\n", 15); { SV **svp; AV *av = (AV*)&sv_list[279];
- 7. Perl2bin YAPC::Russia 2009
- 8. Хэки в Perl Простой сокет в Perl’e; Sniffer под UNIX без использования libpcap; Прием/отправка пакетов и
- 9. Perl sockets #!/usr/bin/perl use Socket; socket $S, PF_INET, SOCK_STREAM, getprotobyname('tcp‘); my $addr=sockaddr_in(80, inet_aton($ip)); connect $S, $addr
- 10. Sniffer под Unix без использования libpcap #!/usr/bin/perl #use Socket; use constant PF_PACKET => 17; use constant
- 11. Отправка UDP пакета через raw socket #!/usr/local/bin/perl use Socket; use constant IPPROTO_RAW => 255; $iaddr =
- 12. Отправка UDP пакета через raw socket $packet .= pack("C", 69); $packet .= pack ("H2", '00'); $packet
- 13. Отправка пакетов через packet socket С какого интерфейса происходит отправка пакета: struct sockaddr { sa_family_t sa_family;
- 14. Отправка пакетов через packet socket Пример заполнения структуры и отправки пакета: $addr = PF_PACKET; #семейство $iface
- 15. Неблокирующий сокет на Perl (Windows) … my ($win, $ein); my $addr=sockaddr_in(86, inet_aton("10.0.0.253")); socket SOCK, PF_INET, SOCK_STREAM,
- 16. Perl в хэке и хэки в Perl СПАСИБО ЗА ВНИМАНИЕ! Илья Зеленчук ([email protected]) YAPC::Russia 2009
- 18. Скачать презентацию