php代码转.net,PHP数学运算代码转换成asp代码

今天考试过后(考的很悲剧)，逛论坛看见一贴，说是转换一段asp代码为php代码：

01 <?php

02 function app_hash_url($url) {

03     $seed = "Mining PageRank is AGAINST GOOGLE'S TERMS OF SERVICE.";

04     $result = 0x01020345;

05     for ($i=0; $i

06      $result ^= ord($seed{$i%87}) ^ ord($url{$i});

07      $result = (($result >> 23) & 0x1FF) | $result << 9;

08     }

09     return sprintf("8%x", $result);

10 }

11 $url="dddddd";

12 echo app_hash_url($url);

13 ?>

转换如下：

1.asp没有位移运算，百度了一个位移运算的类

2.格式化输出

01 

02 Class mShift

03

04  Private m_lPower2(31)

05

06  Public Function RShift(ByVal lThis, ByVal lBits)

07   On Error Resume Next

08   Init

09   If (lBits <= 0) Then

10      RShift = lThis

11   ElseIf (lBits > 63) Then

12      ' .. error ...

13   ElseIf (lBits > 31) Then

14      RShift = 0

15   Else

16      If (lThis And m_lPower2(31 - lBits)) = m_lPower2(31 - lBits) Then

17      RShift = (lThis And (m_lPower2(31 - lBits) - 1)) * m_lPower2(lBits)Or m_lPower2(31)

18      Else

19      RShift = (lThis And (m_lPower2(31 - lBits) - 1)) * m_lPower2(lBits)

20      End If

21   End If

22  End Function

23

24  Public Function LShift(ByVal lThis, ByVal lBits)

25   On Error Resume Next

26   Init

27   If (lBits <= 0) Then

28      LShift = lThis

29   ElseIf (lBits > 63) Then

30      ' ... error ...

31   ElseIf (lBits > 31) Then

32      LShift = 0

33   Else

34      If (lThis And m_lPower2(31)) = m_lPower2(31) Then

35      LShift = (lThis And &H7FFFFFFF) \ m_lPower2(lBits) Or m_lPower2(31 - lBits)

36      Else

37      LShift = lThis \ m_lPower2(lBits)

38      End If

39   End If

40  End Function

41

42  Private Sub Init()

43   On Error Resume Next

44   m_lPower2(0) = &H1&

45   m_lPower2(1) = &H2&

46   m_lPower2(2) = &H4&

47   m_lPower2(3) = &H8&

48   m_lPower2(4) = &H10&

49   m_lPower2(5) = &H20&

50   m_lPower2(6) = &H40&

51   m_lPower2(7) = &H80&

52   m_lPower2(8) = &H100&

53   m_lPower2(9) = &H200&

54   m_lPower2(10) = &H400&

55   m_lPower2(11) = &H800&

56   m_lPower2(12) = &H1000&

57   m_lPower2(13) = &H2000&

58   m_lPower2(14) = &H4000&

59   m_lPower2(15) = &H8000&

60   m_lPower2(16) = &H10000

61   m_lPower2(17) = &H20000

62   m_lPower2(18) = &H40000

63   m_lPower2(19) = &H80000

64   m_lPower2(20) = &H100000

65   m_lPower2(21) = &H200000

66   m_lPower2(22) = &H400000

67   m_lPower2(23) = &H800000

68   m_lPower2(24) = &H1000000

69   m_lPower2(25) = &H2000000

70   m_lPower2(26) = &H4000000

71   m_lPower2(27) = &H8000000

72   m_lPower2(28) = &H10000000

73   m_lPower2(29) = &H20000000

74   m_lPower2(30) = &H40000000

75   m_lPower2(31) = &H80000000

76  End Sub

77

78 End Class

79 '---------------------------------------------------------

80 function app_hash_url(url)

81 Dim sft www.2cto.com

82 Set sft = New mShift

83 seed = "Mining PageRank is AGAINST GOOGLE'S TERMS OF SERVICE."

84 result = &H01020345

85 for i=0 to len(url)-1

86  result1 = asc(mid(seed,(i mod 87)+1,1))

87  result2 = asc(mid(url,i+1,1))

88  result = result xor (result1 xor result2)

89  result = (sft.LShift(result,23) and &H1FF) or sft.RShift(result,9)

90 next

91 Set sft = Nothing

92 response.write "8" &  LCase(hex(result))

93 end function

94 '-----------------------------------------------------------------------

95 url1="ddddddddd"

96 response.write app_hash_url(url1)

97 %>

希望与广大网友互动？？

点此进行留言吧！