I´m using the "crypt32.dll" with appeon 2016 WEB

and it works perfect

Local External Functions:
 

FUNCTION boolean CryptBinaryToString ( &
    Blob pbBinary, &
    ulong cbBinary, &
    ulong dwFlags, &
    Ref string pszString, &
    Ref ulong pcchString ) &
LIBRARY "crypt32.dll" ALIAS FOR "CryptBinaryToStringA;Ansi"

FUNCTION boolean CryptStringToBinary ( &
    string pszString, &
    ulong cchString, &
    ulong dwFlags, &
    Ref blob pbBinary, &
    Ref ulong pcbBinary, &
    Ref ulong pdwSkip, &
    Ref ulong pdwFlags ) &
LIBRARY "crypt32.dll" ALIAS FOR "CryptStringToBinaryA;Ansi"

FUNCTION long GetComputerNameW &
    (ref string ComputerName, ref ulong BufferLength) &
  LIBRARY "KERNEL32.DLL"
FUNCTION long GetUserNameW(ref string UserName, ref ulong BufferLength) &
LIBRARY "ADVAPI32.DLL"

instance Variables
 

// Base64, with certificate beginning and ending headers
CONSTANT Ulong CRYPT_STRING_BASE64HEADER = 0

// Base64, without headers
CONSTANT Ulong CRYPT_STRING_BASE64 = 1

// Pure binary copy
CONSTANT Ulong CRYPT_STRING_BINARY = 2

// Base64, with request beginning and ending headers
CONSTANT Ulong CRYPT_STRING_BASE64REQUESTHEADER = 3

// Hexadecimal only
CONSTANT Ulong CRYPT_STRING_HEX = 4

//  Hexadecimal, with ASCII character display
CONSTANT Ulong CRYPT_STRING_HEXASCII = 5

// Base64, with X.509 CRL beginning and ending headers
CONSTANT Ulong CRYPT_STRING_BASE64X509CRLHEADER = 9

// Hexadecimal, with address display
CONSTANT Ulong CRYPT_STRING_HEXADDR = 10

// Hexadecimal, with ASCII character and address display
CONSTANT Ulong CRYPT_STRING_HEXASCIIADDR = 11

// A raw hex string. WinServer 2K3, WinXP:  This value is not supported.
CONSTANT Ulong CRYPT_STRING_HEXRAW = 12

I have two encryption examples:

BCrypt: http://www.topwizprogramming.com/freecode_bcrypt.html

and

CryptoAPI: http://www.topwizprogramming.com/freecode_cryptoapi.html

Try both of them.

I have the same problem as David:

Base 64 encoding with CryptBinaryToString results in error 126.

My code:

Function Boolean CryptBinaryToString ( &
    blob pbBinary, &
    ulong cbBinary, &
    ulong dwFlags, &
    Ref string pszString, &
    Ref ulong pcchString) Library "Crypt32.dll" Alias For "CryptBinaryToStringW"




CONSTANT ulong        CRYPT_STRING_BASE64     = 1
CONSTANT ulong        CRYPT_STRING_NOCRLF     = 1073741824


Blob         lblob_value

string     ls_result

uLong     lul_buflen



ls_result = Space (2 + 1.5 * (Len (lblob_value) + 2))
lul_buflen = Len (ls_result)

CryptBinaryToString (lblob_value, Len (lblob_value), CRYPT_STRING_BASE64 + CRYPT_STRING_NOCRLF, ls_result, lul_buflen)

It runs well if I run the application as classic Powerbuilder Application. But if I deploy it to the web it will not work.

Any idea?

I can't use new CodeObject because it is unsupported in Powerserver.

I found out that the blob I wanted to convert to Base64 is empty.

The reason is that a conversion of a byte array to a blob fails in Powerserver.

FYI - am using roland's bcrypt in rest requests and it converts back and forth with base64 to/from blob.

i had trouble getting it to work, and after hours of testing, i finally narrowed down that setnull was the problem.   Just by setting a blob variable to NULL - setnull( blobvariable) - made the blob variable unusable in powerserver (works fine in powerbuilder).  I had been using setnull() then calling the base64 decrypt api.  If i either didn't call setnull, or if i set the blob to something using powerscript then it worked: lblob = blob('')

PS 2016