Forum Webscript.Ru
		Программирование => Perl => Тема начата: C++ от 15 Февраля 2004, 22:20:36
		
			
			- 
				Достался мне на работе один скрипт, видимо закодированный.
 Начинается он с
 
 BEGIN{
 #тут присваивание;
 ;eval pack(\'H*\',$s);
 }
 #тут много символов и букв
 
 
 Как можно посмотреть и изменить его код.
 Можно в приват ;)
 
 Заранее спасибо!
- 
				C++ 
 Ничего непонятно...
- 
				metton 
 Скрипт начинается так:
 
 #!/usr/bin/perl
 BEGIN{$erwer346=\'e2f6d6f64756c6573223b757365206d6b706372743b\';eval pack(\'H*\',$erwer346);}
 #тут, вместо комментария идут несколько очччень длинных строк, состоящих _только_ из цифр и букв латинского алфавита
 
 больше ничего в нем нет.
 Как узнать содержимое этого скрипта?
- 
				C++ 
 Замени eval на print