fermat hinzugefügt

und sqmult und lrexp Matrix ausgeblendet

git-svn-id: https://drops.fb12.tu-berlin.de/svn/crypt/trunk@3 6904cdf7-2833-49b9-980b-463876255000

diff --git a/fermat.m b/fermat.m
new file mode 100644 (file)
index 0000000..f189891
--- /dev/null
+++ b/fermat.m
@@ -0,0 +1,12 @@
+function ret = fermat( x , base )\r
+%Der kleine Fermat\r
+\r
+\r
+if(sqmult(base,x-1,x,'*',1)==1)\r
+    ret = 1;\r
+else\r
+    ret = 0;\r
+end\r
+\r
+end\r
+\r

diff --git a/lrexp.m b/lrexp.m
index 9e52362a421b835404beccf9731b8327b289a891..c706038bb88ea4db9cdd7df4dc8aa5859509d356 100644 (file)
--- a/lrexp.m
+++ b/lrexp.m
@@ -27,7 +27,7 @@ while(m~=1)
     mat(z,:)=[y,k,m];\r
 end\r
 \r
-mat\r
+%mat\r
 \r
 end\r
 \r

diff --git a/sqmult.m b/sqmult.m
index cd0900ee3ca57a6579cdeb03e7005e86fbcba7c5..068e886e308610a968a0e5c2d0b9b6583609d881 100644 (file)
--- a/sqmult.m
+++ b/sqmult.m
@@ -20,7 +20,7 @@ while(k~=0)
     mat(z,:)=[y,x,k];\r
 end\r
 \r
-mat\r
+%mat\r
 \r
 end\r
 \r