・自作 memcpy から VCL の Move に変更。

diff --git a/Trip.pas b/Trip.pas
index 4a3c280..4251710 100644 (file)
--- a/Trip.pas
+++ b/Trip.pas
@@ -139,23 +139,6 @@ const
 
 implementation
 
-procedure memcpy(
-       dst : PChar;
-       src : PChar;
-       size : Integer
-);
-begin
-
-       while size > 0 do
-       begin
-               dst^ := src^;
-               Inc( dst );
-               Inc( src );
-               Dec( size );
-       end;
-
-end;
-
 procedure transpose(
        var data : CryptBlock;
        var t : CryptOrdering;
@@ -259,7 +242,7 @@ var
        temp : CryptOrdering;
 begin
 
-       memcpy( data.Key.b_data, k, sizeof(CryptBlock) );
+       Move( Pointer( k )^, data.Key.b_data, SizeOf(CryptBlock) );
        temp := kCryptKeyTr1;    transpose( data.Key, temp, 56 );
 
 end;