asp delphi 全才帮忙

[gangxg]

请熟悉ASP DELPHI 全才帮忙转换成delphi ，自己想弄可确实看不懂ASP

Function IsCHI(clChar)

Dim z

z = Hex(Asc(clChar))

IsCHI = (Len(z) = 4)

End Function


Function EnCode(clString)

Dim i

Dim x

Dim r



For i = 1 To Len(clString)

x = Mid(clString, i, 1)

If IsCHI(x) = True Then

r = r & Hex(Asc(x))

Else

If Hex(Asc(x)) = "D" Then

r = r & "O" & Hex(Asc(x)) & "DO"

ElseIf Hex(Asc(x)) = "A" Then

r = r

Else

r = r & "O" & Hex(Asc(x)) & "O"

End If

End If

Next

EnCode = r

r = ""

End Function


谁能帮忙翻译一下吗，看不懂ASP 翻译起来还真难

[gangxg]

一楼的说的我都知道，可就是编译不了啊

[gangxg]

asp 端 EnCode 是加密部分

我想实现delphi 来加密 ，其中有些函数delphi 没有

想问下高手门能否另类实现呢

[gangxg]

有人愿意帮下我吗

[街头小贩]

delphi不懂！给你推荐一位高手http://hi.csdn.net/zswang

[liumingyu218]

Asc 函数可返回与字符串的第一个字母对应的 ANSI 字符代码
Hex 函数可返回表示十六进制数字值的字符串
dim 定义
= 赋值
Len 函数可返回字符串内字符的数目，或是存储一变量所需的字节数

明白了吗?

[zhangjiewoshiwo]

楼上正解！

[gangxg]

谢谢大家 ，我自己解决了