Changeset 8adc02 in git

Timestamp:

Mar 18, 2008, 5:32:22 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

b731a04fc07c63b1e10dfba82c467ca4a8884227

Parents:

bdefb2801c2a630fe9bc42a5f5c7762b7a410707

Message:

*hannes: bigint


git-svn-id: file:///usr/local/Singular/svn/trunk@10631 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/crypto.lib (modified) (5 diffs)

Singular/LIB/crypto.lib

@@ -1 +1 @@
 //GP, last modified 28.6.06
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: crypto.lib,v 1.2 2007-07-20 10:02:38 Singular Exp $";
+version="$Id: crypto.lib,v 1.3 2008-03-18 16:32:22 Singular Exp $";
 category="Teaching";
 info="
@@ -71 +71 @@
    int n=size(s);
    int i;
-   number m,k;
-   number t=16;
-   for(i=n;i>0;i--)
+   bigint k;
+   bigint t=16;
+   bigint m=0;
+   for(i=1;ii<=n;i++)
    {
       if(s[i]=="1"){k=1;}
@@ -90 +91 @@
       if(s[i]=="e"){k=14;}
       if(s[i]=="f"){k=15;}
-      m=m+k*t^(n-i);
+      m=m*t+k;
    }
    return(m);
@@ -96 +97 @@
 example
 { "EXAMPLE:"; echo = 2;
-   ring R = 0,x,dp;
    string s  ="8edfe37dae96cfd2466d77d3884d4196";
    decimal(s);
@@ -285 +285 @@
    re[1]=2;
    re[2]=3;
-   for(i=4;i<=n;i++)
+   for(i=5;i<=n;i=i+2)
    {
      j=1;