OTP Two Factor Authentication( 2FA ) Using PowerBuilder

OTP Two Factor Authentication( 2FA ) Using PowerBuilder

OTP Two Factor Authentication( 2FA ) Using PowerBuilder 1

Source Code Example

nvo_authenticator from nonvisualobject

forward
global type nvo_authenticator from nonvisualobject
end type
type time_zone_information from structure within nvo_authenticator
end type
type systemtime from structure within nvo_authenticator
end type
type hmac_info from structure within nvo_authenticator
end type
end forward

type time_zone_information from structure
	long		bias
	long		standardname[31]
	systemtime		standarddate
	long		standardbias
	long		daylightname[31]
	systemtime		daylighttime
	long		daylightbias
end type

type systemtime from structure
	integer		wyear
	integer		wmonth
	integer		wdayofweek
	integer		wday
	integer		whour
	integer		wminute
	integer		wsecond
	integer		wmilliseconds
end type

type hmac_info from structure
	unsignedlong		hashalgid
	unsignedlong		pbinnerstring
	unsignedlong		cbinnerstring
	unsignedlong		pbouterstring
	unsignedlong		cbouterstring
end type

global type nvo_authenticator from nonvisualobject autoinstantiate
end type

type prototypes
Function ulong GetTimeZoneInformation (ref TIME_ZONE_INFORMATION lpTimeZoneInformation) Library "kernel32"
Function boolean TzSpecificLocalTimeToSystemTime(TIME_ZONE_INFORMATION lpTimeZone, SYSTEMTIME lpLocalTime, ref SYSTEMTIME lpUniversalTime) Library "kernel32"
Function String GetBase32Encode(String msg) Library "BaseEncoding.dll"  Alias For "GetBase32Encode;Ansi"
Function String GetBase32Decode(String coded) Library "BaseEncoding.dll"  Alias For "GetBase32Decode;Ansi"
Function String GetBase64Encode(String msg) Library "BaseEncoding.dll"  Alias For "GetBase64Encode;Ansi"
Function String GetBase64Decode(String coded) Library "BaseEncoding.dll"  Alias For "GetBase64Decode;Ansi"

Function ulong GetLastError () Library "kernel32.dll"
Function ulong FormatMessage( ulong dwFlags, ulong lpSource, ulong dwMessageId, ulong dwLanguageId, Ref string lpBuffer, ulong nSize, ulong Arguments ) Library "kernel32.dll" Alias For "FormatMessageW"
Function boolean CloseHandle ( long hObject ) Library "kernel32.dll"
Function boolean TzSpecificLocalTimeToSystemTime ( long lpTimeZoneInformation, SYSTEMTIME lpLocalTime, Ref SYSTEMTIME lpUniversalTime ) Library "kernel32.dll"
Function boolean CryptBinaryToString ( blob pbBinary, ulong cbBinary, ulong dwFlags, Ref string pszString, Ref ulong pcchString ) Library "crypt32.dll" Alias For "CryptBinaryToStringW"
Function boolean CryptBinaryToString ( blob pbBinary, ulong cbBinary, ulong dwFlags, long pszString, Ref ulong pcchString ) Library "crypt32.dll" Alias For "CryptBinaryToStringW"
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 "CryptStringToBinaryW"
Function ulong BCryptCloseAlgorithmProvider ( Ref long hAlgorithm, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptCreateHash ( long hAlgorithm, Ref long phHash, Ref blob pbHashObject, ulong cbHashObject, long pbSecret, ulong cbSecret, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptCreateHash ( long hAlgorithm, Ref long phHash, Ref blob pbHashObject, ulong cbHashObject, blob pbSecret, ulong cbSecret, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptDestroyHash ( Ref long hHash ) Library "bcrypt.dll"
Function ulong BCryptFinishHash ( long hHash, Ref blob pbOutput, ulong cbOutput, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptGenRandom ( long phAlgorithm, Ref long pbBuffer, ulong cbBuffer, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptGetProperty ( long hObject, string pszProperty, Ref long pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptHashData ( long hHash, blob pbInput, ulong cbInput, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptOpenAlgorithmProvider ( Ref long phAlgorithm, string pszAlgId, ulong pszImplementation, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptGenerateSymmetricKey ( long phAlgorithm, Ref long phKey, Ref blob pbKeyObject, ulong cbKeyObject, blob pbSecret, ulong cbSecret, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptDestroyKey ( Ref long hKey ) Library "bcrypt.dll"
Function ulong BCryptEncrypt ( long hKey, blob pbInput, ulong cbInput, long pPaddingInfo, blob pbIV, ulong cbIV, long pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptEncrypt ( long hKey, blob pbInput, ulong cbInput, long pPaddingInfo, blob pbIV, ulong cbIV, Ref blob pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptDecrypt ( long hKey, blob pbInput, ulong cbInput, long pPaddingInfo, blob pbIV, ulong cbIV, long pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"
Function ulong BCryptDecrypt ( long hKey, blob pbInput, ulong cbInput, long pPaddingInfo, blob pbIV, ulong cbIV, Ref blob pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"

FUNCTION Long CreateBmpFile(string fileName, string text, long errCorLvl, long borderSize, long scale) LIBRARY "QRCodeGenLibrary.dll"
end prototypes

type variables
Private:

// BCrypt Error Codes
Constant ULong STATUS_SUCCESS					= 0				// 0x00000000
Constant ULong STATUS_BUFFER_TOO_SMALL		= 3221225507	// 0xC0000023
Constant ULong STATUS_INVALID_BUFFER_SIZE = 3221225990	// 0xC0000206
Constant ULong STATUS_INVALID_HANDLE		= 3221225480	// 0xC0000008
Constant ULong STATUS_INVALID_PARAMETER	= 3221225485	// 0xC000000D
Constant ULong STATUS_NO_MEMORY				= 3221225495	// 0xC0000017
Constant ULong STATUS_NOT_FOUND				= 3221226021	// 0xC0000225
Constant ULong STATUS_NOT_SUPPORTED			= 3221225659	// 0xC00000BB

// Cryptography Primitive Property Identifiers
Constant String BCRYPT_BLOCK_LENGTH  = "BlockLength"
Constant String BCRYPT_OBJECT_LENGTH = "ObjectLength"
Constant String BCRYPT_HASH_LENGTH   = "HashDigestLength"

Constant ULong BCRYPT_ALG_HANDLE_HMAC = 8
Constant ULong BCRYPT_BLOCK_PADDING = 1

Constant ULong NULL = 0
Constant ULong CRYPT_STRING_BASE64 = 1
Constant ULong CRYPT_STRING_HEXRAW = 12
Constant Ulong CRYPT_STRING_NOCRLF = 1073741824	// 0x40000000

// constants for CreateFile API function
Constant Long INVALID_HANDLE_VALUE = -1
Constant ULong GENERIC_READ      = 2147483648
Constant ULong GENERIC_WRITE     = 1073741824
Constant ULong FILE_SHARE_READ   = 1
Constant ULong FILE_SHARE_WRITE  = 2
Constant ULong CREATE_NEW			= 1
Constant ULong CREATE_ALWAYS		= 2
Constant ULong OPEN_EXISTING		= 3
Constant ULong OPEN_ALWAYS			= 4
Constant ULong TRUNCATE_EXISTING = 5

long il_hAlg
long il_hRanAlg
long il_hHash
long il_hKey

Public:

// CNG Algorithm Identifiers

// Hashing Algorithms
Constant String BCRYPT_MD2_ALGORITHM    = "MD2"
Constant String BCRYPT_MD4_ALGORITHM    = "MD4"
Constant String BCRYPT_MD5_ALGORITHM    = "MD5"
Constant String BCRYPT_SHA1_ALGORITHM   = "SHA1"
Constant String BCRYPT_SHA256_ALGORITHM = "SHA256"
Constant String BCRYPT_SHA384_ALGORITHM = "SHA384"
Constant String BCRYPT_SHA512_ALGORITHM = "SHA512"

// Encryption Algorithms
Constant String BCRYPT_AES_ALGORITHM		= "AES"
Constant String BCRYPT_DES_ALGORITHM		= "DES"
Constant String BCRYPT_DESX_ALGORITHM		= "DESX"
Constant String BCRYPT_RC2_ALGORITHM		= "RC2"
Constant String BCRYPT_3DES_ALGORITHM		= "3DES"
Constant String BCRYPT_3DES_112_ALGORITHM	= "3DES_112"

Constant ULong STATUS_USER_ERROR = 0

// public non-constant instance variables
String LastFunction
String LastErrText
ULong  LastErrCode
Encoding iEncoding = EncodingAnsi!

end variables

forward prototypes
public function integer longtobytearray (long al_data, ref byte a_data[])
public function byte bitwiseand (byte a_value1, byte a_value2)
public function long getunixepoch ()
public function integer of_copylongtobytes (long al_long, ref byte a_byte[4])
public function blob of_blob (byte a_byte[])
private subroutine of_finalcleanup ()
public function unsignedlong of_getlasterror (ref string as_msgtext)
private subroutine of_errorcleanup (string as_function)
private function boolean nt_success (unsignedlong ntstatus)
public function blob of_hmac (string as_algorithm, blob ablb_message, blob ablb_secret)
public function long get_qrcode_bitmap (string as_filename, string as_text, long al_errcorlvl, long al_bordersize, long al_scale)
public function long get_qrcode_bitmap (string as_filename, string as_text)
public function string generatepin (string key, boolean ab_keytypebase32)
public function string generatepin (string as_key, long counter, boolean ab_keytypebase32)
public function string generateprovisioningimage (string identifier, string as_key, boolean ab_keytypebase32)
end prototypes

public function integer longtobytearray (long al_data, ref byte a_data[]);//====================================================================
// Function: nvo_authenticator.longtobytearray()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value    	long	al_data
// 	reference	byte	a_data[]
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.longtobytearray ( long al_data, ref byte a_data[] )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

byte		l_data[4]
Long		l_len = 4
Integer	i, j

of_copylongtobytes ( al_data, l_data )

//pad with 4 zeros
For i = 1 To 4
	j = UpperBound(a_data) +1
	a_data[j] = 0
Next

//Copy over data in inverse order
For i = 4 To 1 Step -1
	j = UpperBound (a_data) + 1
	a_data[j] = l_data[i]
Next

Return 1

end function

public function byte bitwiseand (byte a_value1, byte a_value2);//====================================================================
// Function: nvo_authenticator.bitwiseand()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	byte	a_value1
// 	value	byte	a_value2
//--------------------------------------------------------------------
// Returns:  byte
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.bitwiseand ( byte a_value1, byte a_value2 )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Integer li_i
Byte     lbyte_result, lbyte_factor

lbyte_result = 0
For li_i = 1 To 8

If a_value1 = 0 Or a_value2 = 0 Then Exit

If li_i = 1 Then
		lbyte_factor = 1
	Else
		lbyte_factor *= 2
	End If

If Mod(a_value1, 2) = 1 And Mod(a_value2, 2) = 1 Then
		lbyte_result += lbyte_factor
	End If

a_value1 /= 2
	a_value2 /= 2
Next

Return lbyte_result

end function

public function long getunixepoch ();//====================================================================
// Function: nvo_authenticator.getunixepoch()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
//--------------------------------------------------------------------
// Returns:  long
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.getunixepoch ( )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Long	days
Long	seconds
Long 	epoch
ULong rc1
Boolean rc2
TIME_ZONE_INFORMATION tzi
SYSTEMTIME local
SYSTEMTIME utc
DateTime	l_datetime_utc

rc1 = GetTimeZoneInformation(tzi)

//Convert PowerBuilder datetime to SYSTEMTIME
local.wYear = Year(Today())
local.wMonth = Month(Today())
local.wDay = Day(Today())
local.wHour = Hour(Now())
local.wMinute = Minute(Now())
local.wSecond = Second(Now())
local.wMilliseconds = 0

//Get the time in UTC
rc2 = TzSpecificLocalTimeToSystemTime(tzi, local, utc)

//Convert the UTC SYSTEMTIME back to a PowerBuilder datetime
l_datetime_utc = DateTime ( Date ( utc.wYear, utc.wMonth, utc.wDay ), Time ( utc.wHour, utc.wMinute, utc.wSecond ) )

days = DaysAfter ( Date ( '1970/01/01' ), Date ( l_datetime_utc ) )
seconds = SecondsAfter ( Time ( '00:00:00' ), Time ( l_datetime_utc ) )
epoch = ( days * 24 * 60 * 60 ) + seconds
Return epoch

end function

public function integer of_copylongtobytes (long al_long, ref byte a_byte[4]);//====================================================================
// Function: nvo_authenticator.of_copylongtobytes()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value    	long	al_long
// 	reference	byte	a_byte[4]
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.of_copylongtobytes ( long al_long, ref byte a_byte[4] )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Long ll_long
Integer i = 1, j, li_byte[]

ll_long = al_long

Do While Truncate(ll_long / 256, 0) > 0
	li_byte[i] = Mod(ll_long, 256)
	i++
	ll_long = Truncate(ll_long/256, 0)
Loop

li_byte[i] = Mod(ll_long, 256)

For j = 1 To i
	a_byte[j] += Byte(String(li_byte[j]))
Next

Return 1

end function

public function blob of_blob (byte a_byte[]);//====================================================================
// Function: nvo_authenticator.of_blob()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	byte	a_byte[]
//--------------------------------------------------------------------
// Returns:  blob
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.of_blob ( byte a_byte[] )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Integer i
Blob lblb

lblb = Blob ( Space(UpperBound(a_byte)), EncodingUTF8! )
for i = 1 to UpperBound(a_byte)
	SetByte(lblb, i, a_byte[i])
Next

Return lblb
end function

private subroutine of_finalcleanup ();//====================================================================
// Function: nvo_authenticator.of_finalcleanup()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
//--------------------------------------------------------------------
// Returns:  (none)
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.of_finalcleanup ( )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

If il_hAlg > 0 Then
	BCryptCloseAlgorithmProvider(il_hAlg, 0)
End If

If il_hRanAlg > 0 Then
	BCryptCloseAlgorithmProvider(il_hRanAlg, 0)
End If

If il_hHash > 0 Then
	BCryptDestroyHash(il_hHash)
End If

If il_hKey > 0 Then
	BCryptDestroyKey(il_hKey)
End If

end subroutine

public function unsignedlong of_getlasterror (ref string as_msgtext);//====================================================================
// Function: nvo_authenticator.of_getlasterror()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	reference	string	as_msgtext
//--------------------------------------------------------------------
// Returns:  unsignedlong
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.of_getlasterror ( ref string as_msgtext )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Constant ULong FORMAT_MESSAGE_FROM_SYSTEM = 4096
Constant ULong LANG_NEUTRAL = 0
ULong lul_error, lul_Size = 255

lul_error = GetLastError()

as_msgtext = Space(lul_Size)

FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0, lul_error, LANG_NEUTRAL, as_msgtext, lul_Size, 0)

Return lul_error

end function

private subroutine of_errorcleanup (string as_function);//====================================================================
// Function: nvo_authenticator.of_errorcleanup()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	string	as_function
//--------------------------------------------------------------------
// Returns:  (none)
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.of_errorcleanup ( string as_function )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

LastFunction = as_function
LastErrCode  = of_GetLastError(LastErrText)

of_FinalCleanup()

end subroutine

private function boolean nt_success (unsignedlong ntstatus);//====================================================================
// Function: nvo_authenticator.nt_success()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	unsignedlong	ntstatus
//--------------------------------------------------------------------
// Returns:  boolean
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.nt_success ( unsignedlong ntstatus )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

LastErrCode = NTSTATUS

If NTSTATUS = 0 Then
	Return True
Else
	Return False
End If

end function

public function blob of_hmac (string as_algorithm, blob ablb_message, blob ablb_secret);//====================================================================
// Function: nvo_authenticator.of_hmac()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	string	as_algorithm
// 	value	blob  	ablb_message
// 	value	blob  	ablb_secret
//--------------------------------------------------------------------
// Returns:  blob
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.of_hmac ( string as_algorithm, blob ablb_message, blob ablb_secret )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Blob lblb_NullReturn, lblb_pbHashObject, lblb_pbHash
Long ll_cbHashObject, ll_cbHash
ULong lul_cbData

SetNull(lblb_NullReturn)

// open an algorithm handle
If Not NT_SUCCESS(BCryptOpenAlgorithmProvider(il_hAlg, &
	as_algorithm, Null, &
	BCRYPT_ALG_HANDLE_HMAC)) Then
	of_ErrorCleanup("BCryptOpenAlgorithmProvider")
	Return lblb_NullReturn
End If

// calculate the size of the buffer to hold the hash object
If Not NT_SUCCESS(BCryptGetProperty(il_hAlg, &
	BCRYPT_OBJECT_LENGTH, &
	ll_cbHashObject, 4, lul_cbData, 0)) Then
	of_ErrorCleanup("BCryptGetProperty BCRYPT_OBJECT_LENGTH")
	Return lblb_NullReturn
End If

lblb_pbHashObject = Blob(Space(ll_cbHashObject), iEncoding)

// calculate the length of the hash
If Not NT_SUCCESS(BCryptGetProperty(il_hAlg, &
	BCRYPT_HASH_LENGTH, &
	ll_cbHash, 4, lul_cbData, 0)) Then
	of_ErrorCleanup("BCryptGetProperty BCRYPT_HASH_LENGTH")
	Return lblb_NullReturn
End If

lblb_pbHash = Blob(Space(ll_cbHash), iEncoding)

// create a hash
If Not NT_SUCCESS(BCryptCreateHash(il_hAlg, &
	il_hHash, lblb_pbHashObject, &
	ll_cbHashObject, ablb_secret, Len(ablb_secret), 0)) Then
	of_ErrorCleanup("BCryptCreateHash")
	Return lblb_NullReturn
End If

// hash some data
If Not NT_SUCCESS(BCryptHashData(il_hHash, &
	ablb_Message, Len(ablb_Message), 0)) Then
	of_ErrorCleanup("BCryptHashData")
	Return lblb_NullReturn
End If

// close the hash
If Not NT_SUCCESS(BCryptFinishHash(il_hHash, &
	lblb_pbHash, ll_cbHash, 0)) Then
	of_ErrorCleanup("BCryptFinishHash")
	Return lblb_NullReturn
End If

// final cleanup
of_FinalCleanup()

Return lblb_pbHash

end function

public function long get_qrcode_bitmap (string as_filename, string as_text, long al_errcorlvl, long al_bordersize, long al_scale);// The function creates a BITMAP file with a QR code (the version of the QR code is selected automatically from 1 to 40) (Mask Pattern is selected automatically)
// Options:
// fileName Path and name of the file to be created (C: \ Temp \ qrCode.bmp) (UTF-16 encoding)
// text Text to encode (1-4096) (Limited to 4096 characters) (UTF-16 encoding)
// errCorLvl Error correction level (0-4).
// QR code has a special mechanism to increase the reliability of encrypted information storage.
// For codes created with the highest level of reliability, up to 30% of the surface can be damaged or erased,
// but they will save information and be read correctly.
// Increasing the level helps to increase the reliability of information storage,
// but leads to an increase in the size of the matrix code.
// 0 - Low (Allowable percentage of violations is about 7%)
// 1 - Medium (Allowable percentage of violations is about 15%)
// 2 - Quartile (Allowable percentage of violations is about 25%)
// 3 - High (Allowable percentage of violations is about 30%)
// borderSize Size of the white border around in modules (limited to 0-100)
// scale Unit size in pixels (limited to 1-100)
//
// Returned value:
// 0 - Successful execution
// 1 - Error fileName, or incorrect path, or error opening file
// 2 - Error text, incorrect length of the encoded text
// 3 - Error errCorLvl, wrong level of error correction
// 4 - Error borderSize, wrong border size
// 5 - Error scale, incorrect module size
// 6 - Error converting the encoding of the encoded text from UTF-16 to UTF-8 (the buffer for UTF-8 is also 4096 characters and it may not be enough)
// 7 - Error receiving QR code
return CreateBmpFile(as_fileName, as_text, al_errCorLvl, al_borderSize, al_scale);

end function

public function long get_qrcode_bitmap (string as_filename, string as_text);
//====================================================================
// Function: nvo_authenticator.get_qrcode_bitmap()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	string	as_filename
// 	value	string	as_text
//--------------------------------------------------------------------
// Returns:  long
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.get_qrcode_bitmap ( string as_filename, string as_text )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Return get_qrcode_bitmap(as_fileName, as_text, 1, 4, 4);

end function

public function string generatepin (string key, boolean ab_keytypebase32);//====================================================================
// Function: nvo_authenticator.generatepin()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	string 	key
// 	value	boolean	ab_keytypebase32
//--------------------------------------------------------------------
// Returns:  string
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.generatepin ( string key, boolean ab_keytypebase32 )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Long	TotalSeconds, CurrentInterval, IntervalLength = 30

TotalSeconds = getunixepoch()
CurrentInterval = TotalSeconds/IntervalLength

Return generatepin ( Key, CurrentInterval, ab_keytypebase32 )

end function

public function string generatepin (string as_key, long counter, boolean ab_keytypebase32);//====================================================================
// Function: nvo_authenticator.generatepin()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	string 	as_key
// 	value	long   	counter
// 	value	boolean	ab_keytypebase32
//--------------------------------------------------------------------
// Returns:  string
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.generatepin ( string as_key, long counter, boolean ab_keytypebase32 )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

byte		hashBytes[], counterBytes[], offset, selectedByte
Blob		counterHashBlob, counterBlob, keyBlob
String		counterHash, pin
Integer	li_count, i, pinLen
Long		selectedLong
Long		selectedMod
String		 ls_key

//Convert the counter to byte array and then to blob
longtobytearray ( counter, counterBytes )
counterBlob = of_blob ( counterBytes )

If ab_keytypebase32 Then
	ls_key = GetBase32Decode(as_key)
Else
	ls_key = as_key
End If

//Convert key to blob and has counter
keyBlob = Blob ( ls_key, EncodingUTF8! )
counterHashBlob = of_hmac("SHA1", counterBlob, keyBlob)

//Convert result back to byte array
Int li_max, li_idx
li_max = Len(counterHashBlob)
For li_idx = 1 To li_max
	hashBytes[li_idx] = Byte(BlobMid(counterHashBlob, li_idx, 1))
Next

//Get the last byte
li_count = UpperBound ( hashBytes )
//And use that to determine the offset into the byte array that we'll start with
offset = bitwiseand ( hashBytes[li_count], 15 )

//Calculate the selectedLong value using the selected bytes
For i = 1 To 4
	selectedByte = 	hashBytes[offset + i]
	Choose Case i
		Case 1
			//Strip the most significant bit
			selectedByte = bitwiseand ( selectedByte, 127 )
			selectedLong = selectedLong + selectedByte * 2^24
		Case 2
			selectedLong = selectedLong + selectedByte * 2^16
		Case 3
			selectedLong = selectedLong + selectedByte * 2^8
		Case 4
			selectedLong = selectedLong + selectedByte
	End Choose
Next

selectedMod = Mod ( selectedLong, 1000000 )

pin = String ( selectedMod )
pinLen = Len ( pin )
pin = Fill ( '0', 6 - pinLen ) + pin

Return pin

end function

public function string generateprovisioningimage (string identifier, string as_key, boolean ab_keytypebase32);//====================================================================
// Function: nvo_authenticator.generateprovisioningimage()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	string 	identifier
// 	value	string 	as_key
// 	value	boolean	ab_keytypebase32
//--------------------------------------------------------------------
// Returns:  string
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: nvo_authenticator.generateprovisioningimage ( string identifier, string as_key, boolean ab_keytypebase32 )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Blob	lblb_provision_url
String	 ls_keystring,  ls_provision_url
Long ll_retval
String ls_url
String ls_qrcode

If ab_keytypebase32 Then
	ls_keystring = as_key
Else
	ls_keystring = GetBase32Encode(  as_key)
End If

ls_provision_url = 'otpauth://totp/' + identifier + '?secret=' + ls_keystring
lblb_provision_url = Blob ( ls_provision_url, EncodingUTF8! )
ls_url = String(lblb_provision_url, EncodingUTF8!)

ls_qrcode = "qrcodeotp.bmp"
ll_retval = get_qrcode_bitmap(ls_qrcode, ls_url, 1, 5,  5)
If ll_retval = 0 Then
	Return ls_qrcode
Else
	Return ""
End If
Return ""

end function

on nvo_authenticator.create
call super::create
TriggerEvent( this, "constructor" )
end on

on nvo_authenticator.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

655

656

657

658

659

660

661

662

663

664

665

666

667

668

669

670

671

672

673

674

675

676

677

678

679

680

681

682

683

684

685

686

687

688

689

690

691

692

693

694

695

696

697

698

699

700

701

702

703

704

705

706

707

708

709

710

711

712

713

714

715

716

717

718

719

720

721

722

723

724

725

726

727

728

729

730

731

732

733

734

735

736

737

738

739

740

741

742

743

744

745

746

747

748

749

750

751

752

753

754

755

756

757

758

759

760

761

762

763

764

765

766

767

768

769

770

771

772

773

774

775

776

777

778

779

780

781

782

783

784

785

786

787

788

789

790

791

792

793

794

795

796

797

798

799

800

801

802

803

804

805

806

807

808

809

810

811

812

813

814

815

816

817

818

819

820

821

822

823

824

825

826

827

828

829

830

831

832

833

834

835

836

837

838

839

840

841

842

843

forward

global type nvo_authenticator from nonvisualobject

end type

type time_zone_information from structure within nvo_authenticator

end type

type systemtime from structure within nvo_authenticator

end type

type hmac_info from structure within nvo_authenticator

end type

end forward

type time_zone_information from structure

long bias

long standardname[31]

systemtime standarddate

long standardbias

long daylightname[31]

systemtime daylighttime

long daylightbias

end type

type systemtime from structure

integer wyear

integer wmonth

integer wdayofweek

integer wday

integer whour

integer wminute

integer wsecond

integer wmilliseconds

end type

type hmac_info from structure

unsignedlong hashalgid

unsignedlong pbinnerstring

unsignedlong cbinnerstring

unsignedlong pbouterstring

unsignedlong cbouterstring

end type

global type nvo_authenticator from nonvisualobject autoinstantiate

end type

type prototypes

Function ulong GetTimeZoneInformation (ref TIME_ZONE_INFORMATION lpTimeZoneInformation) Library "kernel32"

Function boolean TzSpecificLocalTimeToSystemTime(TIME_ZONE_INFORMATION lpTimeZone, SYSTEMTIME lpLocalTime, ref SYSTEMTIME lpUniversalTime) Library "kernel32"

Function String GetBase32Encode(String msg) Library "BaseEncoding.dll" Alias For "GetBase32Encode;Ansi"

Function String GetBase32Decode(String coded) Library "BaseEncoding.dll" Alias For "GetBase32Decode;Ansi"

Function String GetBase64Encode(String msg) Library "BaseEncoding.dll" Alias For "GetBase64Encode;Ansi"

Function String GetBase64Decode(String coded) Library "BaseEncoding.dll" Alias For "GetBase64Decode;Ansi"

Function ulong GetLastError () Library "kernel32.dll"

Function ulong FormatMessage( ulong dwFlags, ulong lpSource, ulong dwMessageId, ulong dwLanguageId, Ref string lpBuffer, ulong nSize, ulong Arguments ) Library "kernel32.dll" Alias For "FormatMessageW"

Function boolean CloseHandle ( long hObject ) Library "kernel32.dll"

Function boolean TzSpecificLocalTimeToSystemTime ( long lpTimeZoneInformation, SYSTEMTIME lpLocalTime, Ref SYSTEMTIME lpUniversalTime ) Library "kernel32.dll"

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

Function boolean CryptBinaryToString ( blob pbBinary, ulong cbBinary, ulong dwFlags, long pszString, Ref ulong pcchString ) Library "crypt32.dll" Alias For "CryptBinaryToStringW"

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 "CryptStringToBinaryW"

Function ulong BCryptCloseAlgorithmProvider ( Ref long hAlgorithm, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptCreateHash ( long hAlgorithm, Ref long phHash, Ref blob pbHashObject, ulong cbHashObject, long pbSecret, ulong cbSecret, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptCreateHash ( long hAlgorithm, Ref long phHash, Ref blob pbHashObject, ulong cbHashObject, blob pbSecret, ulong cbSecret, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptDestroyHash ( Ref long hHash ) Library "bcrypt.dll"

Function ulong BCryptFinishHash ( long hHash, Ref blob pbOutput, ulong cbOutput, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptGenRandom ( long phAlgorithm, Ref long pbBuffer, ulong cbBuffer, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptGetProperty ( long hObject, string pszProperty, Ref long pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptHashData ( long hHash, blob pbInput, ulong cbInput, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptOpenAlgorithmProvider ( Ref long phAlgorithm, string pszAlgId, ulong pszImplementation, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptGenerateSymmetricKey ( long phAlgorithm, Ref long phKey, Ref blob pbKeyObject, ulong cbKeyObject, blob pbSecret, ulong cbSecret, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptDestroyKey ( Ref long hKey ) Library "bcrypt.dll"

Function ulong BCryptEncrypt ( long hKey, blob pbInput, ulong cbInput, long pPaddingInfo, blob pbIV, ulong cbIV, long pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptEncrypt ( long hKey, blob pbInput, ulong cbInput, long pPaddingInfo, blob pbIV, ulong cbIV, Ref blob pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptDecrypt ( long hKey, blob pbInput, ulong cbInput, long pPaddingInfo, blob pbIV, ulong cbIV, long pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"

Function ulong BCryptDecrypt ( long hKey, blob pbInput, ulong cbInput, long pPaddingInfo, blob pbIV, ulong cbIV, Ref blob pbOutput, ulong cbOutput, Ref ulong pcbResult, ulong dwFlags ) Library "bcrypt.dll"

FUNCTION Long CreateBmpFile(string fileName, string text, long errCorLvl, long borderSize, long scale) LIBRARY "QRCodeGenLibrary.dll"

end prototypes

type variables

Private:

// BCrypt Error Codes

Constant ULong STATUS_SUCCESS = 0 // 0x00000000

Constant ULong STATUS_BUFFER_TOO_SMALL = 3221225507 // 0xC0000023

Constant ULong STATUS_INVALID_BUFFER_SIZE = 3221225990 // 0xC0000206

Constant ULong STATUS_INVALID_HANDLE = 3221225480 // 0xC0000008

Constant ULong STATUS_INVALID_PARAMETER = 3221225485 // 0xC000000D

Constant ULong STATUS_NO_MEMORY = 3221225495 // 0xC0000017

Constant ULong STATUS_NOT_FOUND = 3221226021 // 0xC0000225

Constant ULong STATUS_NOT_SUPPORTED = 3221225659 // 0xC00000BB

// Cryptography Primitive Property Identifiers

Constant String BCRYPT_BLOCK_LENGTH = "BlockLength"

Constant String BCRYPT_OBJECT_LENGTH = "ObjectLength"

Constant String BCRYPT_HASH_LENGTH = "HashDigestLength"

Constant ULong BCRYPT_ALG_HANDLE_HMAC = 8

Constant ULong BCRYPT_BLOCK_PADDING = 1

Constant ULong NULL = 0

Constant ULong CRYPT_STRING_BASE64 = 1

Constant ULong CRYPT_STRING_HEXRAW = 12

Constant Ulong CRYPT_STRING_NOCRLF = 1073741824 // 0x40000000

// constants for CreateFile API function

Constant Long INVALID_HANDLE_VALUE = -1

Constant ULong GENERIC_READ = 2147483648

Constant ULong GENERIC_WRITE = 1073741824

Constant ULong FILE_SHARE_READ = 1

Constant ULong FILE_SHARE_WRITE = 2

Constant ULong CREATE_NEW = 1

Constant ULong CREATE_ALWAYS = 2

Constant ULong OPEN_EXISTING = 3

Constant ULong OPEN_ALWAYS = 4

Constant ULong TRUNCATE_EXISTING = 5

long il_hAlg

long il_hRanAlg

long il_hHash

long il_hKey

Public:

// CNG Algorithm Identifiers

// Hashing Algorithms

Constant String BCRYPT_MD2_ALGORITHM = "MD2"

Constant String BCRYPT_MD4_ALGORITHM = "MD4"

Constant String BCRYPT_MD5_ALGORITHM = "MD5"

Constant String BCRYPT_SHA1_ALGORITHM = "SHA1"

Constant String BCRYPT_SHA256_ALGORITHM = "SHA256"

Constant String BCRYPT_SHA384_ALGORITHM = "SHA384"

Constant String BCRYPT_SHA512_ALGORITHM = "SHA512"

// Encryption Algorithms

Constant String BCRYPT_AES_ALGORITHM = "AES"

Constant String BCRYPT_DES_ALGORITHM = "DES"

Constant String BCRYPT_DESX_ALGORITHM = "DESX"

Constant String BCRYPT_RC2_ALGORITHM = "RC2"

Constant String BCRYPT_3DES_ALGORITHM = "3DES"

Constant String BCRYPT_3DES_112_ALGORITHM = "3DES_112"

Constant ULong STATUS_USER_ERROR = 0

// public non-constant instance variables

String LastFunction

String LastErrText

ULong LastErrCode

Encoding iEncoding = EncodingAnsi!

end variables

forward prototypes

public function integer longtobytearray (long al_data, ref byte a_data[])

public function byte bitwiseand (byte a_value1, byte a_value2)

public function long getunixepoch ()

public function integer of_copylongtobytes (long al_long, ref byte a_byte[4])

public function blob of_blob (byte a_byte[])

private subroutine of_finalcleanup ()

public function unsignedlong of_getlasterror (ref string as_msgtext)

private subroutine of_errorcleanup (string as_function)

private function boolean nt_success (unsignedlong ntstatus)

public function blob of_hmac (string as_algorithm, blob ablb_message, blob ablb_secret)

public function long get_qrcode_bitmap (string as_filename, string as_text, long al_errcorlvl, long al_bordersize, long al_scale)

public function long get_qrcode_bitmap (string as_filename, string as_text)

public function string generatepin (string key, boolean ab_keytypebase32)

public function string generatepin (string as_key, long counter, boolean ab_keytypebase32)

public function string generateprovisioningimage (string identifier, string as_key, boolean ab_keytypebase32)

end prototypes

public function integer longtobytearray (long al_data, ref byte a_data[]);//====================================================================

// Function: nvo_authenticator.longtobytearray()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value long al_data

// reference byte a_data[]

//--------------------------------------------------------------------

// Returns: integer

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.longtobytearray ( long al_data, ref byte a_data[] )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

byte l_data[4]

Long l_len = 4

Integer i, j

of_copylongtobytes ( al_data, l_data )

//pad with 4 zeros

For i = 1 To 4

j = UpperBound(a_data) +1

a_data[j] = 0

//Copy over data in inverse order

For i = 4 To 1 Step -1

j = UpperBound (a_data) + 1

a_data[j] = l_data[i]

Return 1

end function

public function byte bitwiseand (byte a_value1, byte a_value2);//====================================================================

// Function: nvo_authenticator.bitwiseand()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value byte a_value1

// value byte a_value2

//--------------------------------------------------------------------

// Returns: byte

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.bitwiseand ( byte a_value1, byte a_value2 )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Integer li_i

Byte lbyte_result, lbyte_factor

lbyte_result = 0

For li_i = 1 To 8

If a_value1 = 0 Or a_value2 = 0 Then Exit

If li_i = 1 Then

lbyte_factor = 1

Else

lbyte_factor *= 2

End If

If Mod(a_value1, 2) = 1 And Mod(a_value2, 2) = 1 Then

lbyte_result += lbyte_factor

End If

a_value1 /= 2

a_value2 /= 2

Return lbyte_result

end function

public function long getunixepoch ();//====================================================================

// Function: nvo_authenticator.getunixepoch()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

//--------------------------------------------------------------------

// Returns: long

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.getunixepoch ( )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Long days

Long seconds

Long epoch

ULong rc1

Boolean rc2

TIME_ZONE_INFORMATION tzi

SYSTEMTIME local

SYSTEMTIME utc

DateTime l_datetime_utc

rc1 = GetTimeZoneInformation(tzi)

//Convert PowerBuilder datetime to SYSTEMTIME

local.wYear = Year(Today())

local.wMonth = Month(Today())

local.wDay = Day(Today())

local.wHour = Hour(Now())

local.wMinute = Minute(Now())

local.wSecond = Second(Now())

local.wMilliseconds = 0

//Get the time in UTC

rc2 = TzSpecificLocalTimeToSystemTime(tzi, local, utc)

//Convert the UTC SYSTEMTIME back to a PowerBuilder datetime

l_datetime_utc = DateTime ( Date ( utc.wYear, utc.wMonth, utc.wDay ), Time ( utc.wHour, utc.wMinute, utc.wSecond ) )

days = DaysAfter ( Date ( '1970/01/01' ), Date ( l_datetime_utc ) )

seconds = SecondsAfter ( Time ( '00:00:00' ), Time ( l_datetime_utc ) )

epoch = ( days * 24 * 60 * 60 ) + seconds

Return epoch

end function

public function integer of_copylongtobytes (long al_long, ref byte a_byte[4]);//====================================================================

// Function: nvo_authenticator.of_copylongtobytes()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value long al_long

// reference byte a_byte[4]

//--------------------------------------------------------------------

// Returns: integer

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.of_copylongtobytes ( long al_long, ref byte a_byte[4] )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Long ll_long

Integer i = 1, j, li_byte[]

ll_long = al_long

Do While Truncate(ll_long / 256, 0) > 0

li_byte[i] = Mod(ll_long, 256)

i++

ll_long = Truncate(ll_long/256, 0)

Loop

li_byte[i] = Mod(ll_long, 256)

For j = 1 To i

a_byte[j] += Byte(String(li_byte[j]))

Return 1

end function

public function blob of_blob (byte a_byte[]);//====================================================================

// Function: nvo_authenticator.of_blob()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value byte a_byte[]

//--------------------------------------------------------------------

// Returns: blob

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.of_blob ( byte a_byte[] )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Integer i

Blob lblb

lblb = Blob ( Space(UpperBound(a_byte)), EncodingUTF8! )

for i = 1 to UpperBound(a_byte)

SetByte(lblb, i, a_byte[i])

Return lblb

end function

private subroutine of_finalcleanup ();//====================================================================

// Function: nvo_authenticator.of_finalcleanup()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

//--------------------------------------------------------------------

// Returns: (none)

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.of_finalcleanup ( )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

If il_hAlg > 0 Then

BCryptCloseAlgorithmProvider(il_hAlg, 0)

End If

If il_hRanAlg > 0 Then

BCryptCloseAlgorithmProvider(il_hRanAlg, 0)

End If

If il_hHash > 0 Then

BCryptDestroyHash(il_hHash)

End If

If il_hKey > 0 Then

BCryptDestroyKey(il_hKey)

End If

end subroutine

public function unsignedlong of_getlasterror (ref string as_msgtext);//====================================================================

// Function: nvo_authenticator.of_getlasterror()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// reference string as_msgtext

//--------------------------------------------------------------------

// Returns: unsignedlong

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.of_getlasterror ( ref string as_msgtext )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Constant ULong FORMAT_MESSAGE_FROM_SYSTEM = 4096

Constant ULong LANG_NEUTRAL = 0

ULong lul_error, lul_Size = 255

lul_error = GetLastError()

as_msgtext = Space(lul_Size)

FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0, lul_error, LANG_NEUTRAL, as_msgtext, lul_Size, 0)

Return lul_error

end function

private subroutine of_errorcleanup (string as_function);//====================================================================

// Function: nvo_authenticator.of_errorcleanup()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value string as_function

//--------------------------------------------------------------------

// Returns: (none)

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.of_errorcleanup ( string as_function )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

LastFunction = as_function

LastErrCode = of_GetLastError(LastErrText)

of_FinalCleanup()

end subroutine

private function boolean nt_success (unsignedlong ntstatus);//====================================================================

// Function: nvo_authenticator.nt_success()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value unsignedlong ntstatus

//--------------------------------------------------------------------

// Returns: boolean

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.nt_success ( unsignedlong ntstatus )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

LastErrCode = NTSTATUS

If NTSTATUS = 0 Then

Return True

Else

Return False

End If

end function

public function blob of_hmac (string as_algorithm, blob ablb_message, blob ablb_secret);//====================================================================

// Function: nvo_authenticator.of_hmac()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value string as_algorithm

// value blob ablb_message

// value blob ablb_secret

//--------------------------------------------------------------------

// Returns: blob

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.of_hmac ( string as_algorithm, blob ablb_message, blob ablb_secret )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Blob lblb_NullReturn, lblb_pbHashObject, lblb_pbHash

Long ll_cbHashObject, ll_cbHash

ULong lul_cbData

SetNull(lblb_NullReturn)

// open an algorithm handle

If Not NT_SUCCESS(BCryptOpenAlgorithmProvider(il_hAlg, &

as_algorithm, Null, &

BCRYPT_ALG_HANDLE_HMAC)) Then

of_ErrorCleanup("BCryptOpenAlgorithmProvider")

Return lblb_NullReturn

End If

// calculate the size of the buffer to hold the hash object

If Not NT_SUCCESS(BCryptGetProperty(il_hAlg, &

BCRYPT_OBJECT_LENGTH, &

ll_cbHashObject, 4, lul_cbData, 0)) Then

of_ErrorCleanup("BCryptGetProperty BCRYPT_OBJECT_LENGTH")

Return lblb_NullReturn

End If

lblb_pbHashObject = Blob(Space(ll_cbHashObject), iEncoding)

// calculate the length of the hash

If Not NT_SUCCESS(BCryptGetProperty(il_hAlg, &

BCRYPT_HASH_LENGTH, &

ll_cbHash, 4, lul_cbData, 0)) Then

of_ErrorCleanup("BCryptGetProperty BCRYPT_HASH_LENGTH")

Return lblb_NullReturn

End If

lblb_pbHash = Blob(Space(ll_cbHash), iEncoding)

// create a hash

If Not NT_SUCCESS(BCryptCreateHash(il_hAlg, &

il_hHash, lblb_pbHashObject, &

ll_cbHashObject, ablb_secret, Len(ablb_secret), 0)) Then

of_ErrorCleanup("BCryptCreateHash")

Return lblb_NullReturn

End If

// hash some data

If Not NT_SUCCESS(BCryptHashData(il_hHash, &

ablb_Message, Len(ablb_Message), 0)) Then

of_ErrorCleanup("BCryptHashData")

Return lblb_NullReturn

End If

// close the hash

If Not NT_SUCCESS(BCryptFinishHash(il_hHash, &

lblb_pbHash, ll_cbHash, 0)) Then

of_ErrorCleanup("BCryptFinishHash")

Return lblb_NullReturn

End If

// final cleanup

of_FinalCleanup()

Return lblb_pbHash

end function

// Options:

// fileName Path and name of the file to be created (C: \ Temp \ qrCode.bmp) (UTF-16 encoding)

// text Text to encode (1-4096) (Limited to 4096 characters) (UTF-16 encoding)

// errCorLvl Error correction level (0-4).

// QR code has a special mechanism to increase the reliability of encrypted information storage.

// For codes created with the highest level of reliability, up to 30% of the surface can be damaged or erased,

// but they will save information and be read correctly.

// Increasing the level helps to increase the reliability of information storage,

// but leads to an increase in the size of the matrix code.

// 0 - Low (Allowable percentage of violations is about 7%)

// 1 - Medium (Allowable percentage of violations is about 15%)

// 2 - Quartile (Allowable percentage of violations is about 25%)

// 3 - High (Allowable percentage of violations is about 30%)

// borderSize Size of the white border around in modules (limited to 0-100)

// scale Unit size in pixels (limited to 1-100)

// Returned value:

// 0 - Successful execution

// 1 - Error fileName, or incorrect path, or error opening file

// 2 - Error text, incorrect length of the encoded text

// 3 - Error errCorLvl, wrong level of error correction

// 4 - Error borderSize, wrong border size

// 5 - Error scale, incorrect module size

// 6 - Error converting the encoding of the encoded text from UTF-16 to UTF-8 (the buffer for UTF-8 is also 4096 characters and it may not be enough)

// 7 - Error receiving QR code

return CreateBmpFile(as_fileName, as_text, al_errCorLvl, al_borderSize, al_scale);

end function

public function long get_qrcode_bitmap (string as_filename, string as_text);

//====================================================================

// Function: nvo_authenticator.get_qrcode_bitmap()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value string as_filename

// value string as_text

//--------------------------------------------------------------------

// Returns: long

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.get_qrcode_bitmap ( string as_filename, string as_text )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Return get_qrcode_bitmap(as_fileName, as_text, 1, 4, 4);

end function

public function string generatepin (string key, boolean ab_keytypebase32);//====================================================================

// Function: nvo_authenticator.generatepin()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value string key

// value boolean ab_keytypebase32

//--------------------------------------------------------------------

// Returns: string

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.generatepin ( string key, boolean ab_keytypebase32 )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Long TotalSeconds, CurrentInterval, IntervalLength = 30

TotalSeconds = getunixepoch()

CurrentInterval = TotalSeconds/IntervalLength

Return generatepin ( Key, CurrentInterval, ab_keytypebase32 )

end function

public function string generatepin (string as_key, long counter, boolean ab_keytypebase32);//====================================================================

// Function: nvo_authenticator.generatepin()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value string as_key

// value long counter

// value boolean ab_keytypebase32

//--------------------------------------------------------------------

// Returns: string

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.generatepin ( string as_key, long counter, boolean ab_keytypebase32 )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

byte hashBytes[], counterBytes[], offset, selectedByte

Blob counterHashBlob, counterBlob, keyBlob

String counterHash, pin

Integer li_count, i, pinLen

Long selectedLong

Long selectedMod

String ls_key

//Convert the counter to byte array and then to blob

longtobytearray ( counter, counterBytes )

counterBlob = of_blob ( counterBytes )

If ab_keytypebase32 Then

ls_key = GetBase32Decode(as_key)

Else

ls_key = as_key

End If

//Convert key to blob and has counter

keyBlob = Blob ( ls_key, EncodingUTF8! )

counterHashBlob = of_hmac("SHA1", counterBlob, keyBlob)

//Convert result back to byte array

Int li_max, li_idx

li_max = Len(counterHashBlob)

For li_idx = 1 To li_max

hashBytes[li_idx] = Byte(BlobMid(counterHashBlob, li_idx, 1))

//Get the last byte

li_count = UpperBound ( hashBytes )

//And use that to determine the offset into the byte array that we'll start with

offset = bitwiseand ( hashBytes[li_count], 15 )

//Calculate the selectedLong value using the selected bytes

For i = 1 To 4

selectedByte = hashBytes[offset + i]

Choose Case i

Case 1

//Strip the most significant bit

selectedByte = bitwiseand ( selectedByte, 127 )

selectedLong = selectedLong + selectedByte * 2^24

Case 2

selectedLong = selectedLong + selectedByte * 2^16

Case 3

selectedLong = selectedLong + selectedByte * 2^8

Case 4

selectedLong = selectedLong + selectedByte

End Choose

selectedMod = Mod ( selectedLong, 1000000 )

pin = String ( selectedMod )

pinLen = Len ( pin )

pin = Fill ( '0', 6 - pinLen ) + pin

Return pin

end function

public function string generateprovisioningimage (string identifier, string as_key, boolean ab_keytypebase32);//====================================================================

// Function: nvo_authenticator.generateprovisioningimage()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value string identifier

// value string as_key

// value boolean ab_keytypebase32

//--------------------------------------------------------------------

// Returns: string

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: nvo_authenticator.generateprovisioningimage ( string identifier, string as_key, boolean ab_keytypebase32 )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Blob lblb_provision_url

String ls_keystring, ls_provision_url

Long ll_retval

String ls_url

String ls_qrcode

If ab_keytypebase32 Then

ls_keystring = as_key

Else

ls_keystring = GetBase32Encode( as_key)

End If

ls_provision_url = 'otpauth://totp/' + identifier + '?secret=' + ls_keystring

lblb_provision_url = Blob ( ls_provision_url, EncodingUTF8! )

ls_url = String(lblb_provision_url, EncodingUTF8!)

ls_qrcode = "qrcodeotp.bmp"

ll_retval = get_qrcode_bitmap(ls_qrcode, ls_url, 1, 5, 5)

If ll_retval = 0 Then

Return ls_qrcode

Else

Return ""

End If

Return ""

end function

on nvo_authenticator.create

call super::create

TriggerEvent( this, "constructor" )

end on

on nvo_authenticator.destroy

TriggerEvent( this, "destructor" )

call super::destroy

end on

uo_otp from userobject

forward
global type uo_otp from userobject
end type
type p_copy from picture within uo_otp
end type
type st_time from statictext within uo_otp
end type
type p_qrcode from picture within uo_otp
end type
type st_appname from statictext within uo_otp
end type
type hpb_process from hprogressbar within uo_otp
end type
type st_account from statictext within uo_otp
end type
type st_pin from statictext within uo_otp
end type
type ov_1 from oval within uo_otp
end type
end forward

global type uo_otp from userobject
integer width = 1221
integer height = 580
long backcolor = 67108864
string text = "none"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
p_copy p_copy
st_time st_time
p_qrcode p_qrcode
st_appname st_appname
hpb_process hpb_process
st_account st_account
st_pin st_pin
ov_1 ov_1
end type
global uo_otp uo_otp

type variables
Private:
String is_key = ""
String is_appname = ""
String is_account = ""
Boolean ib_keytypebase32 = false
uo_timing iuo_timing
end variables

forward prototypes
public subroutine of_start ()
public subroutine of_ini (string as_key, string as_appname, string as_account, boolean ab_keytypebase32)
end prototypes

public subroutine of_start ();//====================================================================
// Function: uo_otp.of_start()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
//--------------------------------------------------------------------
// Returns:  (none)
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: uo_otp.of_start ( )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

Int li_Second
If IsNull(is_key) Or Len(Trim(is_key)) = 0 Then Return
li_Second = Integer(String(Now(), "ss"))
If Mod(li_Second, 30) = 0 Then

String ls_pin
	nvo_authenticator lnv_pin

ls_pin = lnv_pin.generatepin( is_key, ib_keytypebase32 )

st_pin.Text = ls_pin

End If

hpb_process.Position = Mod((60 - li_Second) , 30)
st_time.Text = String(Mod((60 - li_Second) , 30))

end subroutine

public subroutine of_ini (string as_key, string as_appname, string as_account, boolean ab_keytypebase32);//====================================================================
// Function: uo_otp.of_ini()
//--------------------------------------------------------------------
// Description:
//--------------------------------------------------------------------
// Arguments:
// 	value	string 	as_key
// 	value	string 	as_appname
// 	value	string 	as_account
// 	value	boolean	ab_keytypebase32
//--------------------------------------------------------------------
// Returns:  (none)
//--------------------------------------------------------------------
// Author:	PB.BaoGa		Date: 2022/05/30
//--------------------------------------------------------------------
// Usage: uo_otp.of_ini ( string as_key, string as_appname, string as_account, boolean ab_keytypebase32 )
//--------------------------------------------------------------------
//	Copyright (c) PB.BaoGa(TM), All rights reserved.
//--------------------------------------------------------------------
// Modify History:
//
//====================================================================

is_key = as_key
is_appname = as_appname
is_account = as_account
ib_keytypebase32 = ab_keytypebase32

st_appname.Text = "App Name: " + is_appname
st_account.Text = "Account: " + is_account

If Not IsNull(is_account) And Len(Trim(is_account)) > 0 Then
	nvo_authenticator lnv_pin
	st_pin.Text = lnv_pin.generatepin( is_key, ib_keytypebase32 )
End If

end subroutine

on uo_otp.create
this.p_copy=create p_copy
this.st_time=create st_time
this.p_qrcode=create p_qrcode
this.st_appname=create st_appname
this.hpb_process=create hpb_process
this.st_account=create st_account
this.st_pin=create st_pin
this.ov_1=create ov_1
this.Control[]={this.p_copy,&
this.st_time,&
this.p_qrcode,&
this.st_appname,&
this.hpb_process,&
this.st_account,&
this.st_pin,&
this.ov_1}
end on

on uo_otp.destroy
destroy(this.p_copy)
destroy(this.st_time)
destroy(this.p_qrcode)
destroy(this.st_appname)
destroy(this.hpb_process)
destroy(this.st_account)
destroy(this.st_pin)
destroy(this.ov_1)
end on

event constructor;iuo_timing = Create uo_timing
iuo_timing.of_ini( This)
iuo_timing.Start( 1)

end event

event destructor;Destroy iuo_timing

end event

type p_copy from picture within uo_otp
integer x = 809
integer y = 336
integer width = 73
integer height = 72
boolean originalsize = true
string picturename = "copy.bmp"
boolean focusrectangle = false
end type

event clicked;String ls_pin

ls_pin = st_pin.Text
Clipboard (ls_pin)
MessageBox("infor", "Pin Your Copied: "  + ls_pin)
end event

type st_time from statictext within uo_otp
integer x = 1006
integer y = 340
integer width = 137
integer height = 96
integer textsize = -15
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
string text = "30"
alignment alignment = center!
boolean focusrectangle = false
end type

type p_qrcode from picture within uo_otp
integer x = 978
integer y = 20
integer width = 197
integer height = 152
string pointer = "HyperLink!"
string picturename = "qrcode.bmp"
boolean border = true
boolean focusrectangle = false
end type

event clicked;string ls_qrcode, ls_app
nvo_authenticator lnv_pin

ls_app  = is_appname + ':' + is_account
ls_qrcode = lnv_pin.generateprovisioningimage (ls_app, is_key, ib_keytypebase32 )

if FileExists ( ls_qrcode ) then
	OpenWithParm (w_qrcode, ls_qrcode)
end if
end event

type st_appname from statictext within uo_otp
integer x = 32
integer y = 20
integer width = 896
integer height = 124
integer textsize = -15
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "App Name: PMIT"
boolean focusrectangle = false
end type

type hpb_process from hprogressbar within uo_otp
integer x = 32
integer y = 468
integer width = 896
integer height = 68
unsignedinteger maxposition = 30
unsignedinteger position = 1
integer setstep = 1
end type

type st_account from statictext within uo_otp
integer x = 32
integer y = 168
integer width = 896
integer height = 88
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Account: pb.baoga"
boolean focusrectangle = false
end type

type st_pin from statictext within uo_otp
integer x = 32
integer y = 276
integer width = 896
integer height = 172
integer textsize = -28
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "123456"
boolean focusrectangle = false
end type

event clicked;String ls_pin

ls_pin = This.Text
Clipboard (ls_pin)
MessageBox("infor", "Pin Your Copied: "  + ls_pin)

end event

type ov_1 from oval within uo_otp
long linecolor = 33554432
integer linethickness = 4
long fillcolor = 1073741824
integer x = 974
integer y = 304
integer width = 210
integer height = 172
end type

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

forward

global type uo_otp from userobject

end type

type p_copy from picture within uo_otp

end type

type st_time from statictext within uo_otp

end type

type p_qrcode from picture within uo_otp

end type

type st_appname from statictext within uo_otp

end type

type hpb_process from hprogressbar within uo_otp

end type

type st_account from statictext within uo_otp

end type

type st_pin from statictext within uo_otp

end type

type ov_1 from oval within uo_otp

end type

end forward

global type uo_otp from userobject

integer width = 1221

integer height = 580

long backcolor = 67108864

string text = "none"

long tabtextcolor = 33554432

long picturemaskcolor = 536870912

p_copy p_copy

st_time st_time

p_qrcode p_qrcode

st_appname st_appname

hpb_process hpb_process

st_account st_account

st_pin st_pin

ov_1 ov_1

end type

global uo_otp uo_otp

type variables

Private:

String is_key = ""

String is_appname = ""

String is_account = ""

Boolean ib_keytypebase32 = false

uo_timing iuo_timing

end variables

forward prototypes

public subroutine of_start ()

public subroutine of_ini (string as_key, string as_appname, string as_account, boolean ab_keytypebase32)

end prototypes

public subroutine of_start ();//====================================================================

// Function: uo_otp.of_start()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

//--------------------------------------------------------------------

// Returns: (none)

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: uo_otp.of_start ( )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

Int li_Second

If IsNull(is_key) Or Len(Trim(is_key)) = 0 Then Return

li_Second = Integer(String(Now(), "ss"))

If Mod(li_Second, 30) = 0 Then

String ls_pin

nvo_authenticator lnv_pin

ls_pin = lnv_pin.generatepin( is_key, ib_keytypebase32 )

st_pin.Text = ls_pin

End If

hpb_process.Position = Mod((60 - li_Second) , 30)

st_time.Text = String(Mod((60 - li_Second) , 30))

end subroutine

public subroutine of_ini (string as_key, string as_appname, string as_account, boolean ab_keytypebase32);//====================================================================

// Function: uo_otp.of_ini()

//--------------------------------------------------------------------

// Description:

//--------------------------------------------------------------------

// Arguments:

// value string as_key

// value string as_appname

// value string as_account

// value boolean ab_keytypebase32

//--------------------------------------------------------------------

// Returns: (none)

//--------------------------------------------------------------------

// Author: PB.BaoGa Date: 2022/05/30

//--------------------------------------------------------------------

// Usage: uo_otp.of_ini ( string as_key, string as_appname, string as_account, boolean ab_keytypebase32 )

//--------------------------------------------------------------------

// Modify History:

//====================================================================

is_key = as_key

is_appname = as_appname

is_account = as_account

ib_keytypebase32 = ab_keytypebase32

st_appname.Text = "App Name: " + is_appname

st_account.Text = "Account: " + is_account

If Not IsNull(is_account) And Len(Trim(is_account)) > 0 Then

nvo_authenticator lnv_pin

st_pin.Text = lnv_pin.generatepin( is_key, ib_keytypebase32 )

End If

end subroutine

on uo_otp.create

this.p_copy=create p_copy

this.st_time=create st_time

this.p_qrcode=create p_qrcode

this.st_appname=create st_appname

this.hpb_process=create hpb_process

this.st_account=create st_account

this.st_pin=create st_pin

this.ov_1=create ov_1

this.Control[]={this.p_copy,&

this.st_time,&

this.p_qrcode,&

this.st_appname,&

this.hpb_process,&

this.st_account,&

this.st_pin,&

this.ov_1}

end on

on uo_otp.destroy

destroy(this.p_copy)

destroy(this.st_time)

destroy(this.p_qrcode)

destroy(this.st_appname)

destroy(this.hpb_process)

destroy(this.st_account)

destroy(this.st_pin)

destroy(this.ov_1)

end on

event constructor;iuo_timing = Create uo_timing

iuo_timing.of_ini( This)

iuo_timing.Start( 1)

end event

event destructor;Destroy iuo_timing

end event

type p_copy from picture within uo_otp

integer x = 809

integer y = 336

integer width = 73

integer height = 72

boolean originalsize = true

string picturename = "copy.bmp"

boolean focusrectangle = false

end type

event clicked;String ls_pin

ls_pin = st_pin.Text

Clipboard (ls_pin)

MessageBox("infor", "Pin Your Copied: " + ls_pin)

end event

type st_time from statictext within uo_otp

integer x = 1006

integer y = 340

integer width = 137

integer height = 96

integer textsize = -15

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

string text = "30"

alignment alignment = center!

boolean focusrectangle = false

end type

type p_qrcode from picture within uo_otp

integer x = 978

integer y = 20

integer width = 197

integer height = 152

string pointer = "HyperLink!"

string picturename = "qrcode.bmp"

boolean border = true

boolean focusrectangle = false

end type

event clicked;string ls_qrcode, ls_app

nvo_authenticator lnv_pin

ls_app = is_appname + ':' + is_account

ls_qrcode = lnv_pin.generateprovisioningimage (ls_app, is_key, ib_keytypebase32 )

if FileExists ( ls_qrcode ) then

OpenWithParm (w_qrcode, ls_qrcode)

end if

end event

type st_appname from statictext within uo_otp

integer x = 32

integer y = 20

integer width = 896

integer height = 124

integer textsize = -15

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "App Name: PMIT"

boolean focusrectangle = false

end type

type hpb_process from hprogressbar within uo_otp

integer x = 32

integer y = 468

integer width = 896

integer height = 68

unsignedinteger maxposition = 30

unsignedinteger position = 1

integer setstep = 1

end type

type st_account from statictext within uo_otp

integer x = 32

integer y = 168

integer width = 896

integer height = 88

integer textsize = -12

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "Account: pb.baoga"

boolean focusrectangle = false

end type

type st_pin from statictext within uo_otp

integer x = 32

integer y = 276

integer width = 896

integer height = 172

integer textsize = -28

integer weight = 700

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "123456"

boolean focusrectangle = false

end type

event clicked;String ls_pin

ls_pin = This.Text

Clipboard (ls_pin)

MessageBox("infor", "Pin Your Copied: " + ls_pin)

end event

type ov_1 from oval within uo_otp

long linecolor = 33554432

integer linethickness = 4

long fillcolor = 1073741824

integer x = 974

integer y = 304

integer width = 210

integer height = 172

end type

uo_timing from timing

forward

global type uo_timing from timing

end type

end forward

global type uo_timing from timing

end type

global uo_timing uo_timing

type variables

PowerObject ipos

end variables

forward prototypes

public subroutine of_ini (powerobject pos)

end prototypes

public subroutine of_ini (powerobject pos);ipos = pos

end subroutine

on uo_timing.create

call super::create

TriggerEvent( this, "constructor" )

end on

on uo_timing.destroy

TriggerEvent( this, "destructor" )

call super::destroy

end on

event timer;If IsValid(ipos) Then

ipos.Dynamic Function of_start()

End If

end event

w_add from window

forward
global type w_add from window
end type
type cb_delete from commandbutton within w_add
end type
type dw_data from datawindow within w_add
end type
type st_3 from statictext within w_add
end type
type st_2 from statictext within w_add
end type
type st_1 from statictext within w_add
end type
type sle_key from singlelineedit within w_add
end type
type sle_account from singlelineedit within w_add
end type
type sle_appname from singlelineedit within w_add
end type
type cbx_base32 from checkbox within w_add
end type
type cb_update from commandbutton within w_add
end type
type cb_add from commandbutton within w_add
end type
end forward

global type w_add from window
integer width = 2816
integer height = 1644
boolean titlebar = true
string title = "Config"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_delete cb_delete
dw_data dw_data
st_3 st_3
st_2 st_2
st_1 st_1
sle_key sle_key
sle_account sle_account
sle_appname sle_appname
cbx_base32 cbx_base32
cb_update cb_update
cb_add cb_add
end type
global w_add w_add

on w_add.create
this.cb_delete=create cb_delete
this.dw_data=create dw_data
this.st_3=create st_3
this.st_2=create st_2
this.st_1=create st_1
this.sle_key=create sle_key
this.sle_account=create sle_account
this.sle_appname=create sle_appname
this.cbx_base32=create cbx_base32
this.cb_update=create cb_update
this.cb_add=create cb_add
this.Control[]={this.cb_delete,&
this.dw_data,&
this.st_3,&
this.st_2,&
this.st_1,&
this.sle_key,&
this.sle_account,&
this.sle_appname,&
this.cbx_base32,&
this.cb_update,&
this.cb_add}
end on

on w_add.destroy
destroy(this.cb_delete)
destroy(this.dw_data)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.sle_key)
destroy(this.sle_account)
destroy(this.sle_appname)
destroy(this.cbx_base32)
destroy(this.cb_update)
destroy(this.cb_add)
end on

event open;If FileExists( "data.xml") Then
	dw_data.ImportFile( "data.xml")
End If

end event

type cb_delete from commandbutton within w_add
integer x = 750
integer y = 636
integer width = 283
integer height = 112
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Delete"
end type

event clicked;If dw_data.GetRow() > 0 Then
	dw_data.DeleteRow(dw_data.GetRow())
	dw_data.SaveAs("data.xml", XML!, False)
End If

end event

type dw_data from datawindow within w_add
integer x = 50
integer y = 784
integer width = 2702
integer height = 720
integer taborder = 40
string title = "none"
string dataobject = "d_data"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event rowfocuschanged;String ls_appname, ls_account, ls_key, ls_base

ls_appname = This.GetItemString(This.GetRow(), "appname")
ls_account = This.GetItemString(This.GetRow(), "account")
ls_key = This.GetItemString(This.GetRow(), "key")
ls_base = This.GetItemString(This.GetRow(), "base")

sle_appname.Text = ls_appname
sle_account.Text = ls_account
sle_key.Text = ls_key

If ls_base = "1" Then
	cbx_base32.Checked = True
Else
	cbx_base32.Checked = False
End If

end event

event constructor;Long ll_columns,ll_i
String ls_colName
ll_columns = Long(This.Object.DataWindow.Column.Count)

For ll_i = 1 To ll_columns
	ls_colName = This.Describe( "#" + String( ll_i ) + ".Name" )
	This.Modify(ls_colName+".Background.Color='255~t if(Getrow() = currentRow(),11665407,if(mod(getrow(),2 ) =0,rgb(231, 255, 231),rgb(255,255,255)))'")
Next
end event

type st_3 from statictext within w_add
integer x = 73
integer y = 396
integer width = 347
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Key:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2 from statictext within w_add
integer x = 73
integer y = 244
integer width = 347
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Account:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_1 from statictext within w_add
integer x = 73
integer y = 88
integer width = 347
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "App Name:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_key from singlelineedit within w_add
integer x = 443
integer y = 360
integer width = 2149
integer height = 112
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_account from singlelineedit within w_add
integer x = 443
integer y = 216
integer width = 2149
integer height = 112
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_appname from singlelineedit within w_add
integer x = 443
integer y = 68
integer width = 2149
integer height = 112
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cbx_base32 from checkbox within w_add
integer x = 453
integer y = 516
integer width = 690
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Key Base32 Encode"
end type

type cb_update from commandbutton within w_add
integer x = 434
integer y = 636
integer width = 283
integer height = 112
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Update"
end type

event clicked;String ls_appname, ls_account, ls_key, ls_base

ls_appname = sle_appname.Text
ls_account = sle_account.Text
ls_key = sle_key.Text

If cbx_base32.Checked  Then
	ls_base = "1"
Else
	ls_base = "0"
End If

dw_data.SetItem(dw_data.GetRow(), "appname",ls_appname )
dw_data.SetItem(dw_data.GetRow(), "account", ls_account)
dw_data.SetItem(dw_data.GetRow(), "key", ls_key)
dw_data.SetItem(dw_data.GetRow(), "base", ls_base)

dw_data.SaveAs("data.xml", XML!, false)
end event

type cb_add from commandbutton within w_add
integer x = 123
integer y = 632
integer width = 283
integer height = 112
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Add"
end type

event clicked;String ls_appname, ls_account, ls_key, ls_base

ls_appname = sle_appname.Text
ls_account = sle_account.Text
ls_key = sle_key.Text

If cbx_base32.Checked  Then
	ls_base = "1"
Else
	ls_base = "0"
End If

dw_data.ScrollToRow( dw_data.InsertRow(0) )
dw_data.SetItem(dw_data.GetRow(), "appname",ls_appname )
dw_data.SetItem(dw_data.GetRow(), "account", ls_account)
dw_data.SetItem(dw_data.GetRow(), "key", ls_key)
dw_data.SetItem(dw_data.GetRow(), "base", ls_base)

dw_data.SaveAs("data.xml", XML!, false)
end event

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

forward

global type w_add from window

end type

type cb_delete from commandbutton within w_add

end type

type dw_data from datawindow within w_add

end type

type st_3 from statictext within w_add

end type

type st_2 from statictext within w_add

end type

type st_1 from statictext within w_add

end type

type sle_key from singlelineedit within w_add

end type

type sle_account from singlelineedit within w_add

end type

type sle_appname from singlelineedit within w_add

end type

type cbx_base32 from checkbox within w_add

end type

type cb_update from commandbutton within w_add

end type

type cb_add from commandbutton within w_add

end type

end forward

global type w_add from window

integer width = 2816

integer height = 1644

boolean titlebar = true

string title = "Config"

boolean controlmenu = true

windowtype windowtype = response!

long backcolor = 67108864

string icon = "AppIcon!"

boolean center = true

cb_delete cb_delete

dw_data dw_data

st_3 st_3

st_2 st_2

st_1 st_1

sle_key sle_key

sle_account sle_account

sle_appname sle_appname

cbx_base32 cbx_base32

cb_update cb_update

cb_add cb_add

end type

global w_add w_add

on w_add.create

this.cb_delete=create cb_delete

this.dw_data=create dw_data

this.st_3=create st_3

this.st_2=create st_2

this.st_1=create st_1

this.sle_key=create sle_key

this.sle_account=create sle_account

this.sle_appname=create sle_appname

this.cbx_base32=create cbx_base32

this.cb_update=create cb_update

this.cb_add=create cb_add

this.Control[]={this.cb_delete,&

this.dw_data,&

this.st_3,&

this.st_2,&

this.st_1,&

this.sle_key,&

this.sle_account,&

this.sle_appname,&

this.cbx_base32,&

this.cb_update,&

this.cb_add}

end on

on w_add.destroy

destroy(this.cb_delete)

destroy(this.dw_data)

destroy(this.st_3)

destroy(this.st_2)

destroy(this.st_1)

destroy(this.sle_key)

destroy(this.sle_account)

destroy(this.sle_appname)

destroy(this.cbx_base32)

destroy(this.cb_update)

destroy(this.cb_add)

end on

event open;If FileExists( "data.xml") Then

dw_data.ImportFile( "data.xml")

End If

end event

type cb_delete from commandbutton within w_add

integer x = 750

integer y = 636

integer width = 283

integer height = 112

integer taborder = 30

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Delete"

end type

event clicked;If dw_data.GetRow() > 0 Then

dw_data.DeleteRow(dw_data.GetRow())

dw_data.SaveAs("data.xml", XML!, False)

End If

end event

type dw_data from datawindow within w_add

integer x = 50

integer y = 784

integer width = 2702

integer height = 720

integer taborder = 40

string title = "none"

string dataobject = "d_data"

boolean hscrollbar = true

boolean vscrollbar = true

boolean livescroll = true

borderstyle borderstyle = stylelowered!

end type

event rowfocuschanged;String ls_appname, ls_account, ls_key, ls_base

ls_appname = This.GetItemString(This.GetRow(), "appname")

ls_account = This.GetItemString(This.GetRow(), "account")

ls_key = This.GetItemString(This.GetRow(), "key")

ls_base = This.GetItemString(This.GetRow(), "base")

sle_appname.Text = ls_appname

sle_account.Text = ls_account

sle_key.Text = ls_key

If ls_base = "1" Then

cbx_base32.Checked = True

Else

cbx_base32.Checked = False

End If

end event

event constructor;Long ll_columns,ll_i

String ls_colName

ll_columns = Long(This.Object.DataWindow.Column.Count)

For ll_i = 1 To ll_columns

ls_colName = This.Describe( "#" + String( ll_i ) + ".Name" )

This.Modify(ls_colName+".Background.Color='255~t if(Getrow() = currentRow(),11665407,if(mod(getrow(),2 ) =0,rgb(231, 255, 231),rgb(255,255,255)))'")

end event

type st_3 from statictext within w_add

integer x = 73

integer y = 396

integer width = 347

integer height = 64

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "Key:"

alignment alignment = right!

boolean focusrectangle = false

end type

type st_2 from statictext within w_add

integer x = 73

integer y = 244

integer width = 347

integer height = 64

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "Account:"

alignment alignment = right!

boolean focusrectangle = false

end type

type st_1 from statictext within w_add

integer x = 73

integer y = 88

integer width = 347

integer height = 64

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "App Name:"

alignment alignment = right!

boolean focusrectangle = false

end type

type sle_key from singlelineedit within w_add

integer x = 443

integer y = 360

integer width = 2149

integer height = 112

integer taborder = 30

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

borderstyle borderstyle = stylelowered!

end type

type sle_account from singlelineedit within w_add

integer x = 443

integer y = 216

integer width = 2149

integer height = 112

integer taborder = 20

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

borderstyle borderstyle = stylelowered!

end type

type sle_appname from singlelineedit within w_add

integer x = 443

integer y = 68

integer width = 2149

integer height = 112

integer taborder = 10

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

borderstyle borderstyle = stylelowered!

end type

type cbx_base32 from checkbox within w_add

integer x = 453

integer y = 516

integer width = 690

integer height = 80

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "Key Base32 Encode"

end type

type cb_update from commandbutton within w_add

integer x = 434

integer y = 636

integer width = 283

integer height = 112

integer taborder = 20

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Update"

end type

event clicked;String ls_appname, ls_account, ls_key, ls_base

ls_appname = sle_appname.Text

ls_account = sle_account.Text

ls_key = sle_key.Text

If cbx_base32.Checked Then

ls_base = "1"

Else

ls_base = "0"

End If

dw_data.SetItem(dw_data.GetRow(), "appname",ls_appname )

dw_data.SetItem(dw_data.GetRow(), "account", ls_account)

dw_data.SetItem(dw_data.GetRow(), "key", ls_key)

dw_data.SetItem(dw_data.GetRow(), "base", ls_base)

dw_data.SaveAs("data.xml", XML!, false)

end event

type cb_add from commandbutton within w_add

integer x = 123

integer y = 632

integer width = 283

integer height = 112

integer taborder = 10

integer textsize = -10

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Add"

end type

event clicked;String ls_appname, ls_account, ls_key, ls_base

ls_appname = sle_appname.Text

ls_account = sle_account.Text

ls_key = sle_key.Text

If cbx_base32.Checked Then

ls_base = "1"

Else

ls_base = "0"

End If

dw_data.ScrollToRow( dw_data.InsertRow(0) )

dw_data.SetItem(dw_data.GetRow(), "appname",ls_appname )

dw_data.SetItem(dw_data.GetRow(), "account", ls_account)

dw_data.SetItem(dw_data.GetRow(), "key", ls_key)

dw_data.SetItem(dw_data.GetRow(), "base", ls_base)

dw_data.SaveAs("data.xml", XML!, false)

end event

w_qrcode from window

forward

global type w_qrcode from window

end type

type p_qrcode from picture within w_qrcode

end type

end forward

global type w_qrcode from window

integer width = 974

integer height = 948

boolean titlebar = true

string title = "QRCode"

boolean controlmenu = true

windowtype windowtype = response!

long backcolor = 67108864

string icon = "AppIcon!"

boolean center = true

p_qrcode p_qrcode

end type

global w_qrcode w_qrcode

on w_qrcode.create

this.p_qrcode=create p_qrcode

this.Control[]={this.p_qrcode}

end on

on w_qrcode.destroy

destroy(this.p_qrcode)

end on

event open;String ls_StringParm

ls_StringParm = Message.StringParm

If Not IsNull(ls_StringParm) And Len(Trim(ls_StringParm)) > 0 Then

p_qrcode.PictureName = ls_StringParm

End If

end event

type p_qrcode from picture within w_qrcode

integer x = 9

integer width = 946

integer height = 856

boolean originalsize = true

boolean focusrectangle = false

end type

w_main from window

forward
global type w_main from window
end type
type p_add from picture within w_main
end type
end forward

global type w_main from window
integer width = 2633
integer height = 2372
boolean titlebar = true
string title = "OTP Two Factor Authentication ( 2FA )"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
p_add p_add
end type
global w_main w_main

type variables
uo_otp iuo_otp[]
uo_otp iuo_otpnull[]

end variables
forward prototypes
public subroutine of_loadotp ()
end prototypes

public subroutine of_loadotp ();//remove objects
Int li_r
For li_r = 1 To UpperBound (iuo_otp)
	If IsValid( iuo_otp[li_r] ) Then
		This.CloseUserObject ( iuo_otp[li_r] )
	End If
Next

//reset
iuo_otp[] = iuo_otpnull[]

// add otp
If FileExists("data.xml" ) Then
	datastore lds
	lds = Create datastore
	lds.DataObject = "d_data"
	lds.ImportFile( "data.xml")
	If lds.RowCount() > 0 Then
		Int li_row, li_optrow, li_optcolumn
		Long lx, ly
		li_optrow = -1
		For li_row = 1 To lds.RowCount()

iuo_otp[li_row] = Create uo_otp
			String ls_appname, ls_account, ls_key, ls_base
			Boolean lb_keytypebase32
			ls_appname = lds.GetItemString(li_row, "appname")
			ls_account = lds.GetItemString(li_row, "account")
			ls_key = lds.GetItemString(li_row, "key")
			ls_base = lds.GetItemString(li_row, "base")

If ls_base = "1" Then
				lb_keytypebase32 = True
			Else
				lb_keytypebase32 = False
			End If

iuo_otp[li_row].of_ini (ls_key, ls_appname,ls_account, lb_keytypebase32)
			iuo_otp[li_row].Border = True

If Mod(li_row,2) = 0 Then
				li_optcolumn = 1
			Else
				li_optcolumn = 0
				li_optrow += 1
			End If
			lx = li_optcolumn * iuo_otp[li_row].Width  + ((li_optcolumn  + 1 )* 50)
			ly = li_optrow * ( iuo_otp[li_row].Height + 50) + 50

This.OpenUserObject(iuo_otp[li_row], lx, ly)
		Next
	End If
End If

end subroutine

on w_main.create
this.p_add=create p_add
this.Control[]={this.p_add}
end on

on w_main.destroy
destroy(this.p_add)
end on

event resize;p_add.x = this.width - p_add.width - 60
p_add.y = this.height - p_add.height - 140
end event

event open;of_loadotp()
end event

type p_add from picture within w_main
integer x = 2341
integer y = 2076
integer width = 229
integer height = 180
string pointer = "HyperLink!"
string picturename = "add.bmp"
boolean border = true
borderstyle borderstyle = styleraised!
boolean map3dcolors = true
end type

event clicked;Open(w_add)
of_loadotp( )

end event

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

forward

global type w_main from window

end type

type p_add from picture within w_main

end type

end forward

global type w_main from window

integer width = 2633

integer height = 2372

boolean titlebar = true

string title = "OTP Two Factor Authentication ( 2FA )"

boolean controlmenu = true

boolean minbox = true

boolean maxbox = true

long backcolor = 67108864

string icon = "AppIcon!"

boolean center = true

p_add p_add

end type

global w_main w_main

type variables

uo_otp iuo_otp[]

uo_otp iuo_otpnull[]

end variables

forward prototypes

public subroutine of_loadotp ()

end prototypes

public subroutine of_loadotp ();//remove objects

Int li_r

For li_r = 1 To UpperBound (iuo_otp)

If IsValid( iuo_otp[li_r] ) Then

This.CloseUserObject ( iuo_otp[li_r] )

End If

//reset

iuo_otp[] = iuo_otpnull[]

// add otp

If FileExists("data.xml" ) Then

datastore lds

lds = Create datastore

lds.DataObject = "d_data"

lds.ImportFile( "data.xml")

If lds.RowCount() > 0 Then

Int li_row, li_optrow, li_optcolumn

Long lx, ly

li_optrow = -1

For li_row = 1 To lds.RowCount()

iuo_otp[li_row] = Create uo_otp

String ls_appname, ls_account, ls_key, ls_base

Boolean lb_keytypebase32

ls_appname = lds.GetItemString(li_row, "appname")

ls_account = lds.GetItemString(li_row, "account")

ls_key = lds.GetItemString(li_row, "key")

ls_base = lds.GetItemString(li_row, "base")

If ls_base = "1" Then

lb_keytypebase32 = True

Else

lb_keytypebase32 = False

End If

iuo_otp[li_row].of_ini (ls_key, ls_appname,ls_account, lb_keytypebase32)

iuo_otp[li_row].Border = True

If Mod(li_row,2) = 0 Then

li_optcolumn = 1

Else

li_optcolumn = 0

li_optrow += 1

End If

lx = li_optcolumn * iuo_otp[li_row].Width + ((li_optcolumn + 1 )* 50)

ly = li_optrow * ( iuo_otp[li_row].Height + 50) + 50

This.OpenUserObject(iuo_otp[li_row], lx, ly)

End If

end subroutine

on w_main.create

this.p_add=create p_add

this.Control[]={this.p_add}

end on

on w_main.destroy

destroy(this.p_add)

end on

event resize;p_add.x = this.width - p_add.width - 60

p_add.y = this.height - p_add.height - 140

end event

event open;of_loadotp()

end event

type p_add from picture within w_main

integer x = 2341

integer y = 2076

integer width = 229

integer height = 180

string pointer = "HyperLink!"

string picturename = "add.bmp"

boolean border = true

borderstyle borderstyle = styleraised!

boolean map3dcolors = true

end type

event clicked;Open(w_add)

of_loadotp( )

end event

Find Projects On Github click here

Good Luck!

PowerBuilder Tips & Tricks

May 30, 2022

Was this article helpful?

Connection Information

OTP Two Factor Authentication( 2FA ) Using PowerBuilder

My Website Links