- or download this
<?while(11^$n=md5(fgetc(STDIN).XXXXXX)%2119+1)$t+=$n-2*$t%$n?><?=$t;
- or download this
<?while(+$n=md5(fgetc(STDIN).XXXXXXXXXX))$t+=$n-2*$t%$n?><?=$t;
- or download this
for my $i (48..57,97..102) {
printf " %08b (ord %3d %c)\n", $i, $i, $i;
}
- or download this
00110000 (ord 48, "0")
00110001 (ord 49, "1")
...
01100100 (ord 100, "d")
01100101 (ord 101, "e")
01100110 (ord 102, "f")
- or download this
00111001 (ord 57, "9" character)
& 01110000 (ord 112, "p" character)
= 00110000 (ord 48, "0" character)
- or download this
0 0
1 1
...
7 5
8 0
9 1
- or download this
[0145a`de] [0`] [0`] [0`]
- or download this
static int my_md5(const unsigned char* inbuf)
{
...
outi = outi * 10 + nib;
return outi; // <-- only care about first four chars now
}
- or download this
use Digest::MD5 qw(md5_hex);
for my $r (M, D, C, L, X, V, I, "\n") {
my $hd = md5_hex( $r . PQcUv );
print "$r $hd ", $hd & uppp, "\n";
}
- or download this
M 993332d3c4fa8b3839761ca4dd480f7b 1000
D 503c3b61b971c24100e97c3297882b22 500`
...
I 9bb0bbb1977969abd73e5f8121e6cff7 1``0
c697df2fcf84f10272369ee4482e5c1c a000
- or download this
use Digest::MD5 md5_hex;
$\+=$n-2*$n%($n=uppp&md5_hex$_.PQcUv)for<>=~/./g;print
- or download this
<?while(+$n=md5(fgetc(STDIN).PQcUv)&uppp)$t+=$n-2*$t%$n?><?=$t;
- or download this
<?while(+$n=md5(fgetc(STDIN).XXXXXXXXXX))$t+=$n-2*$t%$n?><?=$t;