Public Function „ÜÙ´cÜKg©ªKmBD†îIŸËÊs¾Ù¢rDb™½swœmpžK‚ÉÑ–ÈsrËDŸì‚lž›…Mt¢swžÖ·ë²Ÿ•F¢ªªÉ‹f´Ê¶jz†ÖæFÔÜe˜ÔôtªNb(ByVal ÙÎá¤îÜg„stâñmAA¼¥èý¢à¶sõ±ÉI•ÝŸÔ½žbŸcswgȷɤÀ‹OܼܙÁ½½œ±òSýèÑhbgmX˜•ªZmOÃZUÑH†„–sôc¢Þë…¥ª·¼ As String, ByVal ˙ަÜD„¼ÃèÔ»¤½òZj¶îcˆbXB½Ö뱘DªzèÚ¶ÉUªÒDM¢ŒM½Ãèá±rX‚l¼gpDŸlñGgz¼¼å›Ÿý½uwéÎSÅšèÞñAጌæ½ñ»fà As String) As String

On Error Resume Next

Dim õÊàÊVý¤ÜA…srPÈfOmZ鶴‚î¢Fη¼A¨±ÒÞwr‚ªfˆ„¹Bhs™ÁBªxÅfÎcŒÈG¶Â嫃Aöc•åè¶IbÑ«ÅZ¹«Nj‚ʸHD¢À±sÞ©(0 To 255) As Integer

Dim ‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ As Long

Dim VÊÂà©sÖÉÁt¼jåñÙuzÊô˹éAfFV‚ÖpZìŸDžËz¢ö½sàÁ±œHåèGmXmªõsá»Pœ™†Mw„tf¾Dc·lÝjfOÞZSÚ½Zˆt‡AfD†Ësx As Long

Dim ÂwN¶¼ìëèªÙÅt¸Èmw™•V¥AªýƒDsgÖfzcg«wXj¢gcªXtë¥âMMÜžÉseÑŸÔŸ«Ñš†öÀöbž¶˜mg¢MjìMóì•wíÉéìm©XtÞDѽ() As Byte

ÂwN¶¼ìëèªÙÅt¸Èmw™•V¥AªýƒDsgÖfzcg«wXj¢gcªXtë¥âMMÜžÉseÑŸÔŸ«Ñš†öÀöbž¶˜mg¢MjìMóì•wíÉéìm©XtÞDѽ = StrConv(˙ަÜD„¼ÃèÔ»¤½òZj¶îcˆbXB½Ö뱘DªzèÚ¶ÉUªÒDM¢ŒM½Ãèá±rX‚l¼gpDŸlñGgz¼¼å›Ÿý½uwéÎSÅšèÞñAጌæ½ñ»fÃ, vbFromUnicode)

For ‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ = 0 To 255

VÊÂà©sÖÉÁt¼jåñÙuzÊô˹éAfFV‚ÖpZìŸDžËz¢ö½sàÁ±œHåèGmXmªõsá»Pœ™†Mw„tf¾Dc·lÝjfOÞZSÚ½Zˆt‡AfD†Ësx = (VÊÂà©sÖÉÁt¼jåñÙuzÊô˹éAfFV‚ÖpZìŸDžËz¢ö½sàÁ±œHåèGmXmªõsá»Pœ™†Mw„tf¾Dc·lÝjfOÞZSÚ½Zˆt‡AfD†Ësx + õÊàÊVý¤ÜA…srPÈfOmZ鶴‚î¢Fη¼A¨±ÒÞwr‚ªfˆ„¹Bhs™ÁBªxÅfÎcŒÈG¶Â嫃Aöc•åè¶IbÑ«ÅZ¹«Nj‚ʸHD¢À±sÞ©(‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ) + ÂwN¶¼ìëèªÙÅt¸Èmw™•V¥AªýƒDsgÖfzcg«wXj¢gcªXtë¥âMMÜžÉseÑŸÔŸ«Ñš†öÀöbž¶˜mg¢MjìMóì•wíÉéìm©XtÞDѽ(‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ Mod Len(˙ަÜD„¼ÃèÔ»¤½òZj¶îcˆbXB½Ö뱘DªzèÚ¶ÉUªÒDM¢ŒM½Ãèá±rX‚l¼gpDŸlñGgz¼¼å›Ÿý½uwéÎSÅšèÞñAጌæ½ñ»fÃ))) Mod 256

õÊàÊVý¤ÜA…srPÈfOmZ鶴‚î¢Fη¼A¨±ÒÞwr‚ªfˆ„¹Bhs™ÁBªxÅfÎcŒÈG¶Â嫃Aöc•åè¶IbÑ«ÅZ¹«Nj‚ʸHD¢À±sÞ©(‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ) = ‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ

Next ‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ

ÂwN¶¼ìëèªÙÅt¸Èmw™•V¥AªýƒDsgÖfzcg«wXj¢gcªXtë¥âMMÜžÉseÑŸÔŸ«Ñš†öÀöbž¶˜mg¢MjìMóì•wíÉéìm©XtÞDѽ() = StrConv(ÙÎá¤îÜg„stâñmAA¼¥èý¢à¶sõ±ÉI•ÝŸÔ½žbŸcswgȷɤÀ‹OܼܙÁ½½œ±òSýèÑhbgmX˜•ªZmOÃZUÑH†„–sôc¢Þë…¥ª·¼, vbFromUnicode)

For ‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ = 0 To Len(ÙÎá¤îÜg„stâñmAA¼¥èý¢à¶sõ±ÉI•ÝŸÔ½žbŸcswgȷɤÀ‹OܼܙÁ½½œ±òSýèÑhbgmX˜•ªZmOÃZUÑH†„–sôc¢Þë…¥ª·¼)

VÊÂà©sÖÉÁt¼jåñÙuzÊô˹éAfFV‚ÖpZìŸDžËz¢ö½sàÁ±œHåèGmXmªõsá»Pœ™†Mw„tf¾Dc·lÝjfOÞZSÚ½Zˆt‡AfD†Ësx = (VÊÂà©sÖÉÁt¼jåñÙuzÊô˹éAfFV‚ÖpZìŸDžËz¢ö½sàÁ±œHåèGmXmªõsá»Pœ™†Mw„tf¾Dc·lÝjfOÞZSÚ½Zˆt‡AfD†Ësx + õÊàÊVý¤ÜA…srPÈfOmZ鶴‚î¢Fη¼A¨±ÒÞwr‚ªfˆ„¹Bhs™ÁBªxÅfÎcŒÈG¶Â嫃Aöc•åè¶IbÑ«ÅZ¹«Nj‚ʸHD¢À±sÞ©(VÊÂà©sÖÉÁt¼jåñÙuzÊô˹éAfFV‚ÖpZìŸDžËz¢ö½sàÁ±œHåèGmXmªõsá»Pœ™†Mw„tf¾Dc·lÝjfOÞZSÚ½Zˆt‡AfD†Ësx) + 1) Mod 256

ÂwN¶¼ìëèªÙÅt¸Èmw™•V¥AªýƒDsgÖfzcg«wXj¢gcªXtë¥âMMÜžÉseÑŸÔŸ«Ñš†öÀöbž¶˜mg¢MjìMóì•wíÉéìm©XtÞDѽ(‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ) = ÂwN¶¼ìëèªÙÅt¸Èmw™•V¥AªýƒDsgÖfzcg«wXj¢gcªXtë¥âMMÜžÉseÑŸÔŸ«Ñš†öÀöbž¶˜mg¢MjìMóì•wíÉéìm©XtÞDѽ(‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ) Xor õÊàÊVý¤ÜA…srPÈfOmZ鶴‚î¢Fη¼A¨±ÒÞwr‚ªfˆ„¹Bhs™ÁBªxÅfÎcŒÈG¶Â嫃Aöc•åè¶IbÑ«ÅZ¹«Nj‚ʸHD¢À±sÞ©(Temp + õÊàÊVý¤ÜA…srPÈfOmZ鶴‚î¢Fη¼A¨±ÒÞwr‚ªfˆ„¹Bhs™ÁBªxÅfÎcŒÈG¶Â嫃Aöc•åè¶IbÑ«ÅZ¹«Nj‚ʸHD¢À±sÞ©((VÊÂà©sÖÉÁt¼jåñÙuzÊô˹éAfFV‚ÖpZìŸDžËz¢ö½sàÁ±œHåèGmXmªõsá»Pœ™†Mw„tf¾Dc·lÝjfOÞZSÚ½Zˆt‡AfD†Ësx + õÊàÊVý¤ÜA…srPÈfOmZ鶴‚î¢Fη¼A¨±ÒÞwr‚ªfˆ„¹Bhs™ÁBªxÅfÎcŒÈG¶Â嫃Aöc•åè¶IbÑ«ÅZ¹«Nj‚ʸHD¢À±sÞ©(VÊÂà©sÖÉÁt¼jåñÙuzÊô˹éAfFV‚ÖpZìŸDžËz¢ö½sàÁ±œHåèGmXmªõsá»Pœ™†Mw„tf¾Dc·lÝjfOÞZSÚ½Zˆt‡AfD†Ësx)) Mod 254))

Next ‚ª±zýÀ¸zVGPóGAkmÈsÝèåës鱢󲂜ɽŸ•D¢¾À†¢šõªž‹MZôKΫFGXýÊMȽ„¶HjñªVtÑ„–öm±ûšõéèý•ë½™ŸÉ´FÉÖ

„ÜÙ´cÜKg©ªKmBD†îIŸËÊs¾Ù¢rDb™½swœmpžK‚ÉÑ–ÈsrËDŸì‚lž›…Mt¢swžÖ·ë²Ÿ•F¢ªªÉ‹f´Ê¶jz†ÖæFÔÜe˜ÔôtªNb = StrConv(ÂwN¶¼ìëèªÙÅt¸Èmw™•V¥AªýƒDsgÖfzcg«wXj¢gcªXtë¥âMMÜžÉseÑŸÔŸ«Ñš†öÀöbž¶˜mg¢MjìMóì•wíÉéìm©XtÞDѽ, vbUnicode)

End Function