Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Szyfrowanie metodą XOR
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003
Szyfrowanie metodą XOR

Nie każdy zna tą metodę, a każdmu się moze przydać.

Oto kod szyfrujący/deszyfrujący:



Public Function XOREncryption(strCodeKey As String, _
strDataIn As String) As String

Dim lonDataPtr As Long
Dim intXORValue1 As Integer
Dim intXORValue2 As Integer
Dim strDataOut As String

For lonDataPtr = 1 To Len(strDataIn)
    intXORValue1 = Asc(Mid$(strDataIn, lonDataPtr, 1))
    intXORValue2 = Asc(Mid$(strCodeKey, _
        ((lonDataPtr Mod Len(strCodeKey)) + 1), 1))
    strDataOut = strDataOut + Chr(intXORValue1 Xor _
        intXORValue2)
Next lonDataPtr


XOREncryption = strDataOut

End Function

Analiza:
do funkcji szyfrującej należy przesłać 2 argumenty:
strCodeKey - jest to klucz szyfrujący. Zaszyfrowane dane muszą być rozszyfrowane za pomocą tego samego klucza za pomocą którego zostaly zaszyfrowane.
- strDataIn - chyba wiadomo o co chodzi, za pomocą tego argumentu przekazujemy do funkcji szyfrującej dane do szyfrowania/deszyfrowania

A więc tak - Funkcja szyfruje i rozszyfrowywuje. Zaszyfrowane dane należy przechowywać w zmienej, ponieważ wczytanie danych do innej kontrolki może spowodować zmianę danych - tak więc ostrożnie. Jeżeli są jakieś niejasności to pisać!

24-09-2004 16:29
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
Wszystkich odpowiedzi: 0 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1