43 ms·
This usually messes stuff up pretty good: perl -e '$file = '/dev/sda';\ $s = -s $file;\ $i = $s/2;\ while(--$i > 0){\ $r = int rand($s);\ syste
by esaym 11y ago
This usually messes stuff up pretty good:
perl -e '$file = '/dev/sda';\
$s = -s $file;\
$i = $s/2;\
while(--$i > 0){\
$r = int rand($s);\
system("dd if=/dev/urandom of=$file skip=$r count=1");\
}'