怎么批量加密

如何批量加密
一千万条数据,原来存放在PASS列中,现在新建了一个PASSWORD列,

要求把PASS中的数据加密后放在PASSWORD列中,请问如何做呀?


------解决思路----------------------
一千万条，逐条更新要好久。
写个VB程序吧，分批更新，即使中断了下次也可以继续。

    Dim lCount      As Long

    Dim bFinish     As Boolean


    ...

    

    sql = "select count(*) from user where password is not null"

    rs.open sql, conn

    lCount = rs(0)

    rs.Close

    Text1 = "已更新 " & Count & " 条..."


    sql = "select top 100 * from user where password is null"

    While Not bFinish

    

        rs.open sql, conn, adOpenKeyset, adLockBatchOptimistic

        If rs.BOF And rs.EOF Then

            Text1 = "共更新 " & Count & " 条。"

            bFinish = True

        Else

            While Not rs.EOF

                rs("password") = md5(rs("pass"))

                rs.movenext

            Wend

            rs.Update

            

            lCount = lCount + rs.RecordCount

            Text1 = "已更新 " & Count & " 条..."

        End If

        rs.Close

        

        DoEvents

    Wend

------解决思路----------------------
数据上的事，就该数据库里做，本身就带了加密函数
除非实现自己的自定义加密才需要借用语言工具
------解决思路----------------------
建议直接在数据库端完成加密即可,
TSQL实现MD5加密的方法参考 http://www.cnblogs.com/stone_w/archive/2012/05/22/2513581.html

update [user]

 set [password]=substring(sys.fn_sqlvarbasetostr(HashBytes('MD5',[pass])),3,32)