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 ekleyn
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
:
be8929718b85a7e6b44276f15ea9d21e
dde1e5293057da7187c79a27bfcbbbda
5b7ed37e6b4d3a392b1bdc373d609ea4
68f6666296a3fa9260bc88c1b32fa3ba
e9e9d9828194489bfd2f0811924cd1d2
49b10c33b45e929980ac7e23c27592bf
b925c16fff555fd90898ba71c81cd3cf
53d00a5c2a8867528a93a1cf307862b1
80ff6d8eb8e7d12481c737af2b0a2638
0xf0757e2587b6eb2845fdeb1a2eba6599
0x426a5ce4f7c5f2bc010b85fa2ea946db
0xc8582021b1a85b214b0c031f58bc827a
0xd84df9d063eb5b385ed04a4865dba81c
0x9800aae15fecd97b2cd226d4bf543dcd
0x969bd50272ba51ba75ea2f1396da22f8
516786832092BFB034FFCB962982FBA3
D317E7DD33B595178C6C10A0D8A29B39
AAE3AACF0E1EF355E4B6D6B898802426
3AA5A9FDA141DA4D57C5FC1FA50BE05F
7C59E9B8577E28495C5267BD6A5FDE78
2DF61B5950936F0D75C9B32DB7C94138
80022337E66E4A202BF6C477E7DCD29B
6AFA6BD96E72BB4EE962C54E8D8A2E48
E3EB1BC389C79CCB6D1A408B5BE02BB9
D186263A4D840B43502EAF7B98B2DBC1
5DBE0989A6FBFE1F027ACD43648A5331
C37B6DE7B9AD3450F0FF6847C8CE9D9F
5568F6A927C0A0FC8370B1DEC10ABB5E
385643433E0B7901B4B1CC0B55C6F63B
6B992DC3F8AF7E77234C0FF95A468E93
4D859835B3D840246CFECDCF03E7A962
F2DADCD5150732EC6907616D48E948C9
7759C088224263B3D3DE2FD054DD51F5
B5ECC9FE9E11077FBA1E85E77D69D2DB
F90F15E091FEA25CD2D8E22FFAD459AA
58F0C8485CF8163AAAD48F142120A152
F1831F9346E8C16E0AFF0266410091CD
8FB1336F36BBA45019B4DEAFD789BA3B
35DFCBE2DBEC1B6FFF8B4F21A9CC090F
BFEEDA1602FDA8D633FB1DD0DD61F9BC
F1FF9145669F1699971D5EBD98B3E7E0
C9480AF5065D02E92CC132BF25721BD6
ve arkadaşlar bunları elde etmek icin viruslerin md5 lerini bulacaksınız.
ama bununda kolay yolu var.
şu sitede *** hazır başkaları tarafından cıkarılmış kaliteli - kalitesiz md5 ler var.
bu siteye her saat başı binlerce hash kodu giriliyor.takip edersiniz veya virusleri
tek tek pc nize indirip md5 lerini almanız lazım ki buda hem guvensiz hemde uğraştırıcı.(tum antivirusler md5 lerle calışır.yani sizin hazırlayacağınız onların bir benzeri ama el yapımı buna değer .)
***:http://www.md5decrypter.co.uk
Bir Teşekkuru Cok Gormeyin
+rep verirseniz sevinirim
İyi gunler- akşamlar
by naangdoo
__________________