(* 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[     21854,        583]
NotebookOptionsPosition[     20209,        525]
NotebookOutlinePosition[     20612,        542]
CellTagsIndexPosition[     20569,        539]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{
  "text", "=", 
   "\"\<PCZDRPBBZOOJKIRYBWARTHVZSNSAZNVXDTHEDGBILZXFTBSGKIRHNZNOCSIRWYOPCOHLRU\
JJDSNOXYDUYZSKFMKJXTJOTUIRYJWWQRLRKMYHKFQVSWTHPBFVHRUBBTYVBQPPRUOAVVVWLIXPJSAG\
JVJFXKFRWVRLCNISQLGRQYIWAVQIIXIQBWPHWGTEPOKBPEEXUTZHUHXNJHEUSVJLKDYLNCYGETYICO\
OHWSGXSHARAHWUFSHWGVQGFSWWQGVYIRSXEDOGDYKMICEHVHWNTOWZYARADTLPEBNESLYNPJRNBWNM\
YYICEHXVXNDWFRHBGJWEARGRFVHIXLZRWICJXRAFFKSLXYVASCHVRSXLIOFVEXJNSAFNSMJYZZQBQW\
LVFWEKFQHEUYOPORNBPPNHRJOXHHRSXQWQRGSNSIYDWFEIUUIWEQRVEZINSAFRZIIJMTTRVIJVWYYP\
HLSIJTZANSFFVZUNTKBQUYXXCYPVRUSFRCYYZHGMELJTHZFWSKWYLPWAVSDSCLWBQDRONYEUOAGEEF\
HEEVVVXRRCYAOPFSIICYCHBWAFQUHABSRVTJGPJHBIJZHCLHGJKSJUIVACAFSEICEECARJRSIYUAVW\
CSJWLQGRWLVNHGAGGLKRYCZJWFRRXTCYCOERPCJXFLPVOPNFMQKIAGSEYBPBZBRVEJUCPVREIUGOEW\
BRZCFWEAKZVFIUJJLNHZHRKXJZGSFPEEXUTZZNEXVXNDBCHQHETNSEBTWSZSXTYOGHXYJVTHZUDHSJ\
YYQGRGXFXHZNHQUYXXJZHWPHECXIDWWQQSZQFPCOYGVLLMHAFRISLSXTJHUHEGFLEISAWXYJJCKRHF\
IITZEDSPUMKNWLHZLDGTQUTISQPSMNYXKBFWIIXVLHZVQAYNWSHSQJIIXNLNFRGWKWIYCZLGMJUOEA\
RNQCETNTKBGKEKQYOCSEKEUFXCQUCUSSQYXPVRGIWNHTPWBQSWXOMOHNQGVFVFOSVVVVFFWUICWSFS\
YDLSEVTVHNTRSFDMUYBPLFBGYTJLTZWQQXJJYSEANVEUWORWRQLGKNMLSVVPEJXIXACAHAYTYYFCLH\
HCNZPEYARAUWORWRQLGKXBPSOFQSKFXCQUNGHZHNEDSYDAVSZZNQRPIEYIQBWPLECXMLERGKVVJIQP\
VRGVLLMHAFRSVVXWCEPRGMEJOCKDROIULYCDOQUITJHEHMOHIEKCWIWAJMEQIYZCA\>\""}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4100398961583576`*^9, 3.4100399151857176`*^9}, {
   3.410040577918681*^9, 3.410040584307868*^9}, {3.410095455545726*^9, 
   3.410095478775489*^9}, {3.410096342293133*^9, 3.410096358823748*^9}, {
   3.4100982432345705`*^9, 3.4100982438751993`*^9}, 3.410112884546012*^9, 
   3.410118602069338*^9, {3.4101709483370876`*^9, 3.410170965009223*^9}, {
   3.4102137269859533`*^9, 3.410213733234939*^9}, {3.410214166157451*^9, 
   3.410214168731152*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Alphabet", "=", 
   RowBox[{"CharacterRange", "[", 
    RowBox[{"\"\<A\>\"", ",", "\"\<Z\>\""}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4100399764337883`*^9, 3.4100400118447065`*^9}, {
  3.4100967146012316`*^9, 3.4100967164606066`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringLength", "[", "text", "]"}]], "Input",
 CellChangeTimes->{{3.4100967192418566`*^9, 3.4100967276324816`*^9}}],

Cell[BoxData["1227"], "Output",
 CellChangeTimes->{3.4100967290543566`*^9, 3.4100982490783577`*^9, 
  3.410170973047574*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Alphabet", " ", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", 
     RowBox[{"StringCount", "[", 
      RowBox[{"text", ",", 
       RowBox[{"Alphabet", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "26"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.410039818807132*^9, 3.4100398918721943`*^9}, {
  3.4100400195557947`*^9, 3.4100400642801046`*^9}, {3.4100401930252314`*^9, 
  3.4100402119123898`*^9}, {3.410040258569479*^9, 3.410040271187623*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"A\"\>", ",", "41"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"B\"\>", ",", "34"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "47"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"D\"\>", ",", "24"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"E\"\>", ",", "61"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"F\"\>", ",", "51"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"G\"\>", ",", "43"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"H\"\>", ",", "65"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"I\"\>", ",", "57"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"J\"\>", ",", "50"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"K\"\>", ",", "33"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"L\"\>", ",", "45"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"M\"\>", ",", "20"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"N\"\>", ",", "46"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "37"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"P\"\>", ",", "40"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Q\"\>", ",", "47"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"R\"\>", ",", "66"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"S\"\>", ",", "68"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"T\"\>", ",", "37"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"U\"\>", ",", "39"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"V\"\>", ",", "62"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"W\"\>", ",", "62"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"X\"\>", ",", "51"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Y\"\>", ",", "59"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "42"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.410039837313743*^9, 3.4100398620092535`*^9}, 
   3.410040065181401*^9, 3.410040214005399*^9, 3.4100402719787607`*^9, 
   3.410040588533945*^9, 3.410095485113717*^9, 3.410096388572606*^9, 
   3.4100982510939956`*^9, 3.410100872852808*^9, 3.410170978437813*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Index", " ", "of", " ", "Coincidence", " ", "Calculation"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.4100407920866394`*^9, 3.410040803252695*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"StringCount", "[", 
       RowBox[{"text", ",", 
        RowBox[{"Alphabet", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"StringCount", "[", 
         RowBox[{"text", ",", 
          RowBox[{"Alphabet", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "-", "1"}], ")"}]}], ",", 
     
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "26"}], "}"}]}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"StringLength", "[", "text", "]"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"StringLength", "[", "text", "]"}], "-", "1"}], ")"}]}], 
    ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4100403569609594`*^9, 3.4100403592542567`*^9}, {
   3.410040533064183*^9, 3.4100405570787144`*^9}, 3.410040610655754*^9, {
   3.410040646226903*^9, 3.410040674287252*^9}, {3.410040762063468*^9, 
   3.410040765238033*^9}}],

Cell[BoxData["0.0403855076972576`"], "Output",
 CellChangeTimes->{{3.4100405616853385`*^9, 3.410040590516796*^9}, 
   3.4100406764203196`*^9, 3.4100407661193*^9, 3.4100954889385104`*^9, 
   3.4100963920412226`*^9, 3.4100982534846363`*^9, 3.410100874977822*^9, 
   3.4101709838280525`*^9, 3.4101715765761747`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "gives", " ", "you", " ", "all", " ", "chacacters", " ", "in", " ", "the", 
    " ", "text", " ", 
    RowBox[{"{", 
     RowBox[{"start", ",", "end", ",", "step"}], "}"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"substring", "=", 
   RowBox[{"StringTake", "[", 
    RowBox[{"text", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1227", ",", "9"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.410096298544813*^9, 3.410096321528305*^9}, 
   3.410096543664776*^9, {3.4100965850551367`*^9, 3.4100965873363714`*^9}, {
   3.4100966323985834`*^9, 3.4100966331798286`*^9}, {3.4100967718668566`*^9, 
   3.4100967911481066`*^9}, {3.4100978071692796`*^9, 
   3.4100978074505315`*^9}, {3.4100980568115025`*^9, 
   3.4100980571708794`*^9}, {3.4101715042835846`*^9, 
   3.4101715049571667`*^9}, {3.410171561083787*^9, 3.4101715633708324`*^9}, {
   3.4101715977861786`*^9, 3.4101715988983727`*^9}}],

Cell[BoxData["\<\"\
POAADBNPDZJWKBYAJKIWBOZUNOAWQDEZEJIWALAAIAQKOJWDEATPNKPYHPWUEACAJHAEUQAJCLKBPW\
KNGZBEYHQNHWCAJIKDHIKHHNCAKCQPPOOULRLZEWSAFEWSQDNBEPAEKDHIZ\"\>"], "Output",
 CellChangeTimes->{3.410214201307995*^9, 3.410351158471781*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CaesarCipher", "[", 
    RowBox[{"message_", ",", "shift_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Alphabet", "=", 
      RowBox[{"CharacterRange", "[", 
       RowBox[{"\"\<A\>\"", ",", "\"\<Z\>\""}], "]"}]}], ";", 
     RowBox[{"CaesarAlphabet", "=", 
      RowBox[{"RotateRight", "[", 
       RowBox[{"Alphabet", ",", "shift"}], "]"}]}], ";", 
     RowBox[{"CaesarRule", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Alphabet", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Rule]", 
         RowBox[{"CaesarAlphabet", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "26"}], "}"}]}], "]"}]}], ";", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"ReplaceAll", " ", "[", 
       RowBox[{
        RowBox[{"Characters", "[", "message", "]"}], ",", "CaesarRule"}], 
       "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4100412021262474`*^9, 3.4100412498048058`*^9}, 
   3.4100955840552855`*^9, {3.410095749098318*^9, 3.4100957692952366`*^9}, {
   3.410096290326379*^9, 3.410096324903176*^9}, {3.4100965248523965`*^9, 
   3.4100965419460373`*^9}, 3.410096621617402*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "creates", " ", "a", " ", "list", " ", "of", " ", "substring", " ", 
    "shifts", " ", "to", " ", "analyze"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"sub1", "=", 
   RowBox[{"CaesarCipher", "[", 
    RowBox[{"substring", ",", "22"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.410095788055097*^9, 3.4100958081741514`*^9}, {
   3.4100958394678216`*^9, 3.410095874013524*^9}, {3.4100967958199816`*^9, 
   3.4100967984137316`*^9}, {3.4100968873199816`*^9, 
   3.4100969118356066`*^9}, {3.4100972877440805`*^9, 3.410097289775343*^9}, {
   3.4100976662152524`*^9, 3.4100977251062546`*^9}, 3.4100977859816437`*^9, {
   3.410097825638148*^9, 3.410097826435028*^9}, {3.4100978984823637`*^9, 
   3.41009799396735*^9}, 3.4100980751397448`*^9, {3.4101715384013014`*^9, 
   3.4101715390748835`*^9}}],

Cell[BoxData["\<\"\
TSEEHFRTHDNAOFCENOMAFSDYRSEAUHIDINMAEPEEMEUOSNAHIEXTROTCLTAYIEGENLEIYUENGPOFTA\
ORKDFICLURLAGENMOHLMOLLRGEOGUTTSSYPVPDIAWEJIAWUHRFITEIOHLMD\"\>"], "Output",
 CellChangeTimes->{3.410214233994997*^9, 3.410351166062696*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Low", " ", "Frequency", " ", 
     RowBox[{"Analysis", ":", " ", 
      RowBox[{"number", " ", "of", " ", "j"}]}]}], ",", " ", "k", ",", " ", 
    "q", ",", " ", "x", ",", " ", 
    RowBox[{
     RowBox[{
     "and", " ", "z", " ", "total", " ", "divided", " ", "by", " ", "the", 
      " ", "total", " ", "number", " ", "of", " ", "letters", " ", "in", " ", 
      "the", " ", 
      RowBox[{"subcipher", ".", "  ", "If"}], " ", "the", " ", "result", " ", 
      "is"}], " ", "=", 
     RowBox[{
     "2", "%", " ", "it", " ", "is", " ", "not", " ", "the", " ", "correct", 
      " ", 
      RowBox[{"shift", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Alphabet", " ", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{"StringCount", "[", 
       RowBox[{"sub1", ",", 
        RowBox[{"Alphabet", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "11", ",", "17", ",", "24", ",", "26"}], "}"}]}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.410095903979205*^9, 3.4100959472716465`*^9}, 
   3.4100967088512316`*^9, {3.4100969583825974`*^9, 3.410096962226372*^9}, {
   3.4100970474144173`*^9, 3.410097205712305*^9}, {3.410097271431476*^9, 
   3.410097294681625*^9}, {3.4100974327450085`*^9, 3.410097446870099*^9}, {
   3.41009755958957*^9, 3.4100976453869944`*^9}, {3.4100982912817526`*^9, 
   3.4100982914848795`*^9}, {3.4103511992003455`*^9, 3.410351199981469*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"J\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"K\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Q\"\>", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"X\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4100972953066287`*^9, {3.4100974297762394`*^9, 3.410097447495103*^9}, 
   3.4100977890441637`*^9, 3.410098267484726*^9, 3.410100892321683*^9, 
   3.410171665144389*^9, 3.410351201032981*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"StringCount", "[", 
      RowBox[{"sub1", ",", 
       RowBox[{"Alphabet", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"{", 
        RowBox[{"10", ",", "11", ",", "17", ",", "24", ",", "26"}], "}"}]}], 
      "}"}]}], "]"}], "/", 
   RowBox[{"StringLength", "[", "sub1", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4100974796359334`*^9, 3.4100975410425763`*^9}}],

Cell[BoxData["0.021897810218978103`"], "Output",
 CellChangeTimes->{3.4100975415738297`*^9, 3.4100977941848216`*^9, 
  3.4100982696253643`*^9, 3.4101008941810694`*^9, 3.410171667384441*^9, 
  3.4103512091246157`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ngrams", "[", 
    RowBox[{"n_", ",", "str_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"t", "=", 
      RowBox[{"Union", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"StringTake", "[", 
          RowBox[{"str", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"i", "+", "n", "-", "1"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"StringLength", "[", "str", "]"}], "-", "n"}]}], "}"}]}], 
        "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"u", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"t", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"StringCount", "[", 
             RowBox[{"text", ",", 
              RowBox[{"t", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
            RowBox[{"StringPosition", "[", 
             RowBox[{"text", ",", 
              RowBox[{"t", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"Length", "[", "t", "]"}]}], "}"}]}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ">", 
          RowBox[{"#2", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], 
    "\[IndentingNewLine]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.410352085164299*^9, 3.4103521515597715`*^9}, {
  3.4103521893140593`*^9, 3.410352223483192*^9}, {3.4103522665050545`*^9, 
  3.4103523820111437`*^9}, {3.4103524325137634`*^9, 3.410352445492426*^9}, {
  3.410352488864792*^9, 3.410352489665944*^9}}],

Cell[BoxData[
 RowBox[{"ngrams", "[", 
  RowBox[{"5", ",", "text"}], "]"}]], "Input",
 CellChangeTimes->{{3.4103521696958494`*^9, 3.4103522008907056`*^9}, {
  3.4103523945191298`*^9, 3.41035239483959*^9}, {3.4103526919267807`*^9, 
  3.410352692577717*^9}}],

Cell[BoxData["u"], "Input",
 CellChangeTimes->{{3.4103521534224496`*^9, 3.410352177637269*^9}, {
  3.410352343686035*^9, 3.410352343936395*^9}}],

Cell[BoxData[
 RowBox[{"GCD", "[", 
  RowBox[{"46", ",", "56", ",", "424"}], "]"}]], "Input",
 CellChangeTimes->{{3.4103528821102514`*^9, 3.410352895819965*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Len", "=", "9"}], ";"}]], "Input",
 CellChangeTimes->{{3.4103513475436525`*^9, 3.4103513562361517`*^9}}],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"StringLength", "[", "sub1", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{"text", "=", 
     RowBox[{"StringReplacePart", "[", 
      RowBox[{"text", ",", 
       RowBox[{"StringTake", "[", 
        RowBox[{"sub1", ",", 
         RowBox[{"{", "i", "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", "+", 
          RowBox[{"Len", 
           RowBox[{"(", 
            RowBox[{"i", "-", "1"}], ")"}]}]}], ",", 
         RowBox[{"1", "+", 
          RowBox[{"Len", 
           RowBox[{"(", 
            RowBox[{"i", "-", "1"}], ")"}]}]}]}], "}"}]}], "]"}]}], ")"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4102142800111647`*^9, 3.4102142865305395`*^9}, {
  3.4102143283306446`*^9, 3.410214594563469*^9}, {3.4102148526445713`*^9, 
  3.410214854447163*^9}, {3.4102149691420865`*^9, 3.41021497008344*^9}, {
  3.410215015278427*^9, 3.4102150162297955`*^9}, {3.410351366050264*^9, 
  3.4103514052966976`*^9}, {3.4103515412421775`*^9, 3.410351611943842*^9}, {
  3.41035170443684*^9, 3.4103517054783373`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["text"], "Input",
 CellChangeTimes->{{3.4103516149381475`*^9, 3.410351615579069*^9}}],

Cell[BoxData["\<\"\
TCZDRPBBZSOJKIRYBWERTHVZSNSEZNVXDTHEHGBILZXFTFSGKIRHNZROCSIRWYOTCOHLRUJJHSNOXY\
DUYDSKFMKJXTNOTUIRYJWAQRLRKMYHOFQVSWTHPFFVHRUBBTCVBQPPRUOEVVVWLIXPNSAGJVJFXOFR\
WVRLCNMSQLGRQYIAAVQIIXIQFWPHWGTEPSKBPEEXUTDHUHXNJHEYSVJLKDYLRCYGETYICSOHWSGXSH\
ERAHWUFSHAGVQGFSWWUGVYIRSXEHOGDYKMICIHVHWNTOWDYARADTLPIBNESLYNPNRNBWNMYYMCEHXV\
XNDAFRHBGJWEERGRFVHIXPZRWICJXREFFKSLXYVESCHVRSXLMOFVEXJNSEFNSMJYZZUBQWLVFWEOFQ\
HEUYOPSRNBPPNHRNOXHHRSXQAQRGSNSIYHWFEIUUIWIQRVEZINSEFRZIIJMTXRVIJVWYYTHLSIJTZA\
RSFFVZUNTOBQUYXXCYTVRUSFRCYCZHGMELJTLZFWSKWYLTWAVSDSCLABQDRONYEYOAGEEFHEIVVVXR\
RCYEOPFSIICYGHBWAFQUHEBSRVTJGPNHBIJZHCLLGJKSJUIVECAFSEICEICARJRSIYYAVWCSJWLUGR\
WLVNHGEGGLKRYCZNWFRRXTCYGOERPCJXFPPVOPNFMQOIAGSEYBPFZBRVEJUCTVREIUGOEABRZCFWEA\
OZVFIUJJLRHZHRKXJZKSFPEEXUTDZNEXVXNDFCHQHETNSIBTWSZSXTCOGHXYJVTLZUDHSJYYUGRGXF\
XHZRHQUYXXJZLWPHECXIDAWQQSZQFPGOYGVLLMHEFRISLSXTNHUHEGFLEMSAWXYJJCORHFIITZEHSP\
UMKNWLLZLDGTQUTMSQPSMNYXOBFWIIXVLLZVQAYNWSLSQJIIXNLRFRGWKWIYGZLGMJUOEERNQCETNT\
OBGKEKQYOGSEKEUFXCUUCUSSQYXTVRGIWNHTTWBQSWXOMSHNQGVFVFSSVVVVFFWYICWSFSYDPSEVTV\
HNTVSFDMUYBPPFBGYTJLTDWQQXJJYSIANVEUWORARQLGKNMLWVVPEJXIXECAHAYTYYJCLHHCNZPIYA\
RAUWORARQLGKXBPWOFQSKFXCUUNGHZHNEHSYDAVSZZRQRPIEYIQFWPLECXMLIRGKVVJIQTVRGVLLMH\
EFRSVVXWCIPRGMEJOCODROIULYCHOQUITJHELMOHIEKCWMWAJMEQIYDCA\"\>"], "Output",
 CellChangeTimes->{3.410351616730725*^9, 3.4103517072508864`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.410100908087409*^9, 3.410100976275345*^9}, 
   3.410542096490637*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
    "Continue", " ", "this", " ", "process", " ", "with", " ", "sub2"}], " ", 
    "-", " ", 
    RowBox[{"the", " ", "second", " ", "substring"}]}], ",", " ", 
   RowBox[{"sub", " ", "3"}], ",", 
   RowBox[{"sub", " ", "4"}], ",", " ", 
   RowBox[{
    RowBox[{"etc", ".", " ", "Remember"}], " ", "that", " ", "each", " ", 
    "substring", " ", "result", " ", "gives", " ", "another", " ", "letter", 
    " ", "of", " ", "the", " ", "keyword"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.41010098566603*^9, 3.4101010730209403`*^9}}]
},
WindowSize->{584, 559},
WindowMargins->{{185, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, 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[568, 21, 1812, 27, 452, "Input"],
Cell[2383, 50, 280, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[2688, 60, 138, 2, 31, "Input"],
Cell[2829, 64, 124, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2990, 71, 620, 15, 52, "Input"],
Cell[3613, 88, 2103, 58, 88, "Output"]
}, Open  ]],
Cell[5731, 149, 190, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[5946, 157, 1023, 29, 92, "Input"],
Cell[6972, 188, 312, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7321, 197, 958, 21, 52, "Input"],
Cell[8282, 220, 240, 3, 69, "Output"]
}, Open  ]],
Cell[8537, 226, 1331, 32, 152, "Input"],
Cell[CellGroupData[{
Cell[9893, 262, 848, 16, 52, "Input"],
Cell[10744, 280, 240, 3, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11021, 288, 1679, 40, 132, "Input"],
Cell[12703, 330, 603, 16, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13343, 351, 538, 15, 52, "Input"],
Cell[13884, 368, 216, 3, 30, "Output"]
}, Open  ]],
Cell[14115, 374, 1940, 51, 172, "Input"],
Cell[16058, 427, 256, 5, 31, "Input"],
Cell[16317, 434, 144, 2, 31, "Input"],
Cell[16464, 438, 161, 3, 31, "Input"],
Cell[16628, 443, 139, 3, 31, "Input"],
Cell[16770, 448, 1213, 30, 72, "Input"],
Cell[CellGroupData[{
Cell[18008, 482, 98, 1, 31, "Input"],
Cell[18109, 485, 1360, 17, 392, "Output"]
}, Open  ]],
Cell[19484, 505, 118, 2, 31, "Input"],
Cell[19605, 509, 600, 14, 72, "Input"]
}
]
*)

(* End of internal cache information *)