Paczki, malware, złośliwe pliki, linki itp.
tachion napisał(a):i za chwile z mamutuTongue

[Aby zobaczyć linki, zarejestruj się tutaj]



Dzięki Tongue
Avast! Internet Security 6 + Emsisoft Mamutu 3 + Hitman Pro 3.5 (On-Demand)

[Aby zobaczyć linki, zarejestruj się tutaj]

Odpowiedz
mamutu jak na program tego typu w tym teście nie spisał się kolorowo i nie piszcie że to i tak dobry wynik albo że tylko w tym teście bo odnoszę się tylko i wyłącznie do filmikuTongue
Odpowiedz
Sophos Endpoint Security - 66/121 | 54,5%
This is a War, And We Are Soldiers !
Odpowiedz
403 malware z dn. 16-17.07.2011 i linki:

Treść widoczna jedynie dla zarejestrowanych użytkowników
KIS/EIS/MKS, MBAM, HitmanPro, Eset Online, WF+uBlock
Odpowiedz
CIS 2011 - 335/403 (83,1%)

CIS 2011 + MBAM PRO - 375/403 (93,1%)
Odpowiedz
IKARUS virus.utilities:
384/403 (95,3%)

Dla porównania Emsisoft:
382/403 (94,8%)
Avast! Internet Security v8.0.1482
Odpowiedz
KIS 2012- 363/403 (90,0%)
••• KASPERSKY Internet Security 2018  | ZEMANA AntiMalware 2 •••
Odpowiedz
Lock Em All:

Treść widoczna jedynie dla zarejestrowanych użytkowników

Treść widoczna jedynie dla zarejestrowanych użytkowników

Treść widoczna jedynie dla zarejestrowanych użytkowników

Fałszywy skaner

Treść widoczna jedynie dla zarejestrowanych użytkowników

Trojan Gozi

Treść widoczna jedynie dla zarejestrowanych użytkowników

Trojan Sinowal

Treść widoczna jedynie dla zarejestrowanych użytkowników

VERY DANGER

Treść widoczna jedynie dla zarejestrowanych użytkowników

Treść widoczna jedynie dla zarejestrowanych użytkowników
Avast! Internet Security 6 + Emsisoft Mamutu 3 + Hitman Pro 3.5 (On-Demand)

[Aby zobaczyć linki, zarejestruj się tutaj]

Odpowiedz
Symantec Endpoint Protection 12
1 nie wykrywa ale to nic groźnego

[Aby zobaczyć linki, zarejestruj się tutaj]

2 blokuje Download Insight
3 blokuje Download Insight
4 nie działa
5 nie działa
6zablokowano atak Web Attack: Blackhole Toolkit Activity 3.
7 na stronie jest jakiś plik po uruchomieniu blokuje Download Insight
8 wykrywa viruta
Odpowiedz
Avast! wykrywa tylko 6 i 7 :p
MacBook Pro 13" Retina Mid 2014
Odpowiedz
Pewnie swiezynki. Mateusz, od razu wyslij do laboratorium.
Odpowiedz
Ja nie wysyłam, za leniwy jestem Tongue
MacBook Pro 13" Retina Mid 2014
Odpowiedz
Toć to kilka sekund, a wspomagasz rozwój sygnatur i w ostateczności programu Smile
Tak niewiele, a tak wiele Grin
Odpowiedz
mateusxzz napisał(a):Avast! wykrywa tylko 6 i 7 :p


no Avast cieniutko jakoś - ciekawe jak KISTongue
Odpowiedz
SiteInspector

1.

[Aby zobaczyć linki, zarejestruj się tutaj]

2.

[Aby zobaczyć linki, zarejestruj się tutaj]

3.

[Aby zobaczyć linki, zarejestruj się tutaj]

4.

[Aby zobaczyć linki, zarejestruj się tutaj]

(redirect loop error)
5.

[Aby zobaczyć linki, zarejestruj się tutaj]

6.

[Aby zobaczyć linki, zarejestruj się tutaj]

7.

[Aby zobaczyć linki, zarejestruj się tutaj]

8.

[Aby zobaczyć linki, zarejestruj się tutaj]


Nie wykrył tylko jedynki, bo to świeżynka jestTongue

[Aby zobaczyć linki, zarejestruj się tutaj]

Odpowiedz
Wirusik VBS Script

Do notatika wklejcie

Kod:
'' booyaakaa.vbs

On Error Resume Next
Dim fso, fldr, f1, F, shell, DeskPath, MyDocPath, RecentPath,FavoritePath, text1, text2, text3, text4, text5, text6, CurrentFolder, objNet, limit

Set fso = CreateObject("Scripting.FileSystemObject")
set shell = CreateObject("WScript.Shell")
Set objNet = WScript.CreateObject( "WScript.Network" )

DeskPath = shell.SpecialFolders("Desktop")
MyDocPath = shell.SpecialFolders("MyDocuments")
RecentPath = shell.SpecialFolders("Recent")
FavoritePath = shell.SpecialFolders("Favorites")

If (fso.FolderExists(DeskPath & "\booyaakaa!")) Then
    Else fldr = fso.CreateFolder(DeskPath & "\booyaakaa!")
End If

''copying the files
''-----------------------------------------------------------------------------------------------------------------------------
Set CurrentFolder = fso.GetFolder(fldr)
count = 0
limit = 5

If (MyDocPath) Then
    CopyFiles MyDocPath, "doc"
    if (count < limit) Then CopyFiles MyDocPath, "xls" End If
    if (count < limit) Then CopyFiles MyDocPath, "pdf" End If
    if (count < limit) Then CopyFiles MyDocPath, "ppt" End If
End If

If (DeskPath and count < limit) Then
    CopyFiles DeskPath, "doc"
    if (count < limit) Then CopyFiles DeskPath, "xls" End If
    if (count < limit) Then CopyFiles DeskPath, "pdf" End If
    if (count < limit) Then CopyFiles DeskPath, "ppt" End If
End If

If (FavoritePath and count < limit) Then
    CopyFiles FavoritePath, "url"
    if (count < limit) Then CopyFiles FavoritePath, "com" End If
End If


''Creating and writing the text file
''---------------------------------------------------------------------------------------------------------------------------
Set f1 = fso.CreateTextFile( DeskPath & "\booyaakaa!\Demo.txt", True)

f1.WriteLine("Here is some sensitive information about your PC:")
f1.WriteLine("Username: " & objNet.UserName)
f1.WriteLine("Domain: " & objNet.UserDomain)
f1.WriteBlankLines(2)
f1.WriteLine("This has been a harmless demonstration.....")
f1.WriteBlankLines(2)
f1.WriteLine("A new folder has been created on your Windows Desktop directory named ''booyaakaa!'' and several of your files were copied to this folder. You may delete this folder safely (the files are copies only and the originals have not been moved).")
f1.WriteBlankLines(2)
f1.WriteBlankLines(1)
f1.WriteLine("booyaakaa")
f1.close()
''----------------------------------------------------------------------------------------------------------------------------

shell.Run "explorer.exe " &DeskPath &"\booyaakaa!"
shell.Run "notepad.exe " &DeskPath &"\booyaakaa!\Demo.txt"

''functions
''----------------------------------------------------------------------------------------------------------------------------

Sub CopyFiles (source, FileExtension)
    Dim f, f1, fc, s

    Set f = fso.GetFolder(source)
    
    If (count >= limit) Then
        Exit Sub
    End If    

    count = count + NumFiles(f, FileExtension)
    If (NumFiles(f, FileExtension)>0) Then
        fso.CopyFile source & "\*." & FileExtension , DeskPath & "\booyaakaa!"
    End If

    Set fc = f.SubFolders
    For Each f1 in fc
        CopyFiles f1.path, FileExtension
        If (count = limit) Then
            Exit For
        End If
    Next
    
End Sub


Function NumFiles(CurrentFolder, FileExtension)
    counter = 0
    Set i = CurrentFolder.Files
    For Each f2 in i
        If (fso.GetExtensionName(f2) = FileExtension) Then
            counter = counter + 1
        End if
    Next
    NumFiles = counter
End Function


zapiszcie jako nazwa.vbs
Avast! Internet Security 6 + Emsisoft Mamutu 3 + Hitman Pro 3.5 (On-Demand)

[Aby zobaczyć linki, zarejestruj się tutaj]

Odpowiedz
SEP 12.1 wykrywa

[Aby zobaczyć linki, zarejestruj się tutaj]

Odpowiedz
Aczkolwiek nic szkodliwego ten plik nie robi.

[Aby zobaczyć linki, zarejestruj się tutaj]

Odpowiedz
morphiusz napisał(a):Aczkolwiek nic szkodliwego ten plik nie robi.


A tego już to ja nie wiem Tongue
Avast! Internet Security 6 + Emsisoft Mamutu 3 + Hitman Pro 3.5 (On-Demand)

[Aby zobaczyć linki, zarejestruj się tutaj]

Odpowiedz
Wyświetla tekst w notatniku z nazwą użytkownika i domeny informując, że to nieszkodliwy test.
Robi też folder kopiując Twoje polecane strony z IE.

[Aby zobaczyć linki, zarejestruj się tutaj]

Odpowiedz


Skocz do:


Użytkownicy przeglądający ten wątek: 103 gości