Visual Basic

smarrocco wrote:

houldn’t the descendant forms be inheriting the source code *only*, but not actually running it until the project is compiled and run?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Public Class myForm
    Inherits Form
    WithEvents _tmr As System.Timers.Timer
    Dim _lbDateTime As Label

    Public Sub New()
    End Sub
    Public Sub StartUI()
        _tmr = New System.Timers.Timer
        _tmr.Interval = 2000
        _lbDateTime = New Label
        Controls.Add(_lbDateTime)
        _lbDateTime.Location = New Point(5, 5)
        _lbDateTime.Visible = True
        _lbDateTime.AutoSize = True
        _tmr.Start()
    End Sub
    Private Sub Tick() Handles _tmr.Elapsed
        _tmr.Stop()
        UpdateTimer(Date.Now)
        _tmr.Start()
    End Sub
    Private Sub UpdateTimer(ByVal time As String)
        If _lbDateTime.InvokeRequired Then
            _lbDateTime.Invoke(New Action(Of String)(AddressOf UpdateTimer), time)
        End If
        _lbDateTime.Text = Date.Now
    End Sub
End Class

Public Sub New()

    ' This call is required by the designer.
    InitializeComponent()
    ' Add any initialization after the InitializeComponent() call.
    StartUI()
End Sub

ASCIIEncoding encoder = new ASCIIEncoding();
byte[] xml_byte = encoder.GetBytes(xml_string);
SHA1CryptoServiceProvider sha1_crypto = new SHA1CryptoServiceProvider();
string hash = BitConverter.ToString(sha1_crypto.ComputeHash(xml_byte)).Replace("-", "");
string hashed_content = hash.ToLower();

Dim encoder As ASCIIEncoding = New ASCIIEncoding
Dim xml_bytes() As Byte = encoder.GetBytes(xml_string)
Dim sha1_crypto As SHA1CryptoServiceProvider = New SHA1CryptoServiceProvider
Dim hash As String = BitConverter.ToString(sha1_crypto.ComputeHash(xml_bytes)).Replace("-", "")
Dim hashed_content As String = hash.ToLower

//hmac sha1 hash with key + hash_data
HMAC hmac_sha1 = new HMACSHA1(Encoding.UTF8.GetBytes(key)); //key
byte[] hmac_data = hmac_sha1.ComputeHash(Encoding.UTF8.GetBytes(hash_data)); //data
//base64 encode on hmac_data
string base64_hash = Convert.ToBase64String(hmac_data);

'Compute the HMAC and convert to a base64 hash
Dim m_hmac_sha1 As New HMACSHA1(Encoding.UTF8.GetBytes(m_key))
Dim m_hmac_data() As Byte = m_hmac_sha1.ComputeHash(Encoding.UTF8.GetBytes(m_hashData))
Dim m_base64_hash As String = Convert.ToBase64String(m_hmac_data)

'Build and assign values to hashing and header variables
Dim m_method As String = "POST"
Dim m_type As String = "application/xml"
Dim m_time As String = DateTime.UtcNow.ToString("yyyy-MM-ddTHH:mm:ssZ")
Dim m_hashData As String = m_method & "\n" & m_type & "\n" & hashed_content & "\n" & m_time & "\n" + m_transmit_Uri

'Build and assign values to hashing and header variables
Dim m_method As String = "POST"
Dim m_type As String = "application/xml"
Dim m_time As String = DateTime.UtcNow.ToString("yyyy-MM-ddTHH:mm:ssZ")
Dim m_hashData As String = m_method & vbLf & m_type & vbLf & hashed_content & vbLf & m_time & vbLf & m_transmit_Uri

Member 11180306 wrote:

i am stuck at this code:

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]