işte size antivirus daha doğrusu program tarama kodları
cok nadir bir teşekkuru cok gormeyeceğinizi duşunuyorum
nse işte gerekli kodlar
2 Button
3 TextBox
1 label
2.textbox u = txthash
3. sunu = txthashes
label in adını ise "lblstatus" yapın
şeklinde adlarını değiştirip forumun diğer ucuna saklayalım
daha sonra programın başlangıc pozisyonuna "Virus hash" şeklinde bir dosya acıp icine "Virus hash" isimle bir textbox yapın(viruslerin hashlerini buraya kaydetceksiniz)
bu kodu Public class form1 in yani forumun en ustune ekleyin
PHP Code:
Imports System
Imports System.IO.FileStream
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
PHP Code:
Public Sub New()
' Yapımcı : Hommerhart,aLcohoL_95,straxxxD
AddHandler MyBase.Load, New EventHandler(AddressOf Me.MD5VirMain_Load)
Form1.__ENCList.Add(New WeakReference(Me))
Dim provider As New MD5CryptoServiceProvider
Dim inputstream As New FileStream((Application.StartupPath & "Virus hashVirus hash.txt"), FileMode.Open, FileAccess.Read, FileShare.Read, &H2000)
Dim Builder As New StringBuilder
Me.InitializeComponent()
Dim dialog As New OpenFileDialog
End Sub
bu kodun altına bunu ekleyin
Button2 yani taranacak dosyayı acma buttonu
PHP Code:
Dim dialog As New OpenFileDialog
dialog.Title = "Taranacak dosyayı secin"
dialog.CheckFileExists = True
dialog.CheckPathExists = True
dialog.ShowDialog()
TextBox1.Text = dialog.FileName
If TextBox1.Text = "" Then
Button1.Enabled = False
Else
Button1.Enabled = True
End If
Button1 yani tarama kodu
PHP Code:
If (Me.TextBox1.Text = "") Then
Interaction.MsgBox("Taranacak dosya eklenmedi -.-", MsgBoxStyle.Exclamation, "...")
ElseIf File.Exists(Me.TextBox1.Text) Then
Dim provider As New MD5CryptoServiceProvider
Dim inputStream As New FileStream(Me.TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read, &H2000)
provider.ComputeHash(inputStream)
Dim hash As Byte() = provider.Hash
Dim builder As New StringBuilder
Dim num As Byte
For Each num In hash
builder.Append(String.Format("", num))
Next
Me.txthash.Text = builder.ToString
End If
If Me.txthashes.Text.Contains(Me.txthash.Text) Then
Me.lblstatus.Text = "tehlikeli dosya!"
MsgBox("tehlikeli dosya", , "tehlikeli dosya")
Else
Me.lblstatus.Text = "dosyada virus bulunmadı"
MsgBox("guvenli dosya", , "guvenli dosya")
End If
bir kac virus hash codu sizin icin
PHP Code:
be8929718b85a7e6b44276f15ea9d21e
dde1e5293057da7187c79a27bfcbbbda
5b7ed37e6b4d3a392b1bdc373d609ea4
68f6666296a3fa9260bc88c1b32fa3ba
e9e9d9828194489bfd2f0811924cd1d2
49b10c33b45e929980ac7e23c27592bf
b925c16fff555fd90898ba71c81cd3cf
53d00a5c2a8867528a93a1cf307862b1
80ff6d8eb8e7d12481c737af2b0a2638
0xf0757e2587b6eb2845fdeb1a2eba6599
0x426a5ce4f7c5f2bc010b85fa2ea946db
0xc8582021b1a85b214b0c031f58bc827a
0xd84df9d063eb5b385ed04a4865dba81c
0x9800aae15fecd97b2cd226d4bf543dcd
0x969bd50272ba51ba75ea2f1396da22f8
Tum hash kodları veremiyorum kusura bakmayın
__________________