Terapkan kunci sandi ini

Tujuan

Gunakan algoritma (dijelaskan di bagian Algoritma) untuk mengimplementasikan cipher tertentu.

Program harus membaca input dari STDIN atau yang setara terdekat yang tersedia, gunakan algoritma untuk menghasilkan ciphertext dan kunci.

Ciphertext dan kunci akan ditulis ke STDOUT atau setara terdekat yang tersedia. Format apa pun diperbolehkan, selama itu output ciphertext dan kunci.

Algoritma

Konversi karakter dalam string menjadi nilai ASCII masing-masing. Sebagai contoh:

Hello -> 72 101 108 108 111

Selanjutnya, Anda harus membuat kunci selama string dengan angka acak di kisaran 0-9.

Hello -> 62841

Tambahkan bilangan bulat dalam urutan angka acak ke nilai ASCII dari string. Dalam contoh di atas, 72 akan menjadi 78, dan 101 akan menjadi 104.

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

Selanjutnya, ubah nilai-nilai baru kembali ke karakter. Dalam contoh di atas, teks Hellomenjadi Ngtpp.

Contohnya

(Ini hanya contoh dari apa output mungkin terlihat seperti. Output dapat dan akan bervariasi.)

Hello World

Lfrlu)_supg
41606984343

This will be encoded

Zhjs$~koo gj$iuhofgj
60104723305544750226

Aturan

• Anda dapat mengasumsikan bahwa input hanya akan berisi karakter dalam rentang az, AZ, dan spasi.
• Pengajuan harus berupa program atau fungsi lengkap.
• Pengajuan akan dicetak dalam byte.
• Celah standar dilarang.
• Ini kode-golf, jadi kode terpendek menang.

(Ini adalah salah satu tantangan pertama saya, jika ada yang salah dengan itu, jangan ragu untuk memberi tahu saya bagaimana saya bisa memperbaikinya.)

Jelly , 12 9 byte

⁵ṁX€’Ṅ+OỌ

Cobalah online!

Bagaimana itu bekerja

⁵ṁ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 byte

Terima kasih kepada @Rod untuk menunjukkan bug

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)

Fungsi yang mengambil input melalui argumen sebagai string dan mencetak ke STDOUT.

Bagaimana itu bekerja

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

Cobalah di Ideone

Pyth - 16 byte

Menunggu keputusan OP tentang format output.

sCM+VCMQKmOTQjkK

Test Suite .

Sebenarnya, 17 byte

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

Cobalah online!

Penjelasan:

;`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 byte

Ketika saya melihat kode ascii matematika, saya tahu saya harus menulis jawaban CJam.

q_{;Amr}%_@.+p

Cobalah online di sini .

MATL, 13 byte

"10r*]v!kGy+c

Outputnya terlihat seperti ini:

9 5 8 2 1
Qjtnp

Cobalah online!

Penjelasan:

"    ]          % 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 byte

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

Mengambil input $n, memutar setiap karakter dan mendapatkan Randomelemen dari 0..9setiap iterasi. Menyimpan angka-angka itu (sebagai array) ke dalam $x. Pipa array itu ke loop lain. Setiap iterasi, mengambil elemen saat ini $_, menambahkannya ke char posisi yang diiris dari $n(cast char-to-int implisit), kemudian cast kembali sebagai [char]. Meninggalkan itu di saluran pipa. Itu diringkas dalam parens dan diedit -joinbersama untuk membentuk kata. Tersisa di saluran pipa. Selain itu, nomor $xtersebut juga -joindiedit bersama dan dibiarkan di dalam pipa. Mereka dicetak secara implisit dengan aWrite-Output pada akhir eksekusi, yang mengakibatkan mereka dicetak dengan baris baru secara default.

Contoh

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

C #, 252 247 245 232 216 Bytes

Ukurannya sangat buruk dibandingkan dengan solusi lain tetapi ...

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);}}

Ini adalah jawaban kedua saya untuk codegolf dan saya cukup pemula mempertimbangkan C # jadi saya akan senang mendengar bagaimana membuatnya lebih pendek :)

Tidak Disatukan:

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);
    }
}

• Disimpan 5 Bytes berkat @FryAmTheEggman
• Disimpan 2 Bytes berkat @theLambGoat
• Disimpan 7 Bytes dengan menghapus staticdari p kelas
• Disimpan 24 Bytes berkat @milk

CJam, 11 byte

Nq{Amr_o+}/

Cobalah online!

Bagaimana itu bekerja

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 byte

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

Penjelasan

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

Cobalah online

Python 3, 112 byte

c adalah fungsi yang mengembalikan teks dan kunci terenkripsi

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)]))

Berikut adalah kode yang melakukan hal yang sama dan sedikit lebih mudah dibaca

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

Keluaran:

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

PHP, 63 86 82 byte

Edit: lupa mencetak kunci ...

Terima kasih kepada Alex Howansky karena telah menyelamatkan saya 4 byte.

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

Input diberikan melalui argumen baris perintah. Mengambil setiap karakter dalam string dan menambahkan int acak dari 0-9 ke kode ASCII-nya, lalu mengonversi kode kembali ke ASCII. Setiap nomor acak ditambahkan $s, yang dicetak di bagian akhir.

J, 32 byte

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

setara python:

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 byte

Termasuk +1 untuk -p

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

Perl, 65 byte

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

Butuh beberapa saat untuk mencari cara mendapatkan input tanpa baris baru di akhir. Mengambilnya sebagai baris perintah arg

Python 2, 84 99 byte

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

Menggunakan id()nilai string untuk menghasilkan angka acak.

Cobalah

Senva , 74 byte

Ini adalah program terpendek yang saya buat:

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

Sedikit penjelasan? (Catatan: BM berarti Memori Kembali ):

// === 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

Itu tampak lebih besar sekarang, benar: p? Mungkin dimungkinkan untuk mengoptimalkan kode ini, tetapi untuk saat itu terpendek yang saya temukan.

C #, 174 byte

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);}}

Tidak Disatukan:

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);
    }
}

Sangat mudah, sungguh.

Perl 6: 55 atau 70 byte

Sebagai fungsi anonim yang mengambil parameter string, dan mengembalikan daftar dua string (54 karakter, 55 byte) :

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

Sebagai program yang membaca dari STDIN dan menulis ke STDOUT (69 karakter, 70 byte) :

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