1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[PERL]Desofuscador of Batchs

Тема в разделе "Исходные коды", создана пользователем hisg, 6 июн 2015.

  1. TopicStarter Overlay
    hisg

    hisg

    Регистрация:
    6 июн 2015
    Сообщения:
    22
    Симпатии:
    1
    1. Код:
      #! / Usr / bin / perl
      
      my  % vars ;
      my  newcode = "" ;
      
      You are not allowed to view links.
        Register  or  Login ( FILE ,  "<$ ARGV [0]" ) ;
      codigo = <FILE> ;
      You are not allowed to view links.
        Register  or  Login ( FILE ) ;
      
      foreach  $ line ( codigo )
      {
              if ( $ line = ~ / September ( . + ) = "(. +)" / )
              {
                      $ Vars { $ 1 } = $ 2 ;
              }
              $ Line = ~ You are not allowed to view links.
        Register  or  Login /% ( \ w + ) : ~ ( \ d + ) , ( \ d + ) % / . You are not allowed to view links
        Register  or  Login ( $ vars { $ 1 } , $ 2 - 1 , $ 3 ) / eg ;
              You are not allowed to view links.
        Register  or  Login ( newcode , $ line ) ;
      }
      You are not allowed to view links.
        Register  or  Login  newcode ;
       
     
    Метки:

Поделиться этой страницей

Загрузка...