200块钱找人写两个函数,能看懂ASP的来(0分)

Public Function BymDecode(Pass)
dim code(7)
dim tlo
code(2)= &hFC
code(4)= &hF0
code(6)= &hC0
Source_Len = Len(pass)
Count = 0
ln = 0
a1 = 0
a2 = 0
c1 = 2
c2 = 0
ind = 0
tlo = 0
do while Count < Source_Len
mp = mid(Pass,Count + 1,1)
ac = asc(mp)
if ac - &h3E < 0 then
De_Str = De_Str + mp
ln = ln + 1
count = count + 1
ln = 0
a1 = 0
a2 = 0
c1 = 2
c2 = 0
ind = 0
else
a1 = ac - &h3E
if ln >= Source_Len then
exit do
end if
if c2 + 6 < 8 then
a2 = fix(a1 * (2^c1))
a2 = fix(a2 and int(code(c1)))
c2 = c2 + (8 - c1)
count = count + 1
else
ind = fix(a1 and &h3F)
ind = fix(ind / (2^(6-c1)))
lo = ind or a2
if lo > 128 and tlo = 0 then
tlo = lo * 256
else
De_Str = De_Str & chr(tlo + lo)
tlo = 0
end if
ln = ln + 1
c2 = 0
if c1 >= 6 then
c1 = 2
count = count + 1
else
c1 = c1 + 2
a2 = fix(a1 * (2^c1))
a2 = fix(a2 and int(code(c1)))
c2 = c2 + (8 - c1)
count = count + 1
end if
end if
end if
loop
BymDecode = De_Str
End Function
///////////////////////
以上是ASP的解密函数,要求用delphi写出 加 解密的两个函数,和我一样菜的就不必要加我了,代码要精,24小时网银打款 我的 Q Q : 1 0 8 2 8 8 5 3 8

帮你顶，顺便发个交流群：delphi天堂群：4654765，不去是你的损失 ,长期不发言者勿入

老兄钱多啊？

我把你的函数排了一下版：

你的函数就不正确 [][][]


Public Function BymDecode(Pass)
dim code(7)
dim tlo
code(2)= &hFC
code(4)= &hF0
code(6)= &hC0
Source_Len = Len(pass)
Count = 0
ln = 0
a1 = 0
a2 = 0
c1 = 2
c2 = 0
ind = 0
tlo = 0
do while Count < Source_Len
mp = mid(Pass,Count + 1,1)
ac = asc(mp)
if ac - &h3E < 0 then
De_Str = De_Str + mp
ln = ln + 1
count = count + 1
ln = 0
a1 = 0
a2 = 0
c1 = 2
c2 = 0
ind = 0
else
a1 = ac - &h3E
if ln >= Source_Len then
exit do
end if

if c2 + 6 < 8 then <---------------
a2 = fix(a1 * (2^c1))
a2 = fix(a2 and int(code(c1)))
c2 = c2 + (8 - c1)
count = count + 1
else <----------------
ind = fix(a1 and &h3F)
ind = fix(ind / (2^(6-c1)))
lo = ind or a2

if lo > 128 and tlo = 0 then
tlo = lo * 256
else
De_Str = De_Str & chr(tlo + lo)
tlo = 0
end if

ln = ln + 1
c2 = 0
if c1 >= 6 then
c1 = 2
count = count + 1
else <---------------------
c1 = c1 + 2
a2 = fix(a1 * (2^c1))
a2 = fix(a2 and int(code(c1)))
c2 = c2 + (8 - c1)
count = count + 1
end if
end if
end if
loop
BymDecode = De_Str
End Function

DDDDDDDDDDDDDDDDDDDDDDDDDD

to linuxping
你不要以为什么语言的语法都和delphi的一样

接受答案了.