Mathematica 5.1 for Linux Copyright 1988-2004 Wolfram Research, Inc. -- Motif graphics initialized -- In[1]:= < sticeinsuredomestictranquilityprovideforthecommondefensepromotethegenera\ > lwelfareandsecuretheblessingsoflibertytoourselvesandourposteritydoordain\ > andestablishthisconstitutionfortheunitedstatesofamerica In[3]:= ciphertext=ApplyVigenere[plaintext,"victor"]; Out[3]= RMVASGZWRESFABJXIEDBGWGKVBGLWEJZFXFKJNQKARHWTXDVMNGVHLIQQGSJOIDEWJCRW\ > LHZXMKGGLMMFHAVNBKVHIVVSNWCDBAIFFQQFXTFMBJXQFHUQGRVAMPLSGMWOHHVOPGZSEZZC\ > EKVGNCKSRILUXQLMMVASSGMULWEBAQYZZWMTMMKJWWKGVGDGLOEYWWKDFNBGKWKTLQHFUVQP\ > TBUZAVTPCDAJMVZNKQGGKDBWMWFINQKHYZCPBHVYAVTHVNWHTAVMQET In[4]:= MatrixForm[FriedmanTable[ciphertext]] Out[4]//MatrixForm= 0 100. 1 5.61798 2 2.63158 3 2.64151 4 6.06061 5 1.52091 6 8.39695 7 3.44828 8 4.61538 9 3.861 10 3.10078 11 1.94553 12 10.1563 13 2.35294 14 2.75591 15 3.16206 16 5.15873 17 1.59363 18 3.6 19 2.40964 20 2.41935 21 4.45344 22 2.84553 23 2.04082 24 4.91803 25 2.88066 26 4.13223 27 3.3195 28 5.83333 29 2.51046 30 5.04202 31 3.79747 32 2.9661 33 3.40426 34 3.4188 35 4.72103 36 7.75862 37 4.7619 38 3.91304 39 4.80349 40 3.50877 41 3.52423 42 7.07965 43 4. 44 5.35714 45 5.8296 46 3.6036 47 5.42986 48 7.27273 49 4.10959 50 5.04587 In[5]:= ciphertext=ApplyVigenere[plaintext,"paul"] Out[5]= LENSTPYZELYZUTBPJNCETDMEPTYDXNICSELEDFICBAGZGEJPGFYNIUHTDNYDIAVWXSBUJ\ > SNTRECYHULPSOGPHTCNIRUYFUCWXTSAGOPTSEZZGTBPROGXDNXPUEHDTPLZBONPIHYRTNYCP\ > LQPAFUCTAHOHEWFGENSTBFPHSCYVSIQAIVPGTSEDOOCHEFGTSUYSOOCEOMETRCENDIZGDUTC\ > AHOTSNLQLCDWTBTHCIYHTCEJTCZCFICIHYFCINPSSNLIEMZUAGPGIWL In[6]:= MatrixForm[FriedmanTable[ciphertext]] Out[6]//MatrixForm= 0 100. 1 1.49813 2 3.00752 3 3.39623 4 6.06061 5 2.6616 6 5.72519 7 3.83142 8 4.23077 9 4.2471 10 3.87597 11 4.28016 12 10.1563 13 2.7451 14 6.69291 15 3.55731 16 5.15873 17 5.17928 18 4.4 19 4.01606 20 6.45161 21 4.45344 22 5.69106 23 5.30612 24 4.91803 25 2.46914 26 4.95868 27 4.14938 28 5.41667 29 4.60251 30 5.04202 31 2.53165 32 10.1695 33 4.25532 34 3.84615 35 3.00429 36 7.75862 37 2.1645 38 5.21739 39 4.80349 40 4.38596 41 4.40529 42 3.9823 43 4.44444 44 4.46429 45 2.24215 46 5.85586 47 1.35747 48 7.27273 49 2.28311 50 5.9633 ______________________________________________________________________ Mathematica 5.1 for Linux Copyright 1988-2004 Wolfram Research, Inc. -- Motif graphics initialized -- In[1]:= < sticeinsuredomestictranquilityprovideforthecommondefensepromotethegenera\ > lwelfareandsecuretheblessingsoflibertytoourselvesandourposteritydoordain\ > andestablishthisconstitutionfortheunitedstatesofamerica In[3]:= ciphertext=ApplyVigenere[plaintext,"paul"] Out[3]= LENSTPYZELYZUTBPJNCETDMEPTYDXNICSELEDFICBAGZGEJPGFYNIUHTDNYDIAVWXSBUJ\ > SNTRECYHULPSOGPHTCNIRUYFUCWXTSAGOPTSEZZGTBPROGXDNXPUEHDTPLZBONPIHYRTNYCP\ > LQPAFUCTAHOHEWFGENSTBFPHSCYVSIQAIVPGTSEDOOCHEFGTSUYSOOCEOMETRCENDIZGDUTC\ > AHOTSNLQLCDWTBTHCIYHTCEJTCZCFICIHYFCINPSSNLIEMZUAGPGIWL In[4]:= stream=TextToShiftedStream[ciphertext,0] Out[4]= {L, E, N, S, T, P, Y, Z, E, L, Y, Z, U, T, B, P, J, N, C, E, T, D, M, > E, P, T, Y, D, X, N, I, C, S, E, L, E, D, F, I, C, B, A, G, Z, G, E, J, > P, G, F, Y, N, I, U, H, T, D, N, Y, D, I, A, V, W, X, S, B, U, J, S, N, > T, R, E, C, Y, H, U, L, P, S, O, G, P, H, T, C, N, I, R, U, Y, F, U, C, > W, X, T, S, A, G, O, P, T, S, E, Z, Z, G, T, B, P, R, O, G, X, D, N, X, > P, U, E, H, D, T, P, L, Z, B, O, N, P, I, H, Y, R, T, N, Y, C, P, L, Q, > P, A, F, U, C, T, A, H, O, H, E, W, F, G, E, N, S, T, B, F, P, H, S, C, > Y, V, S, I, Q, A, I, V, P, G, T, S, E, D, O, O, C, H, E, F, G, T, S, U, > Y, S, O, O, C, E, O, M, E, T, R, C, E, N, D, I, Z, G, D, U, T, C, A, H, > O, T, S, N, L, Q, L, C, D, W, T, B, T, H, C, I, Y, H, T, C, E, J, T, C, > Z, C, F, I, C, I, H, Y, F, C, I, N, P, S, S, N, L, I, E, M, Z, U, A, G, > P, G, I, W, L} In[5]:= slice1mod4=Slice[stream,4,1] Out[5]= {L, T, E, U, J, T, P, X, S, D, B, G, G, I, D, I, X, J, R, H, S, H, I, > F, X, G, S, G, R, D, U, T, B, I, T, P, A, T, H, G, T, H, V, A, G, D, H, > T, S, E, T, N, G, C, T, Q, W, H, H, J, C, I, C, S, I, U, G} In[6]:= slice2mod4=Slice[stream,4,2] Out[6]= {E, P, L, T, N, D, T, N, E, F, A, E, F, U, N, A, S, S, E, U, O, T, R, > U, T, O, E, T, O, N, E, P, O, H, N, L, F, A, E, E, B, S, S, I, T, O, E, > S, O, O, R, D, D, A, S, L, T, C, T, T, F, H, I, S, E, A, I} In[7]:= slice3mod4=Slice[stream,4,3] Out[7]= {N, Y, Y, B, C, M, Y, I, L, I, G, J, Y, H, Y, V, B, N, C, L, G, C, U, > C, S, P, Z, B, G, X, H, L, N, Y, Y, Q, U, H, W, N, F, C, I, V, S, O, F, > U, O, M, C, I, U, H, N, C, B, I, C, C, I, Y, N, N, M, G, W} In[8]:= slice4mod4=Slice[stream,4,4] Out[8]= {S, Z, Z, P, E, E, D, C, E, C, Z, P, N, T, D, W, U, T, Y, P, P, N, Y, > W, A, T, Z, P, X, P, D, Z, P, R, C, P, C, O, F, S, P, Y, Q, P, E, C, G, > Y, C, E, E, Z, T, O, L, D, T, Y, E, Z, C, F, P, L, Z, P, L} In[9]:= AvgIndexOfShifts[slice1mod4,slice2mod4] Out[9]//MatrixForm= 0 4.98998 1 4.2994 2 3.11873 3 2.53954 4 2.47271 5 2.74003 6 3.02963 7 4.65583 8 3.78703 9 2.78458 10 4.54444 11 7.17309 12 6.19292 13 4.2994 14 2.98507 15 2.87369 16 2.58409 17 2.80686 18 2.9628 19 2.74003 20 3.43061 21 4.25485 22 4.87859 23 4.54444 24 4.74493 25 4.56672 In[10]:= AvgIndexOfShifts[slice1mod4,slice3mod4] Out[10]//MatrixForm= 0 3.96525 1 4.32168 2 3.74248 3 2.80686 4 3.78703 5 6.03698 6 4.43306 7 3.65337 8 3.36378 9 4.41078 10 3.20784 11 2.98507 12 3.11873 13 3.65337 14 3.7202 15 4.09891 16 3.96525 17 3.54199 18 3.96525 19 3.94297 20 4.92315 21 4.94542 22 3.74248 23 2.51726 24 3.23012 25 3.9207 In[11]:= AvgIndexOfShifts[slice1mod4,slice4mod4] Out[11]//MatrixForm= 0 3.51971 1 2.6732 2 2.91824 3 2.24994 4 2.56182 5 3.40833 6 4.36623 7 4.6781 8 4.32168 9 5.3464 10 4.12119 11 4.74493 12 4.41078 13 3.60882 14 2.40588 15 2.49499 16 2.82914 17 3.43061 18 4.38851 19 3.67565 20 3.11873 21 4.76721 22 7.48496 23 5.14591 24 4.05436 25 3.27467 In[12]:= AvgIndexOfShifts[slice2mod4,slice3mod4] Out[12]//MatrixForm= 0 2.9628 1 3.43061 2 4.32168 3 3.23012 4 3.67565 5 4.0098 6 3.65337 7 3.45288 8 4.32168 9 5.59145 10 4.38851 11 2.80686 12 2.11628 13 4.34395 14 4.76721 15 3.85387 16 3.47516 17 3.07418 18 2.89597 19 4.34395 20 6.95032 21 4.23257 22 2.24994 23 3.58654 24 5.05681 25 3.20784 In[13]:= AvgIndexOfShifts[slice2mod4,slice4mod4] Out[13]//MatrixForm= 0 4.9677 1 4.45534 2 3.56427 3 1.91579 4 3.27467 5 3.27467 6 3.87614 7 3.56427 8 2.65092 9 3.18556 10 5.50234 11 8.15326 12 4.34395 13 2.62865 14 3.65337 15 4.70038 16 2.74003 17 3.07418 18 2.56182 19 2.60637 20 3.31922 21 4.43306 22 4.76721 23 4.23257 24 4.27712 25 4.27712 In[14]:= AvgIndexOfShifts[slice3mod4,slice4mod4] Out[14]//MatrixForm= 0 3.83159 1 4.41078 2 4.92315 3 3.56427 4 4.21029 5 3.18556 6 3.9207 7 4.05436 8 3.49744 9 3.51971 10 3.14101 11 3.16329 12 3.69793 13 5.14591 14 3.18556 15 2.82914 16 3.87614 17 7.39586 18 3.7202 19 3.20784 20 3.31922 21 4.07663 22 3.7202 23 4.81176 24 3.45288 25 2.13856