Anasayfa > Kodlar > Visual Basic 6 ile Xor’da string şifrelemek

Visual Basic 6 ile Xor’da string şifrelemek


Tüm elektronik ve bilgisayar sistemlerinin vazgeçilmez şifreleme yöntemi.


----------------------------------------------------------------------------
Public Function XORSifrele(CodeKey As String, DataIn As String) As String

Dim lonDataPtr As Long
Dim strDataOut As String
Dim temp As Integer
Dim tempstring As String
Dim intXOrValue1 As Integer
Dim intXOrValue2 As Integer

For lonDataPtr = 1 To Len(DataIn)
'Gelen data dan karakterler teker teker alınıyor
intXOrValue1 = Asc(Mid$(DataIn, lonDataPtr, 1))

'Şifreden karakterler gelen data ve şifre uzunluğuna göre ayrılıyor
intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))

'Şifreleme işlemi yapılıyor
temp = (intXOrValue1 Xor intXOrValue2)

'Şifrelenen sayı ikilik sisteme çevirilitor
tempstring = Hex(temp)

'Eğer Hex sayı tek hane ise başına 0 ekle ve onu çift hane yap. İki basamaklı olduğu zaman 8 bit oluyo
If Len(tempstring) = 1 Then tempstring = "0" & tempstring

'Çıkış değişkeni dolduruluyor
strDataOut = strDataOut + tempstring

Next lonDataPtr
'Fonksiyon değeri veriliyor
XORSifrele = strDataOut
End Function

----------------------------------------------------------------------------

Public Function XORSifreCoz(CodeKey As String, DataIn As String) As String
Dim lonDataPtr As Long
Dim strDataOut As String
Dim intXOrValue1 As Integer
Dim intXOrValue2 As Integer

For lonDataPtr = 1 To (Len(DataIn) / 2)
'Gelen şifreli değer Hex ten int e çaviriliyo
intXOrValue1 = Val("&H" & (Mid$(DataIn, (2 * lonDataPtr) - 1, 2)))
'Şifre değeri alınıyor
intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))

'Yine bir Şifreleme var .Ancak bu şifreyi çözüyor.
strDataOut = strDataOut + Chr(intXOrValue1 Xor intXOrValue2)
Next lonDataPtr
'Fonksiyon değeri atanıyor
XORSifreCoz = strDataOut
End Function

----------------------------------------------------------------------------

Kullanımı



Private Sub TextEt_Click()
Dim SifreliYazi As String
Dim SifresizYazi As String

SifreliYazi = XORSifrele("şifrem", "Şifrelemek istediğiniz yazı")
SifresizYazi = XORSifreCoz("şifrem", SifreliYazi)
MsgBox SifresizYazi

End Sub

Saygılar. İnşallah işinizi görür..
ademeyuboglu@hotmail.com


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: