šŽO@y ƒXƒNƒŠƒvƒg‰ ..
[
2ch
|
¥Menu
]
¡ƒRƒsƒyƒ‚[ƒh
ƒXƒŒ‚ð’Êí•\ަ
ƒIƒvƒVƒ‡ƒ“ƒ‚[ƒh
‚±‚̽گÄÞ‚ÌURL
¡€–ÚƒeƒLƒXƒg
334:nobody‚³‚ñ 08/07/25 22:21:13 >>333 ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½I ‚¿‚á‚ñ‚Ƃł«‚Ü‚µ‚½I 335:nobody‚³‚ñ 08/08/07 13:46:25 qpI1q2Ei yCGI–¼z PRTC BBS y”z•zæURLz ˆê”ʂɔz•z‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ yƒwƒ‹ƒv“à—ezˆÃ†‰»‚ð‚µ‚½‚¢‚Å‚· http://www.rescue.ne.jp/cgi/htpasswd/makepwd-des/ ‚±‚̃TƒCƒg‚̂悤‚ÈŠ´‚¶‚Å(‚à‚Á‚ÆŠÈ‘f‚Å‚à\‚¢‚Ü‚¹‚ñ) ‚Ƃɂ©‚o—Í‚ð‚µ‚½‚¢‚ñ‚Å‚· ‰º‹L‚̃\[ƒX‚Åcgi‚ð“®‚©‚µ‚½‚¢‚̂ł·‚ªA‰SŽÒ‚ł킩‚è‚Ü‚¹‚ñ ’mޝ•s‘«‚Ȃ̂͂킩‚Á‚Ä‚¢‚é‚̂ł·‚ª‚Ç‚¤‚µ‚Ä‚à‚â‚肽‚¢‚Å‚· ‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚· sub enc_string{ my ($key, $string) = @_; my @map = (('A' ... 'Z'), ('a' ... 'z'), ('0' ... '9'), '+', '&'); my @key = unpack('C*', $key); my $str = ''; my @x = map { int(rand(200)) } (0 ... 2); @key = map {$x[$_] ^ $key[$_]} (0 ... 2); while($string ne ''){ my $n = substr($string, 0, 3, ''); my @n = unpack('C3', $n); map{$n[$_] ^= ($key[$_])} (0 ... 2);
ŽŸƒy[ƒW
ÅVƒŒƒX•\ަ
ƒXƒŒƒbƒh‚ÌŒŸõ
—ÞŽ—ƒXƒŒˆê——
˜b‘è‚̃jƒ…[ƒX
‚¨‚Ü‚©‚¹ƒŠƒXƒg
¥ƒIƒvƒVƒ‡ƒ“‚ð•\ަ
ƒŒƒXƒWƒƒƒ“ƒv
mixiƒ`ƒFƒbƒNI
Twitter‚É“Še
ƒIƒvƒVƒ‡ƒ“
‚µ‚¨‚è‚ð‹²‚Þ
ƒXƒŒƒbƒh‚É‘ž
ƒXƒŒƒbƒh‚̈ꗗ
‰É‚‚Ԃµ2ch
4828“ú‘O‚ÉXV/190 KB
’S“–:undef