MSN Messenger custom emoticons

I was reading at this page http://www.msnfanatic.com/forums/ind...pic=9361&st=0& that it's possible to decrypt MSN Messenger's map.dat (%appdata%\Microsoft\MSN Messenger\<user id>\CustomEmoticons) file which has information about custom emoticons. There's a code sample there, but I don't understand it and can't get it to work. Can someone please explain it? Check it out:

Dim abytPassword() As Byte
Dim abytDataIn() As Byte
Dim abytDataOut() As Byte
Dim udtDataOut As DATA_BLOB
Dim udtDataIn As DATA_BLOB
Dim udtPw As DATA_BLOB

abytPassword = StrConv(sPassword, vbFromUnicode)
udtPw.cbData = UBound(abytPassword) + 1
udtPw.pbData = VarPtr(abytPassword(0))

abytDataIn = StrConv(sData, vbFromUnicode)
udtDataIn.cbData = UBound(abytDataIn) + 1
udtDataIn.pbData = VarPtr(abytDataIn(0))

Call CryptUnprotectData(udtDataIn, vbNullString, udtPw, ByVal vbNullString, ByVal vbNullString, 0, udtDataOut)

ReDim abytDataOut(udtDataOut.cbData) As Byte
Call CopyMemory(abytDataOut(0), ByVal udtDataOut.pbData, udtDataOut.cbData)
Debug.Print StrConv(Base64_Decode(StrConv(abytDataOut, vbUnicode)), vbFromUnicode)

Do you have the CryptUnprotectData function...or is it in the MSN API?

No, I don't have it. Maybe it's in the MSN API, I don't know.