Skip to content
This repository has been archived by the owner on Nov 16, 2023. It is now read-only.

Add symmetric encryption & tests #112

Open
wants to merge 5 commits into
base: master
Choose a base branch
from
Open

Add symmetric encryption & tests #112

Show file tree
Hide file tree
Changes from 4 commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
1b9e3bb
Add symmetric encryption & tests
quadfin Nov 14, 2018
3578f37
Update per reviewer comments
quadfin Feb 16, 2019
2a8cafa
Removed properties
quadfin Feb 16, 2019
ba2ff79
Added wrapper DotNet_CryptoStreamMode
quadfin Feb 16, 2019
6499e71
Added return value to enum wrappers.
quadfin Feb 18, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
51 changes: 42 additions & 9 deletions BaseApp/COD3000.TXT
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,99 +18,132 @@ OBJECT Codeunit 3000 DotNet_Array
DotNetArray@1000 : DotNet "'mscorlib'.System.Array";

[External]
[LineStart(2)]
quadfin marked this conversation as resolved.
Show resolved Hide resolved
PROCEDURE StringArray@108(Length@1000 : Integer);
VAR
DotNetString@1002 : DotNet "'mscorlib'.System.String";
BEGIN
DotNetArray := DotNetArray.CreateInstance(GETDOTNETTYPE(DotNetString),Length);
DotNetArray := DotNetArray.CreateInstance(GetDotNetType(DotNetString),Length);
END;

[External]
[LineStart(5)]
PROCEDURE CharArray@100(Length@1000 : Integer);
VAR
DotNetChar@1002 : DotNet "'mscorlib'.System.Char";
BEGIN
DotNetArray := DotNetArray.CreateInstance(GETDOTNETTYPE(DotNetChar),Length);
DotNetArray := DotNetArray.CreateInstance(GetDotNetType(DotNetChar),Length);
END;

[External]
[LineStart(8)]
PROCEDURE ByteArray@101(Length@1000 : Integer);
VAR
DotNetByte@1002 : DotNet "'mscorlib'.System.Byte";
BEGIN
DotNetArray := DotNetArray.CreateInstance(GETDOTNETTYPE(DotNetByte),Length);
DotNetArray := DotNetArray.CreateInstance(GetDotNetType(DotNetByte),Length);
END;

[External]
[LineStart(11)]
PROCEDURE Int32Array@102(Length@1000 : Integer);
VAR
DotNetInt32@1002 : DotNet "'mscorlib'.System.Int32";
BEGIN
DotNetArray := DotNetArray.CreateInstance(GETDOTNETTYPE(DotNetInt32),Length);
DotNetArray := DotNetArray.CreateInstance(GetDotNetType(DotNetInt32),Length);
END;

[External]
[LineStart(14)]
PROCEDURE Length@4() : Integer;
BEGIN
EXIT(DotNetArray.Length)
exit(DotNetArray.Length)
END;

[External]
[LineStart(17)]
PROCEDURE SetTextValue@103(NewValue@1001 : Text;Index@1000 : Integer);
BEGIN
DotNetArray.SetValue(NewValue,Index);
END;

[External]
[LineStart(20)]
PROCEDURE SetCharValue@109(NewValue@1001 : Char;Index@1000 : Integer);
BEGIN
DotNetArray.SetValue(NewValue,Index);
END;

[External]
[LineStart(23)]
PROCEDURE SetByteValue@104(NewValue@1001 : Byte;Index@1000 : Integer);
BEGIN
DotNetArray.SetValue(NewValue,Index);
END;

[External]
[LineStart(26)]
PROCEDURE SetIntValue@105(NewValue@1001 : Integer;Index@1000 : Integer);
BEGIN
DotNetArray.SetValue(NewValue,Index);
END;

[External]
[LineStart(29)]
PROCEDURE GetValueAsText@5(Index@1000 : Integer) : Text;
BEGIN
EXIT(DotNetArray.GetValue(Index))
exit(DotNetArray.GetValue(Index))
END;

[External]
[LineStart(32)]
PROCEDURE GetValueAsChar@110(Index@1000 : Integer) : Char;
BEGIN
EXIT(DotNetArray.GetValue(Index));
exit(DotNetArray.GetValue(Index));
END;

[External]
[LineStart(35)]
PROCEDURE GetValueAsInteger@106(Index@1000 : Integer) : Integer;
BEGIN
EXIT(DotNetArray.GetValue(Index));
exit(DotNetArray.GetValue(Index));
END;

[LineStart(38)]
PROCEDURE GetArray@2(VAR DotNetArray2@1000 : DotNet "'mscorlib'.System.Array");
BEGIN
DotNetArray2 := DotNetArray
END;

[LineStart(41)]
PROCEDURE SetArray@3(DotNetArray2@1000 : DotNet "'mscorlib'.System.Array");
BEGIN
DotNetArray := DotNetArray2
END;

[External]
[LineStart(44)]
PROCEDURE IsNull@107() : Boolean;
BEGIN
EXIT(ISNULL(DotNetArray));
exit(IsNull(DotNetArray));
END;

[External]
[LineStart(47)]
PROCEDURE Clone@1000000001(VAR DotNet_ArrayTarget@1000000000 : Codeunit DotNet_Array);
BEGIN
DotNet_ArrayTarget.SetArray(DotNetArray.Clone());
END;

[External]
[LineStart(50)]
PROCEDURE ConstrainedCopy@1000000000(SourceIndex@1000000001 : Integer;VAR DotNet_ArrayTarget@1000000002 : Codeunit DotNet_Array;TargetIndex@1000000003 : Integer;Length@1000000004 : Integer);
VAR
DotNetArrayTarget@1000000006 : DotNet "'mscorlib'.System.Array";
BEGIN
DotNet_ArrayTarget.GetArray(DotNetArrayTarget);
DotNetArray.ConstrainedCopy(DotNetArray, SourceIndex, DotNetArrayTarget, TargetIndex, Length);
DotNet_ArrayTarget.SetArray(DotNetArrayTarget);
END;

BEGIN
Expand Down
33 changes: 32 additions & 1 deletion BaseApp/COD3025.TXT
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,19 +18,22 @@ OBJECT Codeunit 3025 DotNet_StreamWriter
DotNetStreamWriter@1001 : DotNet "'mscorlib'.System.IO.StreamWriter";

[External]
[LineStart(2)]
PROCEDURE Write@6(Text@1000 : Text);
BEGIN
DotNetStreamWriter.Write(Text);
END;

[External]
[LineStart(5)]
PROCEDURE WriteLine@2(LineText@1000 : Text);
BEGIN
DotNetStreamWriter.WriteLine(LineText);
END;

[External]
PROCEDURE StreamWriter@1(VAR OutStream@1000 : OutStream;DotNet_Encoding@1001 : Codeunit 3026);
[LineStart(8)]
PROCEDURE StreamWriter@1(VAR OutStream@1000 : OutStream;DotNet_Encoding@1001 : Codeunit DotNet_Encoding);
VAR
DotNetEncoding@1002 : DotNet "'mscorlib'.System.Text.Encoding";
BEGIN
Expand All @@ -39,29 +42,57 @@ OBJECT Codeunit 3025 DotNet_StreamWriter
END;

[External]
[LineStart(12)]
PROCEDURE StreamWriterFromDotNetStream@1000000001(VAR DotNet_Stream@1000 : Codeunit DotNet_Stream;DotNet_Encoding@1001 : Codeunit DotNet_Encoding);
VAR
DotNetEncoding@1002 : DotNet "'mscorlib'.System.Text.Encoding";
DotNetStream@1000000000 : DotNet "'mscorlib'.System.IO.Stream";
BEGIN
DotNet_Stream.GetStream(DotNetStream);
DotNet_Encoding.GetEncoding(DotNetEncoding);
DotNetStreamWriter := DotNetStreamWriter.StreamWriter(DotNetStream,DotNetEncoding);
END;

[External]
[LineStart(17)]
PROCEDURE StreamWriterWithDefaultEncoding@7(VAR OutStream@1000 : OutStream);
BEGIN
DotNetStreamWriter := DotNetStreamWriter.StreamWriter(OutStream);
END;

[External]
[LineStart(20)]
PROCEDURE Flush@3();
BEGIN
DotNetStreamWriter.Flush;
END;

[External]
[LineStart(23)]
PROCEDURE Close@4();
BEGIN
DotNetStreamWriter.Close;
END;

[External]
[LineStart(26)]
PROCEDURE Dispose@5();
BEGIN
DotNetStreamWriter.Dispose;
END;

[LineStart(29)]
PROCEDURE GetStreamWriter@1000000000(VAR DotNetStreamWriter2@1000000000 : DotNet "'mscorlib'.System.IO.StreamWriter");
BEGIN
DotNetStreamWriter2 := DotNetStreamWriter;
END;

[LineStart(32)]
PROCEDURE SetStreamWriter@1000000002(VAR DotNetStreamWriter2@1000000000 : DotNet "'mscorlib'.System.IO.StreamWriter");
BEGIN
DotNetStreamWriter := DotNetStreamWriter2;
END;

BEGIN
END.
}
Expand Down
43 changes: 38 additions & 5 deletions BaseApp/COD3027.TXT
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,8 @@ OBJECT Codeunit 3027 DotNet_StreamReader
DotNetStreamReader@1000 : DotNet "'mscorlib'.System.IO.StreamReader";

[External]
PROCEDURE StreamReader@1(VAR InputStream@1000 : InStream;DotNet_Encoding@1001 : Codeunit 3026);
[LineStart(37)]
PROCEDURE StreamReader@1(VAR InputStream@1000 : InStream;DotNet_Encoding@1001 : Codeunit DotNet_Encoding);
VAR
DotNetEncoding@1002 : DotNet "'mscorlib'.System.Text.Encoding";
BEGIN
Expand All @@ -27,45 +28,77 @@ OBJECT Codeunit 3027 DotNet_StreamReader
END;

[External]
[LineStart(41)]
PROCEDURE StreamReaderFromDotNetStream@1000000000(VAR DotNet_Stream@1000 : Codeunit DotNet_Stream;DotNet_Encoding@1001 : Codeunit DotNet_Encoding);
VAR
DotNetEncoding@1002 : DotNet "'mscorlib'.System.Text.Encoding";
DotNetStream@1000000000 : DotNet "'mscorlib'.System.IO.Stream";
BEGIN
DotNet_Stream.GetStream(DotNetStream);
DotNet_Encoding.GetEncoding(DotNetEncoding);

DotNetStreamReader := DotNetStreamReader.StreamReader(DotNetStream,DotNetEncoding);
END;

[External]
[LineStart(47)]
PROCEDURE StreamReaderDetectEncoding@2(VAR InputStream@1000 : InStream;DetectEncodingFromByteOrderMarks@1001 : Boolean);
BEGIN
DotNetStreamReader := DotNetStreamReader.StreamReader(InputStream,DetectEncodingFromByteOrderMarks);
END;

[External]
[LineStart(50)]
PROCEDURE Close@3();
BEGIN
DotNetStreamReader.Close;
END;

[External]
[LineStart(53)]
PROCEDURE Dispose@4();
BEGIN
DotNetStreamReader.Dispose;
END;

[External]
[LineStart(56)]
PROCEDURE EndOfStream@6() : Boolean;
BEGIN
EXIT(DotNetStreamReader.EndOfStream);
exit(DotNetStreamReader.EndOfStream);
END;

[External]
PROCEDURE CurrentEncoding@7(VAR DotNet_Encoding@1000 : Codeunit 3026);
[LineStart(59)]
PROCEDURE CurrentEncoding@7(VAR DotNet_Encoding@1000 : Codeunit DotNet_Encoding);
BEGIN
DotNet_Encoding.SetEncoding(DotNetStreamReader.CurrentEncoding);
END;

[External]
[LineStart(62)]
PROCEDURE ReadLine@8() : Text;
BEGIN
EXIT(DotNetStreamReader.ReadLine);
exit(DotNetStreamReader.ReadLine);
END;

[External]
[LineStart(65)]
PROCEDURE ReadToEnd@9() : Text;
BEGIN
EXIT(DotNetStreamReader.ReadToEnd);
exit(DotNetStreamReader.ReadToEnd);
END;

[LineStart(68)]
PROCEDURE GetStreamReader@1000000001(VAR DotNetStreamReader2@1000000000 : DotNet "'mscorlib'.System.IO.StreamReader");
BEGIN
DotNetStreamReader2 := DotNetStreamReader;
END;

[LineStart(71)]
PROCEDURE SetStreamReader@1000000002(VAR DotNetStreamReader2@1000000000 : DotNet "'mscorlib'.System.IO.StreamReader");
BEGIN
DotNetStreamReader := DotNetStreamReader2;
END;

BEGIN
Expand Down
Loading