Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Trip.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by yoffy, Sun Sep 21 08:45:31 2003 UTC revision 1.2 by yoffy, Fri Oct 31 15:00:31 2003 UTC
# Line 139  const Line 139  const
139    
140  implementation  implementation
141    
 procedure memcpy(  
         dst : PChar;  
         src : PChar;  
         size : Integer  
 );  
 begin  
   
         while size > 0 do  
         begin  
                 dst^ := src^;  
                 Inc( dst );  
                 Inc( src );  
                 Dec( size );  
         end;  
   
 end;  
   
142  procedure transpose(  procedure transpose(
143          var data : CryptBlock;          var data : CryptBlock;
144          var t : CryptOrdering;          var t : CryptOrdering;
# Line 259  var Line 242  var
242          temp : CryptOrdering;          temp : CryptOrdering;
243  begin  begin
244    
245          memcpy( data.Key.b_data, k, sizeof(CryptBlock) );          Move( Pointer( k )^, data.Key.b_data, SizeOf(CryptBlock) );
246          temp := kCryptKeyTr1;    transpose( data.Key, temp, 56 );          temp := kCryptKeyTr1;    transpose( data.Key, temp, 56 );
247    
248  end;  end;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26