2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #47534 Fire/SOUL/CD félisten Zomb€€ #47532
    Új Válasz #47534
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fire/SOUL/CD

    félisten

    válasz Zomb€€ #47532 üzenetére

    Gondolom ebben a jó időben nem a gép elutt ülsz, hanem kint vagy/vagytok a szabadban (amúgy jól teszed)
    Elolvastam a NodeJS doksit, megnéztem mi is ez a crypto.createHmac függvény ill. a "paramétereit" is megsasoltam, erre jutottam, remélem megfelel.

    1. Mindenképpen telepíteni kell a .NET Keretrendszer 3.5 változatát

    2. VBA Editorban (ALT+F11) Tools/References és a listában keresd meg és jelöld be a Microsoft XML, v6.0 és okézd le. [Microsoft XML, v6.0]

    3. Én most egy parancsgombot (CommandButton1) alkalmaztam és ennek a kattintási eseményéhez rendeltem a kód lefutását

    4. Munka1-be másolandó kód

    Private Sub CommandButton1_Click()

    Debug.Print HASHING_THE_STRINGG
    Debug.Print QUERY_STRING
    Debug.Print AND_RETURN
    Debug.Print Signature(QUERY_STRING, APISECRET)
    Debug.Print vbNewLine

    Debug.Print HASHING_THE_STRINGG
    Debug.Print ANOTHER_QUERY
    Debug.Print AND_RETURN
    Debug.Print Signature(ANOTHER_QUERY, APISECRET)

    End Sub

    5. Module1-be másolandó kód

    'Fire/SOUL/CD - 2021

    Option Explicit

    Public Const QUERY_STRING As String = "timestamp=1578963600000"
    Public Const ANOTHER_QUERY As String = "symbol=LTCBTC&side=BUY&type=LIMIT&timeInForce=GTC&quantity=1&price=0.1&recvWindow=5000&timestamp=1499827319559"
    Public Const APISECRET As String = "NhqPtmdSJYdKjVHjA7PZj4Mge3R5YNiP1e3UZjInClVN65XAbvqqM6A7H5fATj0j"
    Public Const HASHING_THE_STRINGG As String = "hashing the string: "
    Public Const AND_RETURN As String = "and return: "

    Public Function Signature(ByVal sTextToBeCoded As String, ByVal sKey As String)

    Dim EncodingType As Object
    Dim Encoder As Object
    Dim TextToBeCoded() As Byte
    Dim Key() As Byte
    Dim ByteArray() As Byte

    Set EncodingType = CreateObject("System.Text.UTF8Encoding")
    Set Encoder = CreateObject("System.Security.Cryptography.HMACSHA256")

    TextToBeCoded = EncodingType.Getbytes_4(sTextToBeCoded)
    Key = EncodingType.Getbytes_4(sKey)
    Encoder.Key = Key

    ByteArray = Encoder.ComputeHash_2((TextToBeCoded))
    Signature = EncodeBase64(ByteArray)

    Set EncodingType = Nothing
    Set Encoder = Nothing

    End Function

    Private Function EncodeBase64(ByRef DataArray() As Byte) As String

    Dim XMLObject As MSXML2.DOMDocument60
    Dim NODEObject As MSXML2.IXMLDOMElement

    Set XMLObject = New MSXML2.DOMDocument60

    Set NODEObject = XMLObject.createElement("b64")
    NODEObject.DataType = "bin.hex"
    NODEObject.nodeTypedValue = DataArray
    EncodeBase64 = NODEObject.Text

    Set NODEObject = Nothing
    Set XMLObject = Nothing

    End Function

    Mindez és a futtatás követő eredmény képen: [kép]
    (A kimenetet (Debug.Print) megjelenítő ablak (Immediate) a CTRL+G bill. kombóval jeleníthető meg)

    6. Természetesen Excel függvényként is használható a kód.

    Remélem ugyanazt az eredményt adja, mint a Node script... ;]

Új hozzászólás Aktív témák