entschlüsseln von asp's encrypt(

MaX109

New member
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 :)
 

Ph0eNiX

New member
mmh...
ich denke wenn man die Schlüssellänge genau so lang wie der Text ist, wird es schwierig.
Obwohl ich nichts asp verstehe ?( denke ich wen der Verschlüsselungs Text unbekannt ist und wie schon erwähnt so lange wie der Text ist, ist es (fast) unmöglich ihn zu knacken (vielleicht mit Grossrechner :p) .
kann aber nix garantieren... :D

also CU Ph0eNiX
 
Oben