- correção de saida da cripto para string

Author: FernandoBanhos

src/utils/RALCripto.pas

@@ -118,7 +118,7 @@ function TRALCripto.Encrypt(AValue: TStream): StringRAL;
     vStream := EncryptAsStream(AValue);
     vStream.Position := 0;
 
-    Result := TRALBase64.Encode(vStream);
+    Result := StreamToString(vStream);
   finally
     FreeAndNil(vStream);
   end;

src/utils/RALStream.pas

@@ -129,10 +129,7 @@ function StringToStream(const AStr: StringRAL): TStream;
   vBytes : TBytes;
 begin
   vBytes := StringToBytes(AStr);
-
-  Result := TMemoryStream.Create;
-  Result.Write(vBytes[0], Length(vBytes));
-  Result.Position := 0;
+  Result := BytesToStream(vBytes)
 end;
 
 function StringToStreamUTF8(const AStr: StringRAL): TStream;