Feedback

Sprache: VB

VB

MD5-Hash einer Datei

Nuvolox Software Juni 12, 2012

Sprache: VB Public Function MD5FromFile(ByVal sFile As String) As String Dim MD5 As New MD5CryptoServiceProvider Dim Hash As Byte() Dim Result As String = "" Dim Tmp As String = "" Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192) MD5.ComputeHash(FN) FN.Close() Hash = MD5.Hash For i As Integer = 0 To Hash.Length – 1 […]

VB

Antivirenprogramm ermitteln

Crash129 Dezember 31, 2011

Sprache: VB Function GetAV() Dim objSecurityCenter As Object, colAntiVirus As Object, objFileSystem As Object, CountAV As Integer, info As String = "" objSecurityCenter = GetObject("winmgmts:\localhostrootSecurityCenter2") colAntiVirus = objSecurityCenter.ExecQuery("SELECT * FROM AntiVirusProduct", "WQL", 0) objFileSystem = CreateObject("Scripting.fileSystemObject") CountAV = 0 For Each objAntiVirus In colAntiVirus CountAV = CountAV + 1 If CountAV > 1 Then info […]