VB.NET programınızın guvenliğini bir seviye daha arttırmak icin kullanabileceğiniz bir yontemdir. Dizi, ingilizce anlamıyla string olarak bilinir.. bu yuzden ben anlatımda "dizi" yerine "string" yazıcam (alışkanlık).

Oncelikle projenize 2 adet modul ekliyorsunuz.. Aşağıdaki gibi adlandırabilirsiniz:
1- Sifreleme.vb
2- Strings.vb

Oncelikle Sifreleme.vb modulunu acın ve iceriğini tamamen değiştirin:
Kod:
Imports System.Security.Cryptography Imports System.Security Imports System.IO Imports System.Runtime.InteropServices Imports System.Text.RegularExpressions Imports System.Text 'Anlatım Vormz tarafından yapılmıştır. Module Encryption Dim passphrase As String = "EŞSİZ ŞİFRENİZİ BURAYA GİRİN" Public Function EncryptString(ByVal Message As String) As String Dim Results As Byte() Dim UTF8 As New System.Text.UTF8Encoding() Dim HashProvider As New MD5CryptoServiceProvider() Dim TDESKey As Byte() = HashProvider.ComputeHash(UTF8.GetBytes(passphrase) ) Dim TDESAlgorithm As New TripleDESCryptoServiceProvider() TDESAlgorithm.Key = TDESKey TDESAlgorithm.Mode = CipherMode.ECB TDESAlgorithm.Padding = PaddingMode.PKCS7 Dim DataToEncrypt As Byte() = UTF8.GetBytes(Message) Try Dim Encryptor As ICryptoTransform = TDESAlgorithm.CreateEncryptor() Results = Encryptor.TransformFinalBlock(DataToEncrypt, 0, DataToEncrypt.Length) Finally TDESAlgorithm.Clear() HashProvider.Clear() End Try Return Convert.ToBase64String(Results) End Function Public Function DecryptString(ByVal Message As String) As String Dim Results As Byte() Dim UTF8 As New System.Text.UTF8Encoding() Dim HashProvider As New MD5CryptoServiceProvider() Dim TDESKey As Byte() = HashProvider.ComputeHash(UTF8.GetBytes(passphrase) ) Dim TDESAlgorithm As New TripleDESCryptoServiceProvider() TDESAlgorithm.Key = TDESKey TDESAlgorithm.Mode = CipherMode.ECB TDESAlgorithm.Padding = PaddingMode.PKCS7 Dim DataToDecrypt As Byte() = Convert.FromBase64String(Message) Try Dim Decryptor As ICryptoTransform = TDESAlgorithm.CreateDecryptor() Results = Decryptor.TransformFinalBlock(DataToDecrypt, 0, DataToDecrypt.Length) Finally TDESAlgorithm.Clear() HashProvider.Clear() End Try Return UTF8.GetString(Results) End Function End Module
Unutmadan hatırlatayım; yukarıda verdiğim kodlarda kendi eşsiz şifrenizi girmeniz gerekmektedir.. bu şifreyi kullanarak şifreleme yapılacaktır.

Şimdi Strings.vb acın ve iceriğine şifrelediğiniz string'leri girin. Ornek icerik:
Kod:
Module Strings Public HackListString As String = Sifreleme.DecryptString("rBpC/BQRJmrEpEP3/EvoJspVyiqJUu7OjKW7GkZRVRxn/wehotBQcWu6MTjf5D9MJ0spoYXSoXAFKY1R5fAEbQ==") Public Web As String = Sifreleme.DecryptString("rBpC/BQRJmrEpEP3/EvoJspVyiqJUu7OHrZfmz05g0o=") Public ProcNLink As String = Sifreleme.DecryptString("rBpC/BQRJmrEpEP3/EvoJspVyiqJUu7OjKW7GkZRVRxn/wehotBQcd9dKfqye/lthClCgn/LrWmMNhySdiJvygUpjVHl8ARt") Public Linksec As String = Sifreleme.DecryptString("rBpC/BQRJmrEpEP3/EvoJspVyiqJUu7OjKW7GkZRVRxn/wehotBQcd9dKfqye/ltA2sSc09sdHs9WXrPSn06jA==") End Module
String şifrelemek icin EncryptString yontemini kullanın.. unutmayın; kendi eşsiz şifrenizi girdikten sonra EncryptString'i kullanın.

Soru ve sorunlarınızı konu altına yazabilirsiniz.
__________________