home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / microdot-1 / md1_src_02.lzx / directmakekey.c < prev    next >
C/C++ Source or Header  |  2014-05-19  |  515b  |  33 lines
  1.  
  2. int main( void )
  3. {
  4.     long maillen,headoffs;
  5.     void *mailbuf;
  6.     BPTR f;
  7.     ULONG decodedkey[256], chk = 0;
  8.     int keylen, longlen;
  9.     int c;
  10.  
  11.     f = Open( "key", MODE_OLDFILE );
  12.     if( !f )
  13.         return( 10 );
  14.     keylen = Read( f, decodedkey, 4096 );
  15.     Close( f );
  16.  
  17.     longlen = decodedkey[7];
  18.     decodedkey[9] = NULL;
  19.     for( c = 0; c < longlen; c++ )
  20.         chk += decodedkey[ 8 + c ];
  21.     decodedkey[9] = -chk;
  22.  
  23.     /* Extrahieren */
  24.  
  25.     f=Open("ram:microdot.key",MODE_NEWFILE);
  26.     if(f)
  27.     {
  28.         Write(f,decodedkey,keylen);
  29.         Close(f);
  30.     } 
  31.     return( 0 );
  32. }
  33.