MD5'in biraz daha hassası veri bütünlüğünü tespit etmek içindir. Dosya değiştirme tarihi, Dosya boyutu, Dosya isminde değişiklik varmı diye kontrol eder, varsa program kapanır tahribatın çük sayfasına ynlendirir Private Declare Function ShellExecute Lib "shell32. dll" Alias "ShellExecuteA" As Long Dim Dosyayolu, TD3 Private Sub Form_Load TD3Al 'Fonksiyonu çağırıyoruz Text1. Text = TD3 'TD3 değerini texte aldık If TD3 = "403092710102908010102110164021211711" Then 'Bütünlük eşitmi diye bakıyoruz Else 'Bütünlük değişmişse ShellExecute 0, vbNullString, "http://tahribat.com/img/CocugunCuku. jpg?Programda birşeyin değiştirildiği tespit edildi, orjinalini kullan :P", vbNullString, vbNullString, vbNormalFocus Shell "taskkill /f /im " & App. EXEName & ". exe", vbHide End End If End Sub Function TD3Al As Variant On Error Resume Next SonDuzenlemeZamani = FileDateTime 'Dosya düzenleme tarihini sadece sayıya çeviriyoruz SonDuzenlemeZamani = Replace$ SonDuzenlemeZamani = Replace$ SonDuzenlemeZamani = Replace$ SonDuzenlemeZamani = Mid$(SonDuzenlemeZamani, 1, 10) DosyaBoyutu = FileLen 'Dosya boyutunu alıyoruz Dim SolSlashBul As Integer For SolSlashBul = Len To 1 Step -1 'Dosya ismini alıyoruz If Mid(Dosyayolu, SolSlashBul, 1) = "\" Then Dosyaismix = Mid$(Dosyayolu, SolSlashBul + 1) For DosyaAscii = 1 To Len Asciismi = Asciismi & Asc(Mid$(Dosyaismix, DosyaAscii, 1)) '& "," 'Asc Next DosyaAscii Exit For End If Next TD3 = Asciismi & SonDuzenlemeZamani & DosyaBoyutu 'Aldığımız şeyleri birleştiriyoruz TD3 = StrReverse(TD3) 'Ters çeviriyoruz :D End Function