Krypterings modul

testarea.dk

;o)

(i dll form :o) )

http://www.testarea.dk/aspcrypt.aspx
(virker også til alm. vb og sql-server mv.)

jeg vil gerne have et crypt-modul hvor jeg har adgang til koden...

Option Explicit

Private Sub Form_Load()
Dim strTest As String
  ' Du skal være opmærksom på at du ikke skal bruge den sammen med
  ' en TextBox (Text1) for hvis der forekommer char(0)
  ' så ser du ikke rasten af den krypteret tekst
  ' ellers så brug en RichTextBox1 eller gem det i en fil.

  strTest = "Dette er en test string"

  strTest = RndEncrypt(strTest, "Password")
  MsgBox "Encrypt: " & strTest 'Nu ikke du ikke læse string (strTest)

  strTest = RndEncrypt(strTest, "Password")
  MsgBox "Original: " & strTest 'Nu kan du godt læse string (strTest)
End Sub

Public Function RndEncrypt(ByVal strCrypt As String, ByVal strPass As String) As String
Dim i As Integer
Dim lngVal As Long
Dim intAsc As Integer
Dim intRnd As Integer
Dim intChr As Integer
Dim intMem(1) As Integer

  'Generator til password
  For i = 1 To Len(strPass)
    intAsc = Asc(Mid$(strPass, i, 1))
    lngVal = lngVal Xor (intAsc * 2 ^ intMem(0))
    lngVal = lngVal Xor (intAsc * 2 ^ intMem(1))
    intMem(0) = (intMem(1) + 3) Mod 11
    intMem(1) = (intMem(0) + 5) Mod 16
  Next i

  'Starter random generator fra et bestemt sted
  Call Rnd(-(lngVal Mod 65536) + Len(strCrypt))

  'Encrypt af string
  For i = 1 To Len(strCrypt)
    intAsc = Asc(Mid$(strCrypt, i, 1))
    intRnd = Int(256 * Rnd) 'Random
    intChr = (intAsc Xor intRnd)
    Mid$(strCrypt, i, 1) = Chr$(intChr)
  Next i

RndEncrypt = strCrypt
End Function

Takker... Er det din egen kode?? skal du evt. krediteres ved brug af den?

Det er en simpel måde at krypter på så du kan sikkert finde en kode som kan det samme, men jeg har selv lavet den kode her, så du kan bare bruge den, men jeg tror ikke du kan sælge den.

Den del her er standart for en RND krypterne:

  For i = 1 To Len(strCrypt)
    intAsc = Asc(Mid$(strCrypt, i, 1))
    intRnd = Int(256 * Rnd) 'Random
    intChr = (intAsc Xor intRnd)
    Mid$(strCrypt, i, 1) = Chr$(intChr)
  Next i