acceste stunu md5 şifreleme

acces veritabanı kullanıyorum. mdb dosyamda eskiden üye şifrelerini md5 siz saklıyordum fakat şu an md5 ile kayd ediyorum.Eski şifreleri tek tek uğraşmaktansa daha kolay bir yolu varmı? nasıl yaparım?

bi form hazırla. şifreleri listele. şifrelerin yanlarında inputlar olsun. içlerinde şifrelen md5 ototmatik cevrilmiş hali olsun. örneğin;
<%=sifre%> <input type="text" name="<%=sifreID%>" value="<%=md5("sifre")%>"> <br />

bunu form içine al. sonra da kaydete bas. kayıtı for each döngüsünü kullanarak yaparsan tüm şifreler md5li halde kaydolur. örnek hazırlardım ama zamanım yok başka kişislerden destek al.

<%
set uye = Baglanti.Execute("select id,sifre from Uyeler")
Do While Not uye.Eof

Baglanti.Execute("UpDate Uyeler Set sifre = '"&md5(uye("sifre")&"' where id like '"&uye("id")&"'")

uye.MoveNext
Loop
uye.Close : Set uye = Nothing
%>

Kalın yazdığım yerdeki recordsetleri kendinize göre düzenleyip

Uyeler adındaki tabloyu ve id,sifre adındaki sütunları kendinize göre düzenleyin.
ve bu dosyayı browser ile çağırın.. işinizi görecektir.