Bitmiş Projeleri Packlemek için Gerekli Programlar.

R Çevrimdışı

RedkiT

Kayıtlı Üye
27 Mayıs 2012
494
9
18
33
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 :)



Gizli içerik
Bu içeriği görmek için cevap yazmalısınız.


Laj8A1.jpg




Ayrıca 1985 yılında çıkan windows 1.01 denemek isteyenler için :)



pcjs.org | /devices/pc/machine/5160/cga/256kb/win101/



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ın





vb.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 Sub



Baş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
 
A Çevrimdışı

ArdaOkuk

Kayıtlı Üye
13 Nisan 2012
392
0
16
28
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



Teşekkürler. Themida önermemenin sebebi nedir Visual Studio 2013 de yazılan bir projeyi korumak için ne gibi yöntemlerden geçilmeli veya hangi program kullanılmalı.
 
R Çevrimdışı

RedkiT

Kayıtlı Üye
27 Mayıs 2012
494
9
18
33
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



Teşekkürler. Themida önermemenin sebebi nedir Visual Studio 2013 de yazılan bir projeyi korumak için ne gibi yöntemlerden geçilmeli veya hangi program kullanılmalı.



Themedia ile packlediğin zaman çok çabuk unpack edilebiliyor.



unpack li exeyide çeşitli programlarla sourceleri 1 dakkada çıkartılabiliyor.
 
M Çevrimdışı

MorphiN

Kayıtlı Üye
2 Şubat 2015
924
0
16
41
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



Elinize kolunuza saglık teşekkürler.
 
O Çevrimdışı

oxygen

Kayıtlı Üye
23 Temmuz 2015
35
0
6
23
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



Elinize sağık
 
H Çevrimdışı

Hsnayd55

Kayıtlı Üye
19 Ocak 2013
675
0
16
37
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



başarılı paylaşım teşekkürler
 
21oyuncu Çevrimdışı

21oyuncu

Kayıtlı Üye
21 Mart 2012
688
2
18
39
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



Teşekkürler.
 
O Çevrimdışı

on11

Kayıtlı Üye
25 Mayıs 2012
542
0
16
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



link kırık..
 
E Çevrimdışı

erdal000

Kayıtlı Üye
16 Eylül 2012
674
3
18
30
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



teşekkürler
 
L Çevrimdışı

LostMan

Kayıtlı Üye
15 Aralık 2015
775
4
18
34
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



teşekkürler
 
M Çevrimdışı

motha38

Kayıtlı Üye
23 Ocak 2017
66
0
6
29
Cevap: Bitmiş Projeleri Packlemek için Gerekli Programlar.



tesekkurlerr
 
Üst