|Help using Maple for RSA||RSA homework||RSA contest!|
The homework problem(s)
Each color team has a public key in the table below. This public key should be used to send messages to that team. I will send every member of each color team the private key for that color team. The team members should use the team's private key to decrypt encrypted messages sent to them by other teams. Each team should do the following:
The modulus (N=pq) for the RSA messages mentioned between the color teams below is
|Team||Student Name||Public key||Sending instructions||The message||Step 1||Step 2|
Comments and cautions
Please note that although RSA and close relatives are widely used now for highly secure applications, what I've done here should not be viewed as secure or useful in the "real world". It is a class exercise and isn't really safe for industrial secrets, love letters, or espionage (!). The N used here isn't big enough and "good" key selection has not been practiced: keys should be selected using somewhat more constraints than I have suggested. Finally, consquences could result not only from government reaction (as the policy discussion might suggest) but also from corporations asserting copyright or patent protection (see, for example, rsa.com or pgp.com).
This might be the last contest. The prize budget is running low ... In an effort to spread around the joy, previous winners will earn my respect and congratulations but only previous non-winners are eligible for the new valuable prize. Previous non-winners may work with previous winners, however. Every student should enter the contest either individually or as a member of a group -- it is part of the homework assignment.
The public sees the following information:
|Today's number is 172501343290052423679763|
Bob (to Alice) 68908680120216769208794
Note: this is a message to Alice, so it uses Alice's public key.
Alice (to Bob) 87108081901050117080913
Note: this is a message to Bob, so it uses Bob's public key.
Break the encryption. Find the messages, and send me the content. You'll certainly need help from some tool like Maple. Try to find and use the appropriate Maple instruction which will make reading these messages very easy.
Using Maple for RSA
We need to have Maple compute AB (mod C) for numbers A, B,
and C whose lengths are quite large in order to do the homework
problems and to try the contest. Ordinarily we could just write
irem(A^B,C) and Maple would compute the desired answer. For
example, 32 is 9, so the command irem(3^2,7)
returns the value 2.
I don't know the internal workings of Maple, but I guess that when Maple encounters irem(A^B,C), it computes AB in a rather direct fashion, multiplying A by itself B times, divides the result by C, and then prints the remainder. If B is large, straightforward computation of AB takes a long time and may result in a number too large for Maple to handle. Several people had this problem doing the Diffie-Hellman homework assignment.
The instruction irem(3^12345,2) just took about a quarter of a second on one of the Math Department computers (not a particularly fast machine). irem(12345^12345,2) then took over 17 seconds, and asking for irem(123456789^123456789,2) resulted in the message Error, object too large with no answer provided. By the way, the answer in all cases should have been 1 since the numbers involved were powers of odd integers. We need something better if we want to use Maple to do RSA encryption and decryption. Here we will need to compute AB (mod C) when A, B, and C are each 20 digits or more long.
The computations can be done efficiently by taking advantage of repeated squaring to do exponentiation, as discussed in class. I've written a small Maple procedure to exponentiate using this idea. Here is the procedure. You do not need to know or worry about what happens "inside" it. I'll describe how to use it in the text following.
ES:=proc(base,power,modulus) local A,B,C; A:=1; B:=power;C:=base; while type(B,positive) do if type(B,odd) then A:=irem(A*C,modulus); B:=B-1; fi; B:=B/2; C:=irem(C^2,modulus) od; RETURN(A); end;This provides a much faster way to do exponentiation. It also allows us to use Maple to compute powers fast for larger exponents. After Maple has been told about this procedure, it can be used to compute AB (mod C) by typing ES(A,B,C). For example, the command ES(3,12345,2) took one-hundredth of a second, and the command ES(12345,12345,2) also took one-hundredth of a second. And, last, ES(123456789,123456789,2), which requests a number Maple previously refused to compute, is also computed in less than one-hundredth of a second!
Maybe that's enough chatter. To use ES, you must copy the procedure into your Maple session. You should be able to use your mouse to point and grab the material above (take exactly what's in boldface type). I'll show and comment on a Maple session below using RSA. Please read this material. Questions are welcome.
First the RSA setup: I will assume that there are two users, Charlie and Deborah. What do we need to know?
|N will be 1783854152318969 here.|
For your information, N is the product of the primes P=19669087 and Q=90693287. This is unknown to the "public". Otherwise the security of the encryption would be effectively compromised.
|Public key||Private key|
Charlie would normally not know Deborah's private key, nor would Deborah know Charlie's private key. Only the column of public keys would be known generally.
Charlie will send the message TOAD to Deborah. Deborah will reply with the message FROG. We'll need to translate these alphabetic messages into numbers. Let's continue using our simple-minded technique, which is helped by using the table below. In reality, people could use the ASCII code which is described in the text. You may use this table for the other parts of the homework.
Using this scheme, T O A D becomes the number 20 15 01 04 -- just 20150104 without the spaces, and FROG becomes the number 06181507 . Note that the initial 0 in the number will not be reported by Maple. For example, the number 0123 is just 123 to Maple. So Charlie will send the number to Deborah encrypted with Deborah's public key, and Deborah will decrypt it with her private key. She then will reply to Charlie, encrypted with his public key. In turn, Charlie will decrypt this message with his private key.
Here is a record of an actual Maple session which will accomplish the computations needed by Charlie and Deborah. The Maple commands and replies will be in this typeface and I will add comments in this typeface, indented. The comments were not part of the Maple session.
lagrange>maple Instead of "xmaple" I typed maple at the prompt. This is a different way to use the program, with no snazzy icons, colors, etc. Here we're just doing a few computations. The buttons and windows may not be useful and could indeed be distracting. |\^/| Maple V Release 4 (Rutgers University) ._|\| |/|_. Copyright (c) 1981-1996 by Waterloo Maple Inc. All rights \ MAPLE / reserved. Maple and Maple V are registered trademarks of <____ ____> Waterloo Maple Inc. | Type ? for help. > ES:=proc(base,power,modulus) > local A,B,C; > A:=1; B:=power;C:=base; > while type(B,positive) do > if type(B,odd) then A:=irem(A*C,modulus); B:=B-1; fi; > B:=B/2; C:=irem(C^2,modulus) > od; > RETURN(A); > end; ES := proc(base, power, modulus) local A, B, C; A := 1; B := power; C := base; while type(B, positive) do if type(B, odd) then A := irem(A*C, modulus); B := B - 1 fi; B := 1/2*B; C := irem(C^2, modulus) od; RETURN(A) end All that I've done here is exactly copy the text of the ES procedure to an input line. Maple then indicated it understood the procedure by writing it back to me. It only remembers this procedure during this session. If I want to use ES during another Maple session, I must copy it again. > irem(231^456,789); 186 Now I'll check that things are working the way they're supposed to. I asked Maple to compute 231456 (mod 789) and got the answer 186. > ES(231,456,789); 186 This command returned the same answer, so I now do believe things are working well. I check things like this almost always. The checks don't use much time or effort. They help me find typing errors or any other problems. > N:=1783854152318969; N := 1783854152318969 I told Maple N's value. I used the mouse to grab this and other long numbers but I check the first and last digits of numbers that I copy. My mouse technique isn't perfect. > C_pub_key:=604305623921; C_pub_key := 604305623921 And I now told it Charlie's public key. I tend to use long identifying names for variables in situations like this. Confusion is too easy. > C_priv_key:=155833484920913; C_priv_key := 155833484920913 Charlie's private key. > D_pub_key:= 745580047409; D_pub_key := 745580047409 > D_priv_key:=889041818372597; D_priv_key := 889041818372597 Deborah's public and private keys. > ES(20150104,D_pub_key,N); 1654115086409835 This is Charlie's encryption of TOAD using Deborah's public key. With this instruction, Charlie has Maple compute 20150104(D_pub_key) (mod N). This number is 20150104745580047409 (mod 1783854152318969). Wow! I don't think anyone would want or could do computations like this by hand! Charlie sends this number to Deborah. > ES(1654115086409835,D_priv_key,N); 20150104 Deborah decodes the message by exponentiating it with her private key. We get back 20150104, TOAD again. We have accomplished meaningful secret communication (if you like toads). You can practice with various messages until you feel comfortable with this method. > ES(06181507,C_pub_key,N); 199543635933342 Now it is Deborah's turn. She sends a message to Charlie, encrypting it with Charlie's public key. The long number is what is sent to him in public. The word FROG seems well disguised! > ES(199543635933342,C_priv_key,N); 6181507 Charlie decodes the message by exponentiating it with his private key. He should read the digits in pairs from right to left. The missing "0" in "F" will be apparent. The word FROG appears to Charlie. > quit;Although Lagrange is not an especially fast computer, the entire session described above took less than a quarter of a second of computation time. This isn't very much. I only had to erase one typing error in what's shown above (sigh!). The number of typing errors can be decreased by using a mouse to grab and copy long numbers. Questions are welcome.