Thực hiện mật mã khóa này

Mục tiêu

Sử dụng thuật toán (được giải thích trong phần Thuật toán) để thực hiện một mật mã nhất định.

Chương trình phải đọc đầu vào từ STDIN hoặc tương đương có sẵn gần nhất, sử dụng thuật toán để tạo bản mã và khóa.

Bản mã và khóa sẽ được ghi vào STDOUT hoặc tương đương có sẵn gần nhất. Bất kỳ định dạng nào đều được cho phép, miễn là nó xuất ra bản mã và khóa.

Thuật toán

Chuyển đổi các ký tự trong chuỗi thành các giá trị ASCII tương ứng. Ví dụ:

Hello -> 72 101 108 108 111

Tiếp theo, bạn sẽ cần tạo một khóa miễn là chuỗi có số ngẫu nhiên trong phạm vi 0-9.

Hello -> 62841

Thêm các số nguyên trong chuỗi số ngẫu nhiên vào các giá trị ASCII của chuỗi. Trong các ví dụ trên, 72 sẽ trở thành 78 và 101 sẽ trở thành 104.

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

Tiếp theo, chuyển đổi các giá trị mới trở lại ký tự. Trong các ví dụ trên, văn bản Hellođã trở thành Ngtpp.

Ví dụ

(Đây là những ví dụ đơn giản về hình thức đầu ra có thể trông như thế nào. Đầu ra có thể và sẽ thay đổi.)

Hello World

Lfrlu)_supg
41606984343

This will be encoded

Zhjs$~koo gj$iuhofgj
60104723305544750226

Quy tắc

• Bạn có thể giả sử rằng đầu vào sẽ chỉ chứa các ký tự trong phạm vi az, AZ và khoảng trắng.
• Đệ trình phải là chương trình hoặc chức năng đầy đủ.
• Đệ trình sẽ được tính bằng byte.
• Sơ hở tiêu chuẩn bị cấm.
• Đây là môn đánh gôn, vì vậy đoạn mã ngắn nhất sẽ thắng.

(Đây là một trong những thử thách đầu tiên của tôi, nếu có điều gì đó không ổn với nó, vui lòng cho tôi biết làm thế nào tôi có thể cải thiện nó.)

Thạch , 12 9 byte

⁵ṁX€’Ṅ+OỌ

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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

Cảm ơn @Rod đã chỉ ra một lỗi

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)

Một hàm lấy đầu vào thông qua đối số dưới dạng chuỗi và in ra STDOUT.

Làm thế nào nó hoạt động

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

Hãy thử nó trên Ideone

Pyth - 16 byte

Chờ quyết định của OP về các định dạng đầu ra.

sCM+VCMQKmOTQjkK

Phòng thử nghiệm .

Trên thực tế, 17 byte

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

Hãy thử trực tuyến!

Giải trình:

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

Khi tôi nhìn thấy toán mã ascii, tôi biết rằng tôi phải viết một câu trả lời của CJam.

q_{;Amr}%_@.+p

Hãy thử trực tuyến tại đây .

MATL, 13 byte

"10r*]v!kGy+c

Đầu ra trông như thế này:

9 5 8 2 1
Qjtnp

Hãy thử trực tuyến!

Giải trình:

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

Đưa đầu vào $n, vòng lặp trên mỗi ký tự và nhận một Randomphần tử từ 0..9mỗi lần lặp. Lưu trữ những số đó (dưới dạng một mảng) vào $x. Ống đó mảng vào một vòng lặp khác. Mỗi lần lặp, lấy phần tử hiện tại $_, thêm nó vào char vị trí được cắt ra $n(diễn viên char-to-int ẩn), sau đó nhập lại dưới dạng [char]. Lá đó trên đường ống. Điều đó được gói gọn trong parens và -joined với nhau để tạo thành từ. Đó là trái trên đường ống. Ngoài ra, số $xcũng được -joined với nhau và để lại trên đường ống. Chúng được in ngầmWrite-Output phần cuối của việc thực thi, kết quả là chúng được in với một dòng mới theo mặc định.

Thí dụ

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

C #, 252 247 245 232 216 byte

Kích thước khá tệ so với các giải pháp khác nhưng tuy nhiên ...

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

Đây là câu trả lời thứ hai của tôi cho một codegolf và tôi là người mới bắt đầu xem xét C # vì vậy tôi rất trân trọng khi nghe cách làm cho nó ngắn hơn :)

Ung dung:

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

• Đã lưu 5 byte nhờ @FryAmTheEggman
• Đã lưu 2 byte nhờ @theLambGoat
• Đã lưu 7 byte bằng cách xóa statickhỏi lớp p
• Đã lưu 24 Byte nhờ @milk

CJam, 11 byte

Nq{Amr_o+}/

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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¶?,

Giải trình

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

Dùng thử trực tuyến

Python 3, 112 byte

c là một hàm trả về văn bản được mã hóa và khóa

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

Đây là một mã làm điều tương tự và dễ đọc hơn một chút

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

Đầu ra:

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

PHP, 63 86 82 byte

Chỉnh sửa: quên in khóa ...

Cảm ơn Alex Howansky đã tiết kiệm cho tôi 4 byte.

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

Đầu vào được đưa ra thông qua một đối số dòng lệnh. Lấy từng ký tự trong chuỗi và thêm một int ngẫu nhiên từ 0-9 vào mã ASCII của nó, sau đó chuyển đổi mã trở lại ASCII. Mỗi số ngẫu nhiên được thêm vào $s, được in ở cuối.

J, 32 byte

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

trăn tương đương:

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

Bao gồm +1 cho -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$;"

Mất một lúc tôi mới tìm ra cách lấy đầu vào mà không có dòng mới ở cuối. Làm cho nó như là một dòng lệnh 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

Sử dụng id()giá trị của chuỗi để tạo số ngẫu nhiên.

Thử nó

Senva , 74 byte

Đây là chương trình ngắn nhất tôi đã thực hiện:

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

Một lời giải thích nhỏ? (Lưu ý: BM có nghĩa là Bộ nhớ lại ):

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

Điều đó xuất hiện lớn hơn bây giờ, đúng không? Có thể bạn có thể tối ưu hóa mã này, nhưng hiện tại đó là thời gian ngắn nhất tôi tìm thấy.

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

Ung dung:

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

Khá đơn giản, thực sự.

Perl 6: 55 hoặc 70 byte

Là một hàm ẩn danh nhận tham số chuỗi và trả về danh sách hai chuỗi (54 ký tự, 55 byte) :

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

Là một chương trình đọc từ STDIN và ghi vào STDOUT (69 ký tự, 70 byte) :

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