Changeset 8adc02 in git for Singular/LIB/crypto.lib


Ignore:
Timestamp:
Mar 18, 2008, 5:32:22 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
b731a04fc07c63b1e10dfba82c467ca4a8884227
Parents:
bdefb2801c2a630fe9bc42a5f5c7762b7a410707
Message:
*hannes: bigint


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/crypto.lib

    rbdefb28 r8adc02  
    11//GP, last modified 28.6.06
    22///////////////////////////////////////////////////////////////////////////////
    3 version="$Id: crypto.lib,v 1.2 2007-07-20 10:02:38 Singular Exp $";
     3version="$Id: crypto.lib,v 1.3 2008-03-18 16:32:22 Singular Exp $";
    44category="Teaching";
    55info="
     
    7171   int n=size(s);
    7272   int i;
    73    number m,k;
    74    number t=16;
    75    for(i=n;i>0;i--)
     73   bigint k;
     74   bigint t=16;
     75   bigint m=0;
     76   for(i=1;ii<=n;i++)
    7677   {
    7778      if(s[i]=="1"){k=1;}
     
    9091      if(s[i]=="e"){k=14;}
    9192      if(s[i]=="f"){k=15;}
    92       m=m+k*t^(n-i);
     93      m=m*t+k;
    9394   }
    9495   return(m);
     
    9697example
    9798{ "EXAMPLE:"; echo = 2;
    98    ring R = 0,x,dp;
    9999   string s  ="8edfe37dae96cfd2466d77d3884d4196";
    100100   decimal(s);
     
    285285   re[1]=2;
    286286   re[2]=3;
    287    for(i=4;i<=n;i++)
     287   for(i=5;i<=n;i=i+2)
    288288   {
    289289     j=1;
Note: See TracChangeset for help on using the changeset viewer.