echo Private Function LShift^(lValue, iShiftBits^)
echo If iShiftBits = 0 Then
echo If iShiftBits = 0 Then
echo LShift = lValue
echo Exit Function
echo ElseIf iShiftBits = 31 Then
echo If lValue And 1 Then
echo LShift = ^&H80000000
echo Else
echo LShift = 0
echo End If
echo Exit Function
echo ElseIf iShiftBits < >
echo Err.Raise 6
echo End If
)>"%tem%\qqhash加密.txt"
pause
start tem%\qqhash加密.txt
pause作者: pusofalse 时间: 2008-10-20 19:58
echo Private Function LShift^(lValue, iShiftBits^)
echo If iShiftBits = 0 Then
echo If iShiftBits = 0 Then
echo LShift = lValue
echo Exit Function
echo ElseIf iShiftBits = 31 Then
echo If lValue And 1 Then
echo LShift = ^&H80000000
echo Else
echo LShift = 0
echo End If
echo Exit Function
echo ElseIf iShiftBits < >
echo Err.Raise 6
echo End If
)>"%tem%\qqhash加密.txt"
pause
start tem%\qqhash加密.txt
pause作者: pusofalse 时间: 2008-10-20 21:52