Genelde benim gördüğüm editör yazılımcıların çoğu programlarını Themida ile packliyor.
Benim tavsiyem Themida ile packlememeleri yönünde.
Bir kaç packleme aracı paylaşayım dedim tabi içinde Themida var 🙂
Ayrıca 1985 yılında çıkan windows 1.01 denemek isteyenler için 🙂
Genel olarak crack toolslardan korunmak için :
vb.net için crackden korunma yolları :
Başka bir korunma yöntemi :
Benim tavsiyem Themida ile packlememeleri yönünde.
Bir kaç packleme aracı paylaşayım dedim tabi içinde Themida var 🙂
View hidden content is available for registered users!
Ayrıca 1985 yılında çıkan windows 1.01 denemek isteyenler için 🙂
Ziyaretçiler için gizlenmiş link,görmek için
Giriş yap veya üye ol.
Genel olarak crack toolslardan korunmak için :
Kod:
Private Sub Form_Load()
If Dir("c:\program files\numega", vbDirectory) <> "" Then
MsgBox " Hatalı Program Satırı ", vbInformation, " Uyarı "
End
End If
End Sub
Or ;
Crack den korunma yollari
Simdi programimizi yazdik diyelim projemize bir modül ekliyoruz modülün içine asagidaki api tanimlamalarini yapyoruz.
Hepsini Seç
Public Declare Function CreateFileNS Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function WriteFileNO Lib "kernel32" Alias "WriteFile" (ByVal hfile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
'Daha Sonra Bir Public Fonksiyon Yazıyoruz Bu da ;
Public Function SoftICELoaded() As Boolean
Dim hfile As Long, retval As Long
hfile = CreateFileNS("\\.\SICE", GENERIC_WRITE Or GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If hfile <> -1 Then
' SoftICE Bulundu.
retval = CloseHandle(hfile)
SoftICELoaded = True
Else
' SoftICE Bulunamadı.
SoftICELoaded = False
End If
End Function
'Son Olarak Bir Altprogram Kodu Daha Yazacağız
If SoftICELoaded Then 'SoftICE Bulundu Mu ?MsgBox "SoftICE Yüklü Lütfen Kapatın", vbMsgBoxSetForeground + vbInformation, "SoftICE-Detector"
End ' Eğer Bulunduysa Kapat
End If
MsgBox "SoftICE Hafızada Yüklü Değil", vbMsgBoxSetForeground + vbInformation, "SoftICE-Detector"
'Buraya Gitmek İstediğiniz Formu Yazınvb.net için crackden korunma yolları :
Kod:
FileSystemWatcher oluşturarak klasör içindeki dosyaları korumaya alabiliriz
Imports System.IO
Dim koruma As New FileSystemWatcher("C:\izlenecek klasör")
Olayları izlemek için yordamları oluşturalım
AddHandler koruma.Created, AddressOf OnChanged
AddHandler koruma.Changed, AddressOf OnChanged
AddHandler koruma.Deleted, AddressOf OnChanged
AddHandler koruma.Renamed, AddressOf OnRenamed
With koruma
.EnableRaisingEvents = True
.IncludeSubdirectories = True
Belirli olay izlemek için
.WaitForChanged(WatcherChangeTypes.Created Or _
WatcherChangeTypes.Changed Or _
WatcherChangeTypes.Deleted Or _
WatcherChangeTypes.Renamed)
İzlenmesi istenen dosya türleri için,
.Filter = "*.txt"
.NotifyFilter = (NotifyFilters.LastAccess Or _
NotifyFilters.LastWrite Or _
NotifyFilters.FileName Or _
NotifyFilters.DirectoryName)
End With
Public Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
Debug.Fail("File changed: " & e.FullPath & " change type: " & e.ChangeType)
End Sub
Public Sub OnRenamed(ByVal source As Object, ByVal e As RenamedEventArgs)
Debug.Fail("File renamed from: " & e.OldName & " to: " & e.Name)
End SubBaşka bir korunma yöntemi :
Kod:
Public Declare Function CreateFileNS Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function WriteFileNO Lib "kernel32" Alias "WriteFile" (ByVal hfile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
'Daha Sonra Bir Public Fonksiyon Yazıyoruz Bu da ;
Public Function SoftICELoaded() As Boolean
Dim hfile As Long, retval As Long
hfile = CreateFileNS("\\.\SICE", GENERIC_WRITE Or GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If hfile <> -1 Then
' SoftICE Bulundu.
retval = CloseHandle(hfile)
SoftICELoaded = True
Else
' SoftICE Bulunamadı.
SoftICELoaded = False
End If
End Function
'Son Olarak Bir Altprogram Kodu Daha Yazacağız
If SoftICELoaded Then 'SoftICE Bulundu Mu ?MsgBox "SoftICE Yüklü Lütfen Kapatın", vbMsgBoxSetForeground + vbInformation, "SoftICE-Detector"
End ' Eğer Bulunduysa Kapat
End If
MsgBox "SoftICE Hafızada Yüklü Değil", vbMsgBoxSetForeground + vbInformation, "SoftICE-Detector"
'Buraya Gitmek İstediğiniz Formu Yazın