Bacon cipher: Difference between revisions

[[wp: Bacon's cipher| Bacon's cipher]] is a method of steganography created by Francis Bacon.

This task is to implement a program for encryption and decryption of plaintext using the simple alphabet of the Baconian cipher or some other kind of representation of this alphabet (make anything signify anything).

# It is impractical to use the original change in font for the steganography. For this task you must provide an example that uses a change in the case of successive alphabetical characters instead. Other examples for the language are encouraged to explore alternative steganographic means.

# Show an example plaintext message encoded and then decoded here on this page.

 

 

=={{header|Agena}}==

Tested with Agena 2.9.5 Win32

{{Trans|ALGOL 68}}

 

# Bacon's letter codes but with distinct values for i & j and u & v and an extra for any non-letter

# get the Bacon code of the next character #

local plainChar := upper( plainText[ pos ] );

for c to size code do

# copy punctuation as is from the stego template to the result

encoded := encoded & s;

nextStegoPos();

od;

# encode the character by changing the case of the stego character as appropriate

local templateChar := stegoTemplate[ stegoPos + 1 ];

nextStegoPos()

od

then

# have a full letter to decode

letters := 0;

codedChar := 0

print( baconDecoded );

print( "-----------------------------------------------------" );

{{out}}

<pre>

 

=={{header|ALGOL 68}}==

[]STRING bacon codes = ( #a# "AAAAA", "AAAAB", "AAABA", "AAABB", "AABAA", "AABAB", "AABBA", "AABBB", "ABAAA"

, #j# "ABAAB", "ABABA", "ABABB", "ABBAA", "ABBAB", "ABBBA", "ABBBB", "BAAAA", "BAAAB"

print( ( bacon decoded, newline ) );

print( ( "-----------------------------------------------------", newline ) );

{{out}}

<pre>

sucessful decode

</pre>

 

=={{header|C++}}==

Bacon cipher implementation

 

#include <iostream>

#include <algorithm>

std::vector<std::string> bAlphabet;

};

 

These next 2 classes use the 0's & 1's generated by the 'Bacon encryption' to create different the outputs.

One could go wild here...

class cipherI {

public:

return 0;

}

{{out}}

<pre>

LETSHAUESOMEFUNWITHBACONCIPHER

</pre>

 

=={{header|J}}==

Implementation:

 

beta=: 26{.(}.~i.&'A')a.

norm=: ([ -. -.)&alfa@(rplc&('JIVU'))@toupper

 

encrypt=: gena@enca@norm

 

We use random letters as the basis for our steganography and we use case to represent "font".

Example use:

 

nWVkJAPkamEuUJIeTGKnUsTVRfAWWuNBIIHdEIcOAPuTBeXKQduQAdU

encrypt 'this is a test'

sFLkBQKqqaQsGGXzAXQsKlZFBcILRlUIRAQaEQoNUBcHIhFTWbeRAlM

decrypt encrypt 'this is a test'

 

 

 

 

 

}

 

 

 

 

 

 

{{out}}

B​​​​a​​​​h​​​​​.​​​ ​​​​I​​t​​​​​​ ​​​​​i​​​s​​​​​n​​​'​​​​t​​​​​ ​​r​​​​​e​​​​​​a​​​l​​​​l​​​​​​y​​​​ ​​​​​​p​​​​r​​​a​​c​​​t​​​i​​​​​​c​​​​​​a​​​​​l​​​​ ​​​​t​​o​​​​​​ ​​​​​​u​s​​​​​e​​​​​​ ​​​​​t​​​​​y​​​​p​​​​e​​​​f​​​​​​​a​​​​​c​​e​​​​ ​​​​​c​h​​​a​​​​​n​​​​​g​​​​​e​​​​​s​​​​ ​​​t​​​​​​​o​​​​​ ​​​​e​​​​​​n​​​c​​​o​​​​d​​​e​​​​​

i​​​​n​​​​​​f​​​​o​r​​​​​m​​​​​​a​​​​​t​​​​​i​​​​o​​​​n​​​,​​​​ ​​i​​​​​​t​​​​ ​​​​​​i​​​​s​​​ ​​t​​​​o​​​​​o​​​ ​​​e​​​a​​​​s​​​​​y​​ ​​​​​​​t​​​o​​​ ​​​​t​​​e​​l​​​l​​​​ ​​​​t​​​​​​​h​​​​​a​​​t​​​​​​ ​​t​​​​​h​​​​​e​​​r​​​e​​​​​ ​i​​​​​​​s​​​ ​​​​​s​​​​​o​​​​​​​m​​​​e​​t​​​​​​​h​​​​​i​​​n​​​​​g​​ ​​​​g​​​​​o​​​​​​i​​​n​​g​​​​​​

Bacon cipher, but I think it falls within the spirit of the task,

if not the exact definition.

Hidden message revealed:

This task is to implement a program for encryption and decryption

some other kind of representation of this alphabet (make anything

signify anything). This example will work with anything in the

 

=={{header|Python}}==

This deviates from the Bacon method as it encodes to different capitalisation of text rather than differences in font.

 

 

sometext = """All children, except one, grow up. They soon know that they will grow

decrypted = decrypt(encrypted)

print('DECRYPTED = \n%s\n' % decrypted)

 

{{out}}

DECRYPTED =

rosetta code bacon cipher example secret phrase to encode in the capitalisation of peter pan</pre>

 

=={{header|Racket}}==

 

(require xml)

 

)

 

{{out}}

The Slings and Arrows of outrageous Fortune,

[...]</div>

 

=={{header|REXX}}==

 

All alphabetic letters are handled as if they were in uppercase &nbsp; (i.e., lowercase letters are uppercased).

parse arg plain /*obtain optional arguments from the CL*/

if plain='' then plain = "The quick brown fox jumped over the lazy dog."

do k=0 for 256; _=d2c(k); if @._=='' then iterate; q=@._; !.q=_; end

do j=1 to Lx by 5; y=substr(x,j,5); $=$ || !.y; end

'''output''' &nbsp; when using the default input:

<pre>

:::* &nbsp; the &nbsp; ''bottom tee'' &nbsp; <big><big>┴</big></big> &nbsp; &nbsp; (sometimes known as the &nbsp; ''bottom junction'')

:::* &nbsp; the &nbsp; &nbsp; ''top tee'' &nbsp; &nbsp; &nbsp; <big><big>┬</big></big> &nbsp; &nbsp; (sometimes known as the &nbsp; ''top junction'')

parse arg plain /*obtain optional arguments from the CL*/

if plain='' then plain = "The quick brown fox jumped over the lazy dog."

do k=0 for 256; _=d2c(k); if @._=='' then iterate; q=@._; !.q=_; end

do j=1 to Lx by 5; y=substr(x,j,5); $=$ || !.y; end

'''output''' &nbsp; when using the default input:

<pre>

 

===uses upper/lower case===

parse arg plain /*obtain optional arguments from the CL*/

if plain='' then plain = "The quick brown fox jumped over the lazy dog."

do k=0 for 256; _=d2c(k); if @._=='' then iterate; q=@._; !.q=_; end

do j=1 to Lx by 5; y=substr(x,j,5); $=$ || !.y; end

'''output''' &nbsp; when using the default input:

<pre>

cipher text: SssSSssSSSssSssSSsSsSssssSsSsssSssssssSssSsSsSSsSsssssSSsssSsSSSsSsSSssSSsSSSsSsssSsSsSSSsSsSSSSSsSssSssSSsSsssSSsssSSSSssSsssssSSSSsSssSSSsSsSsSssSssSsssSSSsSsSssSSssSSSssSssSSsSssSsSSsssssSSssSSSsssSSsSssssSSsSSSsssSSsSSsSS

cycled text: THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG.

</pre>

 

=={{header|zkl}}==

{{trans|Python}}

fcn init(_keyText){

var [const] keyText=_keyText.toLower(),

letters=String(lowerLetters,upperLetters),

lc2bin=[0..].zip(lowerLetters + " .") //-->("a":"00000", ...)

.pump(Dictionary(),fcn([(n,ch)]){ T(ch,"%05.2B".fmt(n)) }),

;

}

fcn to5binary(msg){ //-->stream of 1s and 0s (1 means capitalize)

}

fcn encrypt(msg){

fcn{ vm.arglist.pump(String,upperLetters.holds,"toInt") : bin2lc[_] });

}

#<<<

0'|All children, except one, grow up. They soon know that they will grow

println("ENCRYPTED = \n%s".fmt(encrypted));

println("DECRYPTED = \n%s".fmt(decrypted));

{{out}}

<pre>