Makro v openoffice

Za nalogo sem dobil napisat makro za kodiranje in dekodiranje besedila... Zanima ma, ce bi mi lahko ta del funkcije spremenil iz te zanke v zanko for, saj tako zahtevajo navodila.

function izracunajHash(geslo,zacetni_hash)
hash = zacetni_hash
maska=&H00FFFFFF
i=len(geslo)
   if i>0 then

        Do until i=0
            znak=Mid(geslo,i,1)
         znak=asc(znak)
         hash = 33*hash+znak
         hash=hash AND maska
         i=i-1
        Loop
         hash=hash AND &H00007FFF
         izracunajHash=hash
   else
      izracunajHash=hash
   end if
end function

Torej prosim ce bi lahko napisal kdo to isto vendar z zanko for.

Hvala za pomoc.