Декодер пароля из 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]

спасибо.