private function encrypt(pPasswort)
dim bpass
dim bcryp
dim cryp
dim Laenge
dim x
cryp = "zizibaerchen"
Laenge = len(pPasswort)
redim bpass(Laenge)
redim bcryp(len(cryp))
for z = 1 to Laenge step 1
x = Mid(pPasswort, z, 1)
bpass(z - 1) = cbyte(asc(x))
next
for z = 1 to len(cryp) step 1
x = Mid(cryp, z, 1)
bcryp(z - 1) = cbyte(asc(x))
next
for z = 0 to Laenge - 1 step 1
for i = 0 to len(cryp) - 1 step 1
bcryp(i) = bcryp(i) xor (bpass(z) + i mod 127)
bcryp(i) = cbyte(abs(bcryp(i) mod 26)) + cbyte(asc("a")
next
next
Erg = ""
for z = 0 to len(cryp) - 1 step 1
Erg = Erg & chr(bcryp(z))
next
encrypt = Erg
end function
hi,
läßt sich diese verschlüsseleung knacken ??
oder nur per buteforce ?
Den asp ist nicht so mein ding...
vielen dank