vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 22:12:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ported ulmBlockCiphers.Mod

Browse source
This commit is contained in:
Norayr Chilingarian 2014-01-22 00:20:04 +04:00
parent 2a16fd9af7
commit 2e05d3b339
8 changed files with 130 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
makefile
View file

@ -208,6 +208,7 @@ stage6:
$(VOCSTATIC) -sP ulmSysStat.Mod
$(VOCSTATIC) -sP ulmCiphers.Mod
$(VOCSTATIC) -sP ulmCipherOps.Mod
$(VOCSTATIC) -sP ulmBlockCiphers.Mod
#pow32 libs

1
makefile.gnuc.armv6j
View file

@ -207,6 +207,7 @@ stage6:
$(VOCSTATIC) -sP ulmSysStat.Mod
$(VOCSTATIC) -sP ulmCiphers.Mod
$(VOCSTATIC) -sP ulmCipherOps.Mod
$(VOCSTATIC) -sP ulmBlockCiphers.Mod
#pow32 libs

1
makefile.gnuc.armv6j_hardfp
View file

@ -207,6 +207,7 @@ stage6:
$(VOCSTATIC) -sP ulmSysStat.Mod
$(VOCSTATIC) -sP ulmCiphers.Mod
$(VOCSTATIC) -sP ulmCipherOps.Mod
$(VOCSTATIC) -sP ulmBlockCiphers.Mod
#pow32 libs

1
makefile.gnuc.armv7a_hardfp
View file

@ -207,6 +207,7 @@ stage6:
$(VOCSTATIC) -sP ulmSysStat.Mod
$(VOCSTATIC) -sP ulmCiphers.Mod
$(VOCSTATIC) -sP ulmCipherOps.Mod
$(VOCSTATIC) -sP ulmBlockCiphers.Mod
#pow32 libs

1
makefile.gnuc.powerpc
View file

@ -207,6 +207,7 @@ stage6:
$(VOCSTATIC) -sP ulmSysStat.Mod
$(VOCSTATIC) -sP ulmCiphers.Mod
$(VOCSTATIC) -sP ulmCipherOps.Mod
$(VOCSTATIC) -sP ulmBlockCiphers.Mod
#pow32 libs

1
makefile.gnuc.x86
View file

@ -207,6 +207,7 @@ stage6:
$(VOCSTATIC) -sP ulmSysStat.Mod
$(VOCSTATIC) -sP ulmCiphers.Mod
$(VOCSTATIC) -sP ulmCipherOps.Mod
$(VOCSTATIC) -sP ulmBlockCiphers.Mod
#pow32 libs

1
makefile.gnuc.x86_64
View file

@ -207,6 +207,7 @@ stage6:
$(VOCSTATIC) -sP ulmSysStat.Mod
$(VOCSTATIC) -sP ulmCiphers.Mod
$(VOCSTATIC) -sP ulmCipherOps.Mod
$(VOCSTATIC) -sP ulmBlockCiphers.Mod
#pow32 libs

123
src/lib/ulm/ulmBlockCiphers.Mod Normal file
View file

@ -0,0 +1,123 @@
(* Ulm's Oberon Library
Copyright (C) 1989-1997 by University of Ulm, SAI, D-89069 Ulm, Germany
----------------------------------------------------------------------------
Ulm's Oberon Library is free software; you can redistribute it
and/or modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either version
2 of the License, or (at your option) any later version.
Ulm's Oberon Library is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty
of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
----------------------------------------------------------------------------
E-mail contact: oberon@mathematik.uni-ulm.de
----------------------------------------------------------------------------
$Id: BlockCipher.om,v 1.1 1997/04/02 11:52:59 borchert Exp borchert $
----------------------------------------------------------------------------
$Log: BlockCipher.om,v $
Revision 1.1 1997/04/02 11:52:59 borchert
Initial revision
----------------------------------------------------------------------------
*)
MODULE ulmBlockCiphers; (* Michael Szczuka *)
(* abstraction for the use of block ciphers *)
IMPORT Ciphers := ulmCiphers, NetIO := ulmNetIO, PersistentObjects := ulmPersistentObjects, Services := ulmServices, Streams := ulmStreams;
TYPE
Cipher* = POINTER TO CipherRec;
CipherRec* = RECORD
(Ciphers.CipherRec)
(* private *)
inLength: INTEGER;
outLength: INTEGER;
END;
VAR
blockCipherType : Services.Type;
if : PersistentObjects.Interface;
PROCEDURE Init* (key: Cipher; if: Ciphers.Interface;
inLength, outLength: INTEGER);
(* init a block cipher with its special interface *)
BEGIN
Ciphers.Init(key, if);
ASSERT(inLength > 0);
ASSERT(outLength > 0);
key.inLength := inLength;
key.outLength := outLength;
END Init;
PROCEDURE GetInLength* (key: Cipher) : INTEGER;
(* returns the input block length of a block cipher *)
BEGIN
RETURN key.inLength;
END GetInLength;
PROCEDURE GetOutLength* (key: Cipher) : INTEGER;
(* returns the output block length of a block cipher *)
BEGIN
RETURN key.outLength;
END GetOutLength;
PROCEDURE EncryptBlock* (in: Streams.Stream; key: Cipher;
out: Streams.Stream) : BOOLEAN;
VAR
length : INTEGER;
BEGIN
length := GetInLength(key);
RETURN Ciphers.EncryptPart(in, key, length, out);
END EncryptBlock;
PROCEDURE DecryptBlock* (in: Streams.Stream; key: Cipher;
out: Streams.Stream) : BOOLEAN;
VAR
length : INTEGER;
BEGIN
length := GetOutLength(key);
RETURN Ciphers.DecryptPart(in, key, length, out);
END DecryptBlock;
PROCEDURE Create(VAR obj: PersistentObjects.Object);
VAR
key : Cipher;
BEGIN
NEW(key);
PersistentObjects.Init(key, blockCipherType);
obj := key;
END Create;
PROCEDURE Write(s: Streams.Stream; obj: PersistentObjects.Object) : BOOLEAN;
BEGIN
WITH obj:Cipher DO
RETURN NetIO.WriteInteger(s, obj.inLength) &
NetIO.WriteInteger(s, obj.outLength);
END;
END Write;
PROCEDURE Read(s: Streams.Stream; obj: PersistentObjects.Object) : BOOLEAN;
BEGIN
WITH obj:Cipher DO
RETURN NetIO.ReadInteger(s, obj.inLength) &
NetIO.ReadInteger(s, obj.outLength);
END;
END Read;
BEGIN
NEW(if);
if.create := Create;
if.write := Write;
if.read := Read;
if.createAndRead := NIL;
PersistentObjects.RegisterType(blockCipherType, "BlockCiphers.Cipher",
"Ciphers.Cipher", if);
END ulmBlockCiphers.