#!/usr/bin/perl
use locale;$K="1234567890qwertyuiopasdfghjkl;zxcvbnm,./";#d
sub R($){return(rand(shift)<1);};sub r($){$k=shift;$i=index
($K,$k);return $k if($i<0);$x=$i%10;$y=($i-$x)/10;if(R(2)){
if(R(2)&&$x>0){$i--}elsif($x<9){$i++};}else{if(R(2)&&$y>0){
$i-=10;$i++if(R(2)&&$x<9);}elsif($y<3){$i+=10;$i--if(R(2)&&
$x>0);};}return substr($K,$i,1);};while (defined($_=getc)){
if(/[-[:alnum:] ,:.?]/){if(defined$l){print$_,$l;$l=undef;}
else{$r=rand(200);$p=0;if($r<++$p){$l=$_;$_='';}elsif($r<++
$p){$_=''}elsif($r<++$p){$_=r($_);}elsif($r<++$p){$_=$_.r($
_);}elsif($r<++$p){$_=r($_).$_;};print $_;}}else{print $l,#
$_;$l=undef;}};print"\nWygenerowane przez vtk 0.1 (GPL)\n";