mã hoá code cho access

Thảo luận trong 'Ứng dụng Access' bắt đầu bởi hoangvudb, 24 Tháng hai 2006.

Trạng thái chủ đề:
Không mở trả lời sau này.

2,951 lượt xem

  1. hoangvudb

    hoangvudb Thành viên hoạt động

    Bài viết:
    57
    Đã được thích:
    0
    Nơi ở:
    đà nẵng
    Function Encrypt(ByVal inpt As String) As String
    Dim temp As String
    Dim tempA As String
    Dim Rand As String
    100:
    Randomize
    Rand = Right(Rnd, 3)
    rad = Left(Rand, 1)
    If Left(Rand, 1) = ''-'' Then
    GoTo 100
    End If
    For i = 1 To Len(inpt)
    crntASC = Asc(Mid(inpt, i, 1))
    tempA = ((crntASC) Xor (Rand + i + rad)) + (i + rad)
    If Len(tempA) = 4 Then
    temp = temp & tempA
    ElseIf Len(tempA) = 3 Then
    temp = temp & ''0'' & tempA
    ElseIf Len(tempA) = 2 Then
    temp = temp & ''00'' & tempA
    ElseIf Len(tempA) = 1 Then
    temp = temp & ''000'' & tempA
    End If
    Next i
    temp = Rand & temp
    Encrypt = temp
    End Function

    Function Decrypt(ByVal inpt As String) As String
    Rand = Left(inpt, 3)
    For i = 4 To (Len(inpt) - 3) Step 4
    z = z + 1
    tempA = Mid(inpt, i, 4)
    tempA = ((tempA - (z + Left(Rand, 1))) Xor (Rand + z + Left(Rand, 1)))
    temp = temp & Chr(tempA)
    Next i
    Decrypt = temp
    End Function

    bạn có thể vào [xóa] để xem chi tiết :dzo: hơn

     
    Last edited by a moderator: 24 Tháng hai 2006
    #1
  2. handung107

    handung107 Thành viên thân thiết

    Bài viết:
    576
    Đã được thích:
    13
    Nơi ở:
    VN
    Bạn hoangvudb kiểm ta lại xem trang Web của bạn có bị nhiễm virus không ? Tôi vào thử cứ bị báo lỗi là có Virus hòai, nếu có, bạn không nên đưa thông tin lên như thế
     
    #2
Trạng thái chủ đề:
Không mở trả lời sau này.

Chia sẻ trang này