USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Criptogrando e descriptografando textos com no máximo 4400 bytes
Postada em 4/10/2003 por ^HEAVY-METAL^            
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 'Make sure we Get a Len of 3 w/o negitive
    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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página