1 2 3 4 5 6 7 8 9 10 11 |
#Cifrar incrementando un valor a cada letra (el valor empieza en 0 y va sumando 1) de cada palabra de cada frase $var=0 ForEach ($frases in gc .\quijote.txt){ $frasec="" ForEach ($palabra in $frases.split()){ $frasecn=(0..($palabra.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($palabra[$_].ToString(),0)+($var=$var+1))}) -join "" $frasec=$frasec+$frasecn $var=0 } $frasec | Out-File quijotecifcomplex.txt -Append } |