Implemente este cifrado de clave

Objetivo

Use el algoritmo (explicado en la sección Algoritmo) para implementar un determinado cifrado.

El programa debe leer la entrada de STDIN o el equivalente disponible más cercano, usar el algoritmo para generar el texto cifrado y una clave.

El texto cifrado y la clave se escribirán en STDOUT o el equivalente disponible más cercano. Se permite cualquier formato, siempre que emita el texto cifrado y la clave.

Algoritmo

Convierta los caracteres de la cadena en los valores ASCII respectivos. Por ejemplo:

Hello -> 72 101 108 108 111

A continuación, deberá generar una clave siempre que la cadena con números aleatorios en el rango de 0-9.

Hello -> 62841

Agregue los enteros en la secuencia de números aleatorios a los valores ASCII de la cadena. En los ejemplos anteriores, 72 se convertiría en 78 y 101 se convertiría en 104.

72 + 6 = 78, 101 + 2 = 103, 108 + 8 = 116, etc

A continuación, convierta los nuevos valores a caracteres. En los ejemplos anteriores, el texto se Helloha convertido Ngtpp.

Ejemplos

(Estos son simplemente ejemplos de cómo se vería la salida . La salida puede variar y variará).

Hello World

Lfrlu)_supg
41606984343

This will be encoded

Zhjs$~koo gj$iuhofgj
60104723305544750226

Reglas

• Puede suponer que la entrada solo contendrá caracteres en el rango az, AZ y espacios.
• Los envíos deben ser programas o funciones completos.
• Las presentaciones se puntuarán en bytes.
• Las lagunas estándar están prohibidas.
• Este es el código de golf, por lo que gana el código más corto.

(Este es uno de mis primeros desafíos, si hay algo mal con él, no dude en decirme cómo podría mejorarlo).

Jalea , 12 9 bytes

⁵ṁX€’Ṅ+OỌ

Pruébalo en línea!

Cómo funciona

⁵ṁX€’Ṅ+OỌ  Main link. Argument: s (string)

⁵             Set the return value to 10.
 ṁ            Mold; create an array of 10's with the length of s.
  X€          Pseudo-randomly pick a integer between 1 and 10, for each 10.
    ’         Decrement, so the integers fall in the range [0, ..., 9].
     Ṅ        Print the key, as an array, followed by a linefeed.
      +O      Add the integers to the ordinals (code points) of s.
        Ọ     Unordinal; convert back to characters.

Python 3, 130 bytes

Gracias a @Rod por señalar un error

from random import*
def f(x):l=10**len(x);k=str(randint(0,l-1)+l)[1:];print(''.join(chr(ord(i)+int(j))for i,j in zip(x,k))+'\n'+k)

Una función que toma la entrada a través del argumento como una cadena e imprime en STDOUT.

Cómo funciona

from random import*  Import everything from the random module
def f(x):            Function with input string x
l=10**len(x)         Define l for later use as 10^length(x)
randint(0,l-1)+l     Generate a random integer in the range [0, l-1] and add l, giving a
                     number with l+1 digits...
k=str(...)[1:]       ...convert to a string and remove the first character, giving a key of
                     length l that can include leading zeroes, and store in k
for i,j in zip(x,k)  For each character pair i,j in x and k:
chr(ord(i)+int(j))    Find the UTF-8 code-point (same as ASCII for the ASCII characters),
                      add the relevant key digit and convert back to character
''.join(...)         Concatenate the characters of the ciphertext
print(...+'\n'+k)    Add newline and key, then print to STDOUT

Pruébalo en Ideone

Pyth - 16 bytes

Esperando la decisión de OP sobre los formatos de salida.

sCM+VCMQKmOTQjkK

Test Suite .

En realidad, 17 bytes

;`X9J`M;(O¥♂cΣ@εj

Pruébalo en línea!

Explicación:

;`X9J`M;(O¥♂cΣ@εj
;                  dupe input
 `X9J`M            for each character in input copy:
  X9J                discard the character, push a random integer in [0, 9]
       ;           duplicate the offset array
        (O         bring input to top of stack, ordinal array
          ¥♂c      pairwise addition with offset array, turn each ordinal into a character
             Σ     concatenate
              @εj  concatenate the copy of the offset array

CJam - 14 bytes

Cuando vi el código ascii matemático, supe que tenía que escribir una respuesta CJam.

q_{;Amr}%_@.+p

Pruébelo en línea aquí .

MATL, 13 bytes

"10r*]v!kGy+c

El resultado se ve así:

9 5 8 2 1
Qjtnp

Pruébalo en línea!

Explicación:

"    ]          % For each character:
 10             % Push a 10 onto the stack
   r            % Push a random float in [O, 1)
    *           % Multiply. This essentially the same thing as pushing a number in [0, 10)
      v!k       % Join all of these together, and take the floor
         G      % Push the input again
          y     % Duplicate the array of random numbers
           +    % And add these together. Since MATL treats strings as an array of chars, we don't need to explicitly convert types
            c   % Display as string

PowerShell v2 +, 79 77 bytes

param($n)-join(($x=[char[]]$n|%{0..9|Random})|%{[char]($_+$n[$i++])});-join$x

Toma datos $n, recorre cada personaje y obtiene un Randomelemento de 0..9cada iteración. Almacena esos números (como una matriz) en $x. Tubos que se agrupan en otro bucle. Cada iteración, toma el elemento actual $_, lo agrega al carácter posicional cortado de $n(conversión implícita char-to-int), luego se vuelve a emitir como [char]. Deja eso en la tubería. Eso está encapsulado en parens y-join editado juntos para formar la palabra. Eso queda en la tubería. Además, el número $xtambién se -joinedita y se deja en la tubería. Estos se imprimen implícitamente con un Write-Outputal final de la ejecución, lo que hace que se impriman con una nueva línea de forma predeterminada.

Ejemplo

PS C:\Tools\Scripts\golfing> .\implement-this-key-cipher.ps1 'Hello World!'
Lhoot(Yt{mf"
433358259121

C #, 252 247 245 232 216 Bytes

El tamaño es bastante malo en comparación con las otras soluciones, pero sin embargo ...

using System;using System.Linq;class p{static void Main(){var c="";var i=Console.ReadLine();var r=new Random();for(int b=0;b++<i.Count();){int d=r.Next(10);Console.Write((char)(i[b]+d));c+=d;}Console.Write("\n"+c);}}

Esta es mi segunda respuesta a un codegolf y soy bastante principiante considerando C #, así que agradecería saber cómo acortarlo :)

Sin golf:

using System;
using System.Linq;

class p
{
    static void Main()
    {
        var c = "";
        var i = Console.ReadLine();
        var r = new Random();
        for (int b = 0; b++ < i.Count();)
        {
            int d = r.Next(10);
            Console.Write((char)(i[b] + d));
            c += d;
        }
        Console.Write("\n" + c);
    }
}

• Guardado 5 Bytes gracias a @FryAmTheEggman
• Guardado 2 Bytes gracias a @theLambGoat
• Guardado 7 Bytes al eliminar staticde la clase p
• Guardado 24 Bytes gracias a @milk

CJam, 11 bytes

Nq{Amr_o+}/

Pruébalo en línea!

Cómo funciona

N            Push a linefeed on the stack.
 q           Read all input from STDIN and push it on the stack.
  {      }/  For each character in the input:
   Amr       Pseudo-randomly pick an integer in [0 ... 9].
      _o     Print a copy.
        +    Add the integer to the character.
             (implicit) Print the linefeed, followed by the modified characters.

05AB1E , 18 17 bytes

vžh.RDyÇ+ç`?}J¶?,

Explicación

v           }      # for each char in input
 žh.RD             # push 2 copies of a random number in [0..9]
      yÇ+          # add 1 copy to the current chars ascii value
         ç`?       # convert to char, flatten and print
             J     # join stack (which contain the digits of the key)
              ¶?,  # print a newline followed by the key

Pruébalo en línea

Python 3, 112 bytes

c es una función que devuelve el texto cifrado y la clave

from random import*
c=lambda t:map(''.join,zip(*[(chr(a+b),str(b))for a,b in((ord(i),randint(0,9))for i in t)]))

Aquí hay un código que hace lo mismo y es un poco más legible

def encrypt(text):
    # keep the codes of the letters in the input and a random key
    # that will be used later to encrypt this letter
    letter_and_key = ((ord(letter),randint(0,9)) for letter in text)

    # encrypt the letter and keep the key used as a string
    output_and_key = [(chr(letter_code+key), str(key))
                      for letter_code, key in letter_and_key]

    # At this point the values are kept in the format:
    # [(firstletter, firstkey), (secondletter, secondkey), ...]

    # to reorder the list to be able to output in the format "text key"
    text, key = map(''.join, zip(*output_and_key))

    # same as print(*output_and_key)
    return text, key

Salida:

>>> text, key = c('Hello World')
>>> print(text, key, sep='\n')
Liuot#`oylk
44935390707

PHP, 63 86 82 bytes

Editar: olvidé imprimir la clave ...

Gracias a Alex Howansky por salvarme 4 bytes.

for(;$i<strlen($a=$argv[1]);$s.=$r)echo chr(ord($a[$i++])+$r=rand(0,9));echo"
$s";

La entrada se da a través de un argumento de línea de comando. Toma cada carácter en la cadena y agrega un int aleatorio de 0-9 a su código ASCII, luego convierte el código nuevamente a ASCII. Se agrega cada número aleatorio $s, que se imprime al final.

J, 32 bytes

<@:e,:~[:<[:u:3&u:+e=.[:?[:$&10#

Python equivalente:

from random import randint
def encrypt(message):
    rand_list = list(map(lambda x: randint(0, 9), range(len(message))))
    return (''.join(list(map(lambda x,y: chr(x+y), rand_list, map(ord, message)))), rand_list)

Perl, 34 bytes

Incluye +1 para -p

#!/usr/bin/perl -p
s%.%$\.=$==rand 10;chr$=+ord$&%eg

Perl, 65 bytes

for(split'',$ARGV[0]){$;.=$a=int rand 9;$b.=chr$a+ord}say"$b\n$;"

Me llevó un tiempo descubrir cómo obtener la entrada sin una nueva línea al final. Lo toma como una línea de comando arg

Python 2, 84 99 bytes

def f(x):y=`id(x)**len(x)`[1:len(x)+1];return''.join(map(chr,[ord(a)+int(b)for a,b in zip(x,y)])),y

Utiliza el id()valor de la cadena para generar números aleatorios.

Intentalo

Senva , 74 bytes

Aquí está el programa más corto que he hecho:

2'(`>0.>{@}0'{v}2-2'0,{@}1'{v}0'{+}{'}9%+{^}{1-}1'"{+}{~}>$10.~0'2+"0,-:>$

¿Una pequeña explicación? (Nota: BM significa memoria de respaldo ):

// === Input and informations storing ===

2'  // Go to the 3rd cell (the two first will be used to store informations)
(   // Ask the user for a string (it will be stored as a suite of ASCII codes)
`   // Go the end of the string
>   // Make a new cell
0.  // Put a 0 to mark the end of the string
>   // Make a new cell, here will be stored the first random number
{@} // Store its adress in BM
0'  // Go to the 1st cell
{v} // Paste the adress, now the 1st cell contains the adress of the first random number
2-  // Subtract 2 because the string starts at adress 2 (the 3rd cell)
2'  // Go to the 3rd cell (where the string begins)

// === String encryption and displaying ===

0,  // While the current cell doesn't contain 0 (while we didn't reach the string's end)
  {@}  // Store the character's adress into the memory
  1'   // Go to the 2nd cell
  {v}  // Paste the value, now the 1st cell contains the adress of the current char
  0'   // Go to the 1st cell
  {+}  // Add the adress of the first random number to the current char adress
  {'}  // Go to this adrses
  9%+  // A random number between 0 and 10
  {^}  // Store this number in BM
  {1-} // Decrease BM (random number between 0 and 9)
  1'   // Go to the 1st cell
  "    // Go to the adress pointed by the cell (the adress of the current char)
  {+}  // Add it to the random number value
  {~}  // Display it as an ASCII character
  >    // Go to the next cell (the next character)
$   // End of the loop
10. // Set the new line's ASCII code into the current cell (which is now useless, so it can be overwritten)
~   // Display the new line
0'  // Go to the first cell
2+  // Add 2 to the adress, because we are not in the string loop : we cancel the 2 substraction
"   // Go to the pointed adress (the first random number's one)

// === Display the random numbers ===

0,  // While we didn't reach the end of the random numbers suite
    // That was why I stored numbers between 1 and 10, the first equal to 0 will be the end of the suite
  - // Decrease it (number between 0 and 9)
  : // Display the current random number as an integer
  > // Go to the next cell (the next number)
$ // End of the loop

Eso parece más grande ahora, cierto: p? Tal vez sea posible optimizar este código, pero por el momento es el más corto que he encontrado.

C #, 174 bytes

using static System.Console;class b{static void Main(){var c=new System.Random();var d="\n";foreach(var e in ReadLine()){var f=c.Next(10);Write((char)(e+f));d+=f;}Write(d);}}

Sin golf:

using static System.Console;

class b
{
    static void Main()
    {
        var c = new System.Random();
        var d = "\n";

        foreach (var e in ReadLine())
        {
            var f = c.Next(10);
            Write((char)(e + f));
            d += f;
        }

        Write(d);
    }
}

Bastante sencillo, de verdad.

Perl 6: 55 o 70 bytes

Como una función anónima que toma un parámetro de cadena y devuelve una lista de dos cadenas (54 caracteres, 55 bytes) :

{my @n=^9 .roll(.ords);(.ords Z+@n)».chr.join,@n.join}

Como un programa que lee desde STDIN y escribe en STDOUT (69 caracteres, 70 bytes) :

my @a=get.ords;my @n=^9 .roll(@a);say (@a Z+@n)».chr.join;say @n.join