xsharp.eu

Code: Select all

Changes in 2.1.1.0 (Bandol GA 2.11)

Compiler

·We have added new syntaxes for OUT parameters. You can now use one of the following syntaxes
 
   LOCAL cString as STRING
   cString := "12345"
   IF Int32.TryParse(cString, OUT VAR result)      
 // this declares the out variable inline, the type is derived from the method call
      ? "Parsing succeeded, result is ", result
   ENDIF

   IF Int32.TryParse(cString, OUT result2 AS Int32)   
 // this declares the out variable inline, the type is specified by us
      ? "Parsing succeeded, result is ", result2
   ENDIF

   IF Int32.TryParse(cString, OUT NULL)      
 // this tells the compiler to generate an out variable, we are not interested in the result
      ? "Parsing succeeded"
   ENDIF

   IF Int32.TryParse(cString, OUT VAR _)      
 // this tells the compiler to generate an out variable, we are not interested in the result. 
        // The name "_" has a special meaning "ignore this"
      ? "Parsing succeeded"
   ENDIF 

Code: Select all

using System.Security.Cryptography;
private readonly SymmetricAlgorithm _symmetricAlgorithm;
public int InputBlockSize => _symmetricAlgorithm.BlockSize / 8;   // error CS1002 und CS1519

error CS1002: ; expected
error CS1519: Invalid token '/' in class, struct, or interface member declaration

Code: Select all

public int InputBlockSize
{
	get
	{
		return _symmetricAlgorithm.BlockSize / 8;
	}
}

Code: Select all

InputBlockSize => { _symmetricAlgorithm.BlockSize / 8 }

Code: Select all

public property InputBlockSize as int get _symmetricAlgorithm.BlockSize / 8

Code: Select all

namespace RKSVComComplete
{
	using System;
	using RKSV.Light.APDU;

	public class Program
	{
		static void Main()
		{
			APDUMaster m_APDU = new APDUMaster();
			RKSV.Light.APDU.CardOSVersion cardType = m_APDU.GetCardType();
//			var cardType = m_APDU.GetCardType();
			Console.WriteLine(cardType);
		}
	}	// class
}	// namespace

namespace RKSV.Light.APDU
{
	public enum CardOSVersion
	{
		Unknown,
		GT_OS_5_3,
		AT_OS_5_3
	}
	public class APDUMaster
	{
		public CardOSVersion GetCardType()
		{
			return CardOSVersion.AT_OS_5_3;
		}

	}	//class
}	// namespace

Code: Select all

FUNCTION EncryptAES256_CTR(decrypted AS BYTE[] , encrypted OUT BYTE[] , key AS BYTE[] , kassenid AS STRING , renummer AS STRING) AS LOGIC
	LOCAL iV AS BYTE[]
	LOCAL aes256CounterMode AS Aes256CounterMode
	LOCAL memoryStream AS MemoryStream
	LOCAL cryptoStream AS CryptoStream
	//
	TRY
		iV := GetIV(kassenid, renummer)
		? "iV.Length", iV.Length
		aes256CounterMode := Aes256CounterMode{iV}
		memoryStream := MemoryStream{}
		cryptoStream := CryptoStream{memoryStream, aes256CounterMode:CreateEncryptor(key, NULL), CryptoStreamMode.Write}
		cryptoStream:Write(decrypted, 0, decrypted:Length)
		? "decrypted.Length", decrypted.Length	// 8
		? "key.Length", key.Length	// 32
		? ""
		// Bis hierher OK, dann löst Close die Exception aus
		cryptoStream:Close()
		encrypted := memoryStream:ToArray()
		aes256CounterMode:Dispose()
		RETURN TRUE

	CATCH ex AS Exception
		encrypted := NULL
		Console.WriteLine(ex:Message, 1)
		RETURN FALSE
	END TRY

Code: Select all

LOCAL iV AS BYTE[]

Code: Select all

cryptoStream:Write(decrypted, 0, decrypted:Length)

Code: Select all

cryptoStream:Write(decrypted, 1, decrypted:Length)