在text1中输入你要加密的数据（16进制）

　　　　将它和4E进行异或

　　　　再按就把数据还原了

Private Sub Command1_Click()
tmp = Hex(Val("&H" & Text1.Text) Xor Val("&H" & "4E"))
Text1.Text = tmp
End Sub