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

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

print( if baconDecoded <> plainText then "UNSUCESSFUL" else "sucessful" fi, " decode" )

{{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>

</pre>

 

A Bacon cipher in [[BaCon]]. Using unique identifiers 'aaaaa'-'bbaab' for a-z and, as other examples on this page, using 'bbbaa' (28) for the space character.

 

txt$ = "Bacon's cipher is a method of steganography created by Francis Bacon." \

NEXT

 

{{out}}

<pre>Encoded:

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 An

Decoded:

the quick brown fox jumps over the lazy dog</pre>

 

=={{header|C}}==

{{trans|Kotlin}}

#include <string.h>

#include <stdlib.h>

free(hidden_text);

return 0;

 

{{output}}

=={{header|C sharp|C#}}==

{{trans|Java}}

using System.Collections.Generic;

using System.Linq;

}

}

{{out}}

<pre>Cipher text ->

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|D}}==

import std.stdio;

import std.uni;

writeln("Hidden text ->");

writeln(decodedText);

{{out}}

<pre>Cipher text ->

=={{header|Fōrmulæ}}==

 

 

 

 

=={{header|Go}}==

{{trans|Kotlin}}

 

import(

decodedText := baconDecode(cipherText)

fmt.Printf("\nHidden text ->\n\n%s\n", decodedText)

 

{{out}}

=={{header|Groovy}}==

{{trans|Java}}

private static final Map<Character, String> codes

 

System.out.printf("\nHidden text ->\n\n%s\n", decodedText)

}

{{out}}

<pre>Cipher text ->

=={{header|Haskell}}==

 

import Data.List (elemIndex, unfoldr)

import Data.Bool (bool)

, encode text "something wrong @ in the message"

, encode "abc" message

{{Out}}

<pre>BAcoN's CIPher is A metHod Of StegaNogrApHy creAted By franCiS

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'

 

=={{header|Java}}==

{{trans|Kotlin}}

{{works with|Java|9}}

import java.util.Map;

import java.util.Objects;

System.out.printf("\nHidden text ->\n\n%s\n", decodedText);

}

{{out}}

<pre>Cipher text ->

the quick brown fox jumps over the lazy dog

</pre>

 

=={{header|Julia}}==

 

'''Module''':

 

using Formatting, IterTools.chain

end

 

 

'''Main''':

enc = BaconCipher.encrypt(msg)

dec = BaconCipher.decrypt(enc)

println(" -> Encrypted:\n", enc)

println(" -> Decrypted:\n", dec)

 

{{out}}

=={{header|Kotlin}}==

The 'full' Bacon alphabet, which has separate letters for i, j, u and v, has been used in the following:

private val codes = mapOf(

'a' to "AAAAA", 'b' to "AAAAB", 'c' to "AAABA", 'd' to "AAABB", 'e' to "AABAA",

val decodedText = Bacon.decode(cipherText)

println("\nHidden text ->\n\n$decodedText")

 

{{out}}

=={{header|Lua}}==

Based on C++ version

function Bacon( txt, secret, e )

local alpha = {}

print( a )

print( Bacon( "", a, 0 ) )

{{out}}

<pre>

 

=={{header|MiniScript}}==

c["a"] = "AAAAA"; c["b"] = "AAAAB"; c["c"] = "AAABA"; c["d"] = "AAABB"; c["e"] = "AABAA"; c["f"] = "AABAB";

c["g"] = "AABBA"; c["h"] = "AABBB"; c["i"] = "ABAAA"; c["j"] = "ABAAB"; c["k"] = "ABABA"; c["l"] = "ABABB";

codedMsg = encode("the quick brown fox jumps over the lazy dog")

print codedMsg

 

{{out}}

<pre>cOMpuTErs aRE eVErywHErE. THErE aRE ThE OBVIOuS OnEs, Like YOUR SMarT PHoNe or GaMe sYSteM. therE ARE lEsS obvIoUs ones, lIKE iN YouR mICRowAVE or youR BeDsidE CLock. AnD tHeN ThERe ARE the rEAlLY inVIsibLE oNEs, liKE ThE 50 or SO SMAll COmpuTERs in YOUR Car.All tHESe cO

the quick brown fox jumps over the lazy dog</pre>

 

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

use utf8;

 

print "$steganography\n"

{{out}}

<pre style="height:35ex">Steganograpic message hidden in text:

half of/an obviously corrupt image file.

 

 

{{out}}

<pre>

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

=={{header|Raku}}==

(formerly Perl 6)

Not truly a Bacon Cipher as it doesn't encode using font variations. But fits with the spirit if not the exact definition.

{{works with|Rakudo|2015-11-20}}

This task is to implement a program for encryption and decryption

of plaintext using the simple alphabet of the Baconian cipher or

 

say "Hidden message revealed:";

 

{{out}}

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

ASCII range... even code! $r%_-^&*(){}+~ #=`/\';*1234567890"'</pre>

 

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

=={{header|Ruby}}==

{{trans|C#}}

'a' => "AAAAA", 'b' => "AAAAB", 'c' => "AAABA", 'd' => "AAABB", 'e' => "AABAA",

'f' => "AABAB", 'g' => "AABBA", 'h' => "AABBB", 'i' => "ABAAA", 'j' => "ABAAB",

end

 

{{out}}

<pre>Cipher text ->

=={{header|Scala}}==

{{trans|Java}}

 

object BaconCipher {

println(s"Hidden text ->\n\n$decodedText")

}

{{out}}

<pre>Cipher text ->

the quick brown fox jumps over the lazy dog</pre>

 

 

 

}

 

 

 

 

 

 

 

 

 

 

 

 

{{out}}

 

Hidden text ->

 

=={{header|zkl}}==

{{trans|Python}}

fcn init(_keyText){

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

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>