xor ile string şifreleme

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

XOR ile String şifreleme

XOR ile String şifreleme
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

Hosting Sponsorumuz - Noktahost internet hizmetleri