wqweto

'--- mdCurve25519.bas
Option Explicit
DefObj A-Z

#Const HasPtrSafe = (VBA7 <> 0)
#Const HasSha512 = (CRYPT_HAS_SHA512 <> 0)

#If HasPtrSafe Then
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
Private Declare PtrSafe Function RtlGenRandom Lib "advapi32" Alias "SystemFunction036" (RandomBuffer As Any, ByVal RandomBufferLength As Long) As Long

wqweto

'--- mdSha2.bas
Option Explicit
DefObj A-Z

#Const HasSha512 = (CRYPT_HAS_SHA512 <> 0)
#Const HasPtrSafe = (VBA7 <> 0)
#Const HasOperators = (TWINBASIC <> 0)

#If HasPtrSafe Then
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

wqweto

'--- mdSha3.bas
Option Explicit
DefObj A-Z

#Const HasPtrSafe = (VBA7 <> 0)
#Const LargeAddressAware = (Win64 = 0 And VBA7 = 0 And VBA6 = 0 And VBA5 = 0)
#Const HasOperators = (TWINBASIC <> 0)

#If HasPtrSafe Then
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

wqweto

    public class SimpleAES
    {
        private const int SALT_SIZE = 8;
        private const int KEY_SIZE = 256;

        public static string Encrypt(string text, string passphrase)
        {
            byte[] result = null;
            if (Encrypt(Encoding.UTF8.GetBytes(text), passphrase, ref result))
            {

wqweto

'--- mdSerialNumber.bas
Option Explicit
DefObj A-Z

#Const HasPtrSafe = (VBA7 <> 0) Or (TWINBASIC <> 0)

'=========================================================================
' API
'=========================================================================

wqweto

'--- mdStreamSupport.bas
Option Explicit
DefObj A-Z

#Const HasPtrSafe = (VBA7 <> 0) Or (TWINBASIC <> 0)

'=========================================================================
' API
'=========================================================================

wqweto

IF OBJECT_ID('usp_adm_CreateLinkView') IS NOT NULL DROP PROC usp_adm_CreateLinkView
GO

CREATE PROC usp_adm_CreateLinkView (
            @ConnStrOrFile  VARCHAR(1000)
            , @TableName    sysname         = NULL
            , @ViewName     sysname         = NULL
            , @Flags        INT             = NULL -- 1 - CSV header, 2 - CSV unicode
) AS
SET         NOCOUNT ON

wqweto

'--- mdAesCbc.bas
Option Explicit
DefObj A-Z

#Const HasPtrSafe = (VBA7 <> 0) Or (TWINBASIC <> 0)

'=========================================================================
' API
'=========================================================================

wqweto

using System;
using System.IO;
using System.Security.Cryptography;
using System.Security.Cryptography.X509Certificates;

namespace ConsoleApp1
{
    class Program
    {
        static void Main(string[] args)

wqweto

// Generated .IDL file (by the OLE/COM Object Viewer)
// 
// typelib filename: FM20.DLL

[
  uuid(0D452EE1-E08F-101A-852E-02608C4D0BB4),
  version(2.0),
  helpstring("Microsoft Forms 2.0 Object Library"),
  helpfile("fm20.hlp"),
  helpcontext(00000000),