From 162a107be2c7f5cf34fc0fcee2c6de95d3f145dc Mon Sep 17 00:00:00 2001
From: treecity <treecity@6904cdf7-2833-49b9-980b-463876255000>
Date: Mon, 19 Apr 2010 12:48:22 +0000
Subject: [PATCH] =?utf8?q?fermat=20hinzugef=C3=BCgt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

und sqmult und lrexp Matrix ausgeblendet

git-svn-id: https://drops.fb12.tu-berlin.de/svn/crypt/trunk@3 6904cdf7-2833-49b9-980b-463876255000
---
 fermat.m | 12 ++++++++++++
 lrexp.m  |  2 +-
 sqmult.m |  2 +-
 3 files changed, 14 insertions(+), 2 deletions(-)
 create mode 100644 fermat.m

diff --git a/fermat.m b/fermat.m
new file mode 100644
index 0000000..f189891
--- /dev/null
+++ b/fermat.m
@@ -0,0 +1,12 @@
+function ret = fermat( x , base )
+%Der kleine Fermat
+
+
+if(sqmult(base,x-1,x,'*',1)==1)
+    ret = 1;
+else
+    ret = 0;
+end
+
+end
+
diff --git a/lrexp.m b/lrexp.m
index 9e52362..c706038 100644
--- a/lrexp.m
+++ b/lrexp.m
@@ -27,7 +27,7 @@ while(m~=1)
     mat(z,:)=[y,k,m];
 end
 
-mat
+%mat
 
 end
 
diff --git a/sqmult.m b/sqmult.m
index cd0900e..068e886 100644
--- a/sqmult.m
+++ b/sqmult.m
@@ -20,7 +20,7 @@ while(k~=0)
     mat(z,:)=[y,x,k];
 end
 
-mat
+%mat
 
 end
 
-- 
2.47.3