Bgucore Gif

Code Source

#!/usr/bin/perl
my $nombre=3400;
my $i=0; while($i<=100)
{ $count=int(rand($nombre));
`dd if=test.jpg of=$i.jpg bs=1c count=$count`;
$decalage=int(rand(2));
$decalage+=$count;
`dd if=test.jpg of=$i.jpg bs=1c skip=$count seek=$decalage`;
$i++;
}