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");\
  }'