(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      7703,        159]
NotebookOptionsPosition[      7304,        141]
NotebookOutlinePosition[      7645,        156]
CellTagsIndexPosition[      7602,        153]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"CipherText", "=", "\"\<(*Insert Cipher Text Here*) \>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Alphabet", "=", 
  RowBox[{"CharacterRange", "[", 
   RowBox[{"\"\<A\>\"", ",", "\"\<Z\>\""}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.4091618898471503`*^9, 3.4091618925310097`*^9}, {
   3.4091626097423086`*^9, 3.4091626496396785`*^9}, 3.409162712099491*^9, {
   3.409162778665208*^9, 3.40916279608025*^9}, {3.4091628304096127`*^9, 
   3.409162851149435*^9}, {3.4092389584516993`*^9, 3.4092389812645025`*^9}, {
   3.4092391967844048`*^9, 3.40923919711488*^9}, 3.409239560807845*^9, 
   3.409246974067589*^9, 3.409849078139717*^9, {3.4098491811278067`*^9, 
   3.4098492045615025`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"A\"\>", ",", "\<\"B\"\>", ",", "\<\"C\"\>", ",", "\<\"D\"\>", 
   ",", "\<\"E\"\>", ",", "\<\"F\"\>", ",", "\<\"G\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"I\"\>", ",", "\<\"J\"\>", ",", "\<\"K\"\>", ",", "\<\"L\"\>", 
   ",", "\<\"M\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"P\"\>", 
   ",", "\<\"Q\"\>", ",", "\<\"R\"\>", ",", "\<\"S\"\>", ",", "\<\"T\"\>", 
   ",", "\<\"U\"\>", ",", "\<\"V\"\>", ",", "\<\"W\"\>", ",", "\<\"X\"\>", 
   ",", "\<\"Y\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.4093340094760513`*^9, 3.4098490810539074`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"StringReplace", "[", 
  RowBox[{
   RowBox[{"StringJoin", "[", "Alphabet", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"Instert", " ", "substitutions", " ", "here", " ", "as", " ", 
        RowBox[{"follows", ":", " ", "\"\<A\>\""}]}], "\[Rule]", " ", 
       "\"\<P\>\""}], ",", 
      RowBox[{"\"\<F\>\"", "\[Rule]", " ", "\"\<L\>\""}], ","}], "*)"}], 
    RowBox[{
     RowBox[{"CharacterRange", "[", 
      RowBox[{"\"\<A\>\"", ",", "\"\<Z\>\""}], "]"}], "\[Rule]", 
     "\"\<?\>\""}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4092477039070463`*^9, 3.409247757824576*^9}, {
   3.4092479377232575`*^9, 3.409247939035144*^9}, {3.4092482708222303`*^9, 
   3.4092483381490417`*^9}, {3.4092484827870207`*^9, 3.4092484850803185`*^9}, 
   3.409248980172226*^9, {3.4092491295069585`*^9, 3.409249136937643*^9}, {
   3.409249201470437*^9, 3.4092492052258368`*^9}, {3.4092496373471966`*^9, 
   3.4092496424044685`*^9}, {3.4092514076227283`*^9, 
   3.4092514092150173`*^9}, {3.4093339485784845`*^9, 
   3.4093339979695053`*^9}, {3.409334471079805*^9, 3.409334472021158*^9}, 
   3.409334885575821*^9, {3.409335366347136*^9, 3.4093353722055597`*^9}, {
   3.409335804797597*^9, 3.4093358088934865`*^9}, 3.409336576987952*^9, {
   3.409337029728962*^9, 3.4093370363384657`*^9}, {3.4093373558478975`*^9, 
   3.4093373570896835`*^9}, 3.409339219707997*^9, {3.4093395530773582`*^9, 
   3.4093395542089853`*^9}, {3.4093397674656334`*^9, 3.409339768827592*^9}, 
   3.40933997457344*^9, 3.409435908957608*^9, {3.409440960421256*^9, 
   3.4094410400257215`*^9}, {3.409849216839157*^9, 3.4098492636164193`*^9}}],

Cell[BoxData[
 RowBox[{"StringReplace", "[", 
  RowBox[{"CipherText", ",", 
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"Instert", " ", "substitutions", " ", "here", " ", "as", " ", 
        RowBox[{"follows", ":", " ", "\"\<A\>\""}]}], "\[Rule]", " ", 
       "\"\<P\>\""}], ",", 
      RowBox[{"\"\<F\>\"", "\[Rule]", " ", "\"\<L\>\""}], ","}], "*)"}], 
    RowBox[{",", 
     RowBox[{
      RowBox[{"CharacterRange", "[", 
       RowBox[{"\"\<A\>\"", ",", "\"\<Z\>\""}], "]"}], "\[Rule]", 
      "\"\<?\>\""}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4092409364058576`*^9, 3.4092410146383505`*^9}, {
   3.409241089776394*^9, 3.4092410912785535`*^9}, {3.409242626095512*^9, 
   3.409242701033267*^9}, {3.409242815347643*^9, 3.4092428441991296`*^9}, {
   3.4092429245446606`*^9, 3.4092433238888893`*^9}, {3.4092433857177954`*^9, 
   3.409243397274413*^9}, {3.409243496467045*^9, 3.4092434993912497`*^9}, {
   3.409243575881237*^9, 3.4092435788555136`*^9}, {3.409243617200651*^9, 
   3.409243653532894*^9}, {3.409243687471696*^9, 3.4092436900954685`*^9}, {
   3.409243736622371*^9, 3.409243741799816*^9}, {3.4092437798244925`*^9, 
   3.409243855893875*^9}, {3.409243890093051*^9, 3.409243893517976*^9}, {
   3.4092440292731824`*^9, 3.4092440645038414`*^9}, {3.409244175453379*^9, 
   3.409244176074272*^9}, {3.4092444683845935`*^9, 3.409244473051304*^9}, {
   3.409247054643451*^9, 3.4092470666206737`*^9}, {3.4092471011202817`*^9, 
   3.409247118475237*^9}, {3.4092472236264367`*^9, 3.409247232198763*^9}, {
   3.4092472667985153`*^9, 3.4092472672091055`*^9}, {3.4092475572962303`*^9, 
   3.4092475585380163`*^9}, {3.409247933757555*^9, 3.4092479345887504`*^9}, {
   3.40924826114832*^9, 3.4092482670468016`*^9}, {3.4092482980613985`*^9, 
   3.409248335104664*^9}, {3.409248461416291*^9, 3.409248471881339*^9}, 
   3.409248973432534*^9, {3.4092491427259665`*^9, 3.4092491437874928`*^9}, {
   3.4092491993073263`*^9, 3.409249211965528*^9}, {3.409249513088522*^9, 
   3.4092495244548655`*^9}, {3.4092496283943233`*^9, 3.409249628844971*^9}, {
   3.409249851054493*^9, 3.409249856372139*^9}, {3.409250389398594*^9, 
   3.409250402577544*^9}, 3.409250453250408*^9, {3.4092505067373185`*^9, 
   3.4092505180836334`*^9}, {3.40925077100732*^9, 3.4092507811318784`*^9}, {
   3.4092512998577695`*^9, 3.4092513081997647`*^9}, {3.409251350991296*^9, 
   3.4092513961762686`*^9}, 3.409333956279558*^9, {3.409334030245917*^9, 
   3.4093340368754497`*^9}, {3.4093344323441057`*^9, 
   3.4093344559680753`*^9}, {3.409334801715235*^9, 3.409334807243184*^9}, {
   3.409334859868856*^9, 3.40933486447548*^9}, {3.409335354580216*^9, 
   3.4093353600781217`*^9}, {3.4093357850892577`*^9, 
   3.4093357900964575`*^9}, {3.4093359975747967`*^9, 3.409335998055488*^9}, {
   3.4093365041932783`*^9, 3.409336513025979*^9}, {3.409336592770646*^9, 
   3.409336610656365*^9}, {3.409336741975192*^9, 3.409336775523432*^9}, {
   3.409337024531488*^9, 3.409337026484296*^9}, {3.4093372395807133`*^9, 
   3.4093372510472016`*^9}, {3.4093379938352785`*^9, 3.409338018580861*^9}, {
   3.4093381965868206`*^9, 3.4093381979387646`*^9}, {3.4093382654358206`*^9, 
   3.4093382702727757`*^9}, {3.4093391936805716`*^9, 
   3.4093392093030353`*^9}, {3.409339557423608*^9, 3.4093395579643855`*^9}, {
   3.409339613323989*^9, 3.409339624119512*^9}, {3.409339748598504*^9, 
   3.4093397537759485`*^9}, {3.409339844486384*^9, 3.409339847070099*^9}, {
   3.409339901868896*^9, 3.4093399426275043`*^9}, 3.4094359032894573`*^9, 
   3.4094410524535923`*^9, {3.4094411011436048`*^9, 3.409441106361107*^9}, {
   3.409849155791374*^9, 3.4098491578943987`*^9}, 3.4098493435613747`*^9}]
},
WindowSize->{617, 682},
WindowMargins->{{Automatic, 19}, {-2, Automatic}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 726, 13, 52, "Input"],
Cell[1319, 38, 613, 9, 30, "Output"]
}, Open  ]],
Cell[1947, 50, 1672, 30, 72, "Input"],
Cell[3622, 82, 3678, 57, 72, "Input"]
}
]
*)

(* End of internal cache information *)