Декодер пароля из sim-icq

[ocehb]

perl -Mencoding=utf8 -le '$a = 0x4345; 
  print join "",map { $b = chr ($a ^= hex $_); $a = hex $_; $b } 
  split /\$/,$ARGV[0];'

Comments

еще раз

[owssrmn.livejournal.com]

спасибо.

[lav14.livejournal.com]

ух ты, блин, с что это такое? опять муравка нужна!

[uzeboster.livejournal.com]

Народ, я тут смотрю вы на Перле рубаете не хило.
Посоветуте грамотному книжку (в эл. варианте) для начинающего.
Заранее благодарен.

[sillysunnybear.livejournal.com]

никуя не помогло, выдало 2 ошибки и 7 символов в УТФе, а чего с ними делать, не понятно... (ибо ввести их такими, которыми выдало, никакой возможности не представляется...)