[英]vb.net hex scan from xml file
我正在嘗試一些十六進制掃描儀源。
以下代碼有效,但速度很慢:
Public Class frmMain
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadFile.Click
Dim ArrayHold() As Byte
Dim Index As Integer = 0
Dim Str As New StringBuilder
Dim tStr As String = ""
Dim tempStr As String = ""
Dim IndexEnd As Integer = 0
Dim InputString As String = ""
OpenDia.Filter = "All Files|*.*"
If OpenDia.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim myStreamReader As StreamReader = Nothing
myStreamReader = File.OpenText(OpenDia.FileName)
InputString = myStreamReader.ReadToEnd()
ArrayHold = Encoding.Default.GetBytes(InputString)
Do
IndexEnd = Index + 9
For x As Integer = Index To IndexEnd
If x > UBound(ArrayHold) Then
tempStr = tempStr
Else
tStr = UCase(Convert.ToString(ArrayHold(x), 16))
If tStr.Length < 2 Then tStr = "0" & tStr
Str.Append(tStr)
tempStr = tempStr & Chr(ArrayHold(x))
End If
Next
Index = Index + 10
Loop While IndexEnd < UBound(ArrayHold)
If InStr(1, Str.ToString, "58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441", vbTextCompare) Then
Label1.Text = "Eicar-test-signature virus Detected!"
End If
End If
End Sub
End Class
為了加快速度,我可以在XML文件中使用這種格式:
?xml version="1.0"?>
<signatures>
<signature>
<name>Eicar-Test-Signature</name>
<hex>58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441</hex>
</signature>
<signature>
<name>Mid/Kakworm-Z</name>
<hex>66732e4372656174655465787446696c652877642b276b616b2e72656727293b74322e77726974652827524547454449</hex>
</signature>
</signatures>
但我不知道如何在VB.NET中閱讀和實現XML文件。 這很難,任何人都可以幫忙嗎?
好的,這是一個如何讀取XML文件的示例:
Dim xml = <?xml version="1.0"?>
<signatures>
<signature>
<name>Eicar-Test-Signature</name>
<hex>58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441</hex>
</signature>
<signature>
<name>Mid/Kakworm-Z</name>
<hex>66732e4372656174655465787446696c652877642b276b616b2e72656727293b74322e77726974652827524547454449</hex>
</signature>
</signatures>
Dim dict As New Dictionary(Of String, String)
For Each signature As XElement In xml.Root.Elements
dict.Add(signature.<name>.Value, signature.<hex>.Value)
Next
您可能正在使用XDocument.Load
或XDocument.Parse
,而不是在代碼中嵌入XML(如上例所示)。
Neolisk很好地介紹了LINQ to XML部分。 這是一種使用Step簡化循環到單個For循環的方法。 此外,它在Using
塊中使用StreamReader
,這將確保StreamReader
被正確關閉和處理。
If OpenDia.ShowDialog = Windows.Forms.DialogResult.OK Then
Using myStreamReader As StreamReader = File.OpenText(openDia.FileName)
ArrayHold = Encoding.Default.GetBytes(myStreamReader.ReadToEnd())
End Using
Dim arrayLength As Integer = ArrayHold.Length - 1
For i As Integer = 0 To arrayLength Step 10
Str.Append(UCase(Convert.ToString(ArrayHold(i), 16).PadLeft(2, "0"c)))
Next
If dict.ContainsKey(Str.ToString()) Then
Label1.Text = dict(str.ToString())
End If
End If
這使用StringBuilder
而沒有額外的字符串,並且應該稍微提升性能,雖然我打賭你最大的打擊是循環通過你一次構建一個字符的字符串,檢查每個字符。
編輯
添加了用於檢查字典的代碼(基於Neolisk將XML解析為字典的答案)以獲得完整性。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.