ФорумСообществоФлейм → perl расшифруйте

perl расшифруйте

  • Faster

    Сообщения: 1159 Репутация: N Группа: Кто попало

    Spritz 30 марта 2010 г. 18:37

    не знал куда поместить

    #!/usr/bin/perl -s
    $salt1 = ‘yI1n7odGejBedTejaj8’ if ! $salt1;
    $salt2 = ‘$1$EgMajByp$’ if ! $salt2;
    $str = shift or die;
    $ret = substr(crypt($salt1 . $str, $salt2), length($salt2));
    $ret =~ tr/\//,/;
    print “/protect:$ret$str\n”;

    что есть $str = shift or die;
    что есть crypt($salt1 . $str, $salt2)
    что есть $ret =~ tr/\//,/;

    спасибо
  • phpdude

    Сообщения: 26646 Репутация: N Группа: в ухо

    Spritz 30 марта 2010 г. 18:38, спустя 1 минуту 21 секунду

    Faster, а подумать?
    Сапожник без сапог

Пожалуйста, авторизуйтесь, чтобы написать комментарий!