| Paste number 60021: | Quick Perl magix to recover ICQ password (v2) |
| Pasted by: | _bjoern |
| 7 months, 1 day ago | |
| #swhack | Context in IRC logs | |
| Paste contents: |
| # ad-hoc stolen from dsniff or something. my @xor2 = (0xf3, 0x26, 0x81, 0xc4, 0x39, 0x86, 0xdb, 0x92, 0x71, 0xa3, 0xb9, 0xe6, 0x53, 0x7a, 0x95, 0x7c); my @p = map ord, split//, "binary 'roasted' password here"; for (my $i = 0; $i < @p; $i++) { $p[$i] = $p[$i] ^ $xor2[$i % @xor2]; } print map chr, @p; |
This paste has no annotations.