Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub CALCULATE()
Dim i, NOT_ANSWER
NOT_ANSWER = "NOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOT"
For i = 1 To 16777216
answer = func1(answer)
Next i
Hoja1.NOT_ANSWER.Text = "EKO{" + Replace(answer, "=", "") + "}"
End Sub


Public Function func1(ByVal sTextToHash As String)
Dim obj1 As Object, obj2 As Object
Dim TextToHash() As Byte
Set obj1 = CreateObject("System.Text.UTF8Encoding")
Set obj2 = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider")
TextToHash = obj1.Getbytes_4(sTextToHash)
Dim bytes() As Byte
bytes = obj2.ComputeHash_2((TextToHash))
func1 = func2(bytes)
Set obj1 = Nothing
Set obj2 = Nothing
End Function


Private Function func2(ByRef arrData() As Byte) As String
Dim var1
Dim var2
Set var1 = CreateObject("MSXML2.DOMDocument")
Set var2 = var1.createElement("b64")
var2.DataType = "bin.base64"
var2.nodeTypedValue = arrData
func2 = var2.Text
Set var2 = Nothing
Set var1 = Nothing
End Function