From ad11bfe96d79a43846a890ada54c255dce2667ca Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 13 Aug 2006 13:31:49 +0000
Subject: [PATCH] * Made file open read-only

git-svn-id: trunk@4417 -
---
 packages/base/hash/md5.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/base/hash/md5.pp b/packages/base/hash/md5.pp
index f7acb2cecf..41329a0540 100644
--- a/packages/base/hash/md5.pp
+++ b/packages/base/hash/md5.pp
@@ -336,11 +336,14 @@ var
   Buf : Pchar;
   Context: TMD5Context;
   Count : Longint;
-
+  ofm : Longint;
+  
 begin
   MD5Init(Context);
   Assign(F,N);
   {$i-}
+  ofm:=FileMode;
+  FileMode:=0;
   Reset(F,1);
   {$i+}
   if (IOResult=0) then
@@ -355,6 +358,7 @@ begin
     Close(F);
     end;
   MD5Final(Context, Result);
+  FileMode:=ofm;
 end;