Pomoc pri nalogi

Pozdravljeni,

pri tej nalogi sem presedel ogromno časa in nikakor mi ne uspe. Res bi bil hvaležen kakršnekoli pomoči :) Morda se bo nekaterim naloga zdela lahka, vendar meni kot začetniku ni tako :D

Navodila:

Moja koda:

Function izracunajHash(geslo,zacetni_hash)
hash = zacetni_hash
maska=&H00FFFFFF
i=len(geslo)
if len(geslo) > 0 then
Do
znak=Mid(geslo,i,1)
A=asc(znak)
hash = 33*hash+A
hash=hash AND &H00007FFF
i=i-1
Loop While i>0
end if
hash=hash and &H00007FFF
izracunajHash=hash
end Function


Function kodiraj(niz)
i=1
Do Until i=len(niz)+1
znakk$=Mid(niz,len(niz),1)
A=Asc(znakk$)
if A>31 Then
B=CInt(rnd()*31)
A=A XOR B
znakk_chr$= Chr(A)
Mid(niz,len(niz),1,znakk_chr$)
end if
i=i+1
Loop
kodiraj=niz
end Function

Sub kodiraj_besedilo(seme)
randomize(seme)
oParEnum = ThisComponent.getText.createEnumeration
Do While oParEnum.hasMoreElements()
oPar = oParEnum.nextElement()
If oPar.supportsService("com.sun.star.text.Paragraph") Then
oPar.setString = (kodiraj(oPar.getString))
End if
Loop
end Sub


Sub kodiraj_UI
geslo = InputBox("Vnesi geslo","Geslo","E1077777") //geslo E1077777 je zaradi anonimnosti vpisne številke spremenjeno
zacetno_seme = izracunajHash(geslo, 17493)
kodiraj_besedilo(zacetno_seme)
MsgBox("konec")
end Sub


Napaka v kodi:

Gre za programiranje makrov v open office writerju.


Lp, Ed