информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Страшный баг в WindowsАтака на InternetВсе любят мед
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Крупный сбой Azure и других сервисов... 
 Серьезный сбой AWS положил множество... 
 Фишинговая атака на Python-разработчиков 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Вопрос по Perl 18.05.04 16:22  
Автор: horror Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Уважаемые программеры подскажите как написать реверсивный аналог строки:
$encrypted_string =~ s/(..)/pack("C*", hex($1))/segm;
вместо hex - ord, вместо pack - sprintf с форматом %x 18.05.04 17:53  
Автор: dl <Dmitry Leonov>
<"чистая" ссылка>
Спасибо, но меня интересует синтаксис строки 18.05.04 18:21  
Автор: horror Статус: Незарегистрированный пользователь
Отредактировано 18.05.04 18:22  Количество правок: 1
<"чистая" ссылка>
Спасибо,
но меня интересует синтаксис строки.
Если не сожно, можно привести для примера?
$word=~s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg; 18.05.04 18:40  
Автор: dl <Dmitry Leonov>
<"чистая" ссылка>
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2025 Dmitry Leonov   Page build time: 1 s   Design: Vadim Derkach