Dòng perl này từ tệp "tẩy trắng" làm gì?

Question

Tôi có một số tập tin perl đã được "tẩy trắng" (không biết nếu nó là từ ACME :: Bleach, hoặc một cái gì đó tương tự). Không phải là rất thông thạo trong perl, tôi muốn hiểu những gì một lót mà bắt đầu tập làm để giải mã các khoảng trắng mà sau:

$_=<<'';y;\r\n;;d;$_=pack'b*',$_;$_=eval;$@&&die$@;$_ 

Phần còn lại của tập tin là ký tự khoảng trắng, và các tập tin là thực thi bởi chính nó (nó được đặt trong thư mục/bin).

[Giải pháp], nhờ @JB.

Phần pack điều này có vẻ phức tạp nhất và tôi mất một lúc để nhận thấy những gì đang diễn ra. Gói đang sử dụng LSB chỉ trong mỗi 8 ký tự và giải nén nó dưới dạng ký tự lớn trong nhị phân. Vì vậy, các tab trở thành '0' và dấu cách trở thành '1'.

'\t\t \t ' => '#' 
in binary: 
    00001001 00001001 00100000 00100000 00100000 00001001 00100000 0100000 
every LSB: 
    1 1 0 0 0 1 0 0 
convert from from big-endian format: 
    0b00100011 == 35 == ord('#') 

Answer 1

• $_ = << ''; đọc phần còn lại của tập tin vào accumulator.
• y;\r\n;;d; dải trả về vận chuyển và nguồn cấp dữ liệu đường kẻ.
• $_ = pack 'b*', $_; chuyển đổi ký tự thành bit theo số $_, trước tiên là LSB.
• $_ = eval; thực hiện $_ làm mã Perl.
• $@ && die $@; $_ xử lý ngoại lệ và mã trả về một cách duyên dáng.

Answer 2

Bạn có thể sử dụng unbleach.pl để xóa tẩy trắng, nếu đó là những gì bạn thực sự đang cố gắng thực hiện.