[JVCL-Checkins] dev/JVCL3/run JvCipher.pas,1.14,1.15 - Fixed Mantis #3344: TJvCustomCipher EncodeString / DecodeStr

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8287/run

Modified Files:
	JvCipher.pas 
Log Message:
Fixed Mantis #3344: TJvCustomCipher EncodeString / DecodeString broken


Index: JvCipher.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvCipher.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** JvCipher.pas	15 Sep 2005 07:22:54 -0000	1.14
--- JvCipher.pas	20 Dec 2005 00:33:00 -0000	1.15
***************
*** 228,232 ****
      StrPCopy(Tmp, Value);
      Decode(Key, Tmp, Length(Value));
!     Result := Tmp;
    finally
      FreeMem(Tmp);
--- 228,232 ----
      StrPCopy(Tmp, Value);
      Decode(Key, Tmp, Length(Value));
!     SetString(Result, Tmp, Length(Value));
    finally
      FreeMem(Tmp);
***************
*** 242,246 ****
      StrPCopy(Tmp, Value);
      Encode(Key, Tmp, Length(Value));
!     Result := Tmp;
    finally
      FreeMem(Tmp);
--- 242,246 ----
      StrPCopy(Tmp, Value);
      Encode(Key, Tmp, Length(Value));
!     SetString(Result, Tmp, Length(Value));
    finally
      FreeMem(Tmp);