某人用字符的UNICODE代码 与 数字1进行了XOR(异或)运算 得到了下面的密文({是开始结束为}){成昮叐击爰闯揑闯皅亻/ 扁令归佡觢弁寇砀皅旷倘成惲佡昮成覀承皅亻/ 64暵买!宲惩成仭亇-盵掤斬罐亇-玱圩迟丝襾郼沠功泔上轼///// 佇昮弁亇丁亚邯箰-这月斱浫皅赅斘叮令上/ 成主仁义搟还义麺烧呣>囡主斱浫邢丫傺逽宠根亊夫夛亇擌仗妉皅 成惲诶冄圱沠斬罐皅帯忘上轼丝襾-焷吏叐刱成皅邯箰-戗耄下伡刱爰闯赅斘重靣厺/ 成昮绘护酭皅-SLC这昮爰闯切敱郼叮令/ 妃枝佡沠功泔帯动成邢义诶佡躪辸月胼劚上轼赅溑皅朊及帯忘谣谣 诧惄咩诣04088903028)朁奼昮叐矬俠杤( 成皅邯箰圱坁id0503Arnit/bnl !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!丁丫淰取斬罐乊痚皅亻冘}其中VB代码为Private Sub Command1_Click() Dim keys As Long Dim a, b As String Dim i As LongOn Error GoTo fk keys = CInt(InputBox("输入加密或者解密的密钥", "输入提示")) a = Text1.Text For i = 1 To Len(a) b = b & ChrW(AscW(Mid(a, i, 1)) Xor keys) Next i Text1.Text = b Exit Subfk:End Sub如果实在不行就在把上面的密文输入,然后是1。