Kryptering af tekst

Hej

Først finder du ud af hvor lang din tekst er ved brug af Len(), dernæst køre du en For-løkke svarende til de antal karakter der er i strengen.
Så tager du hver enkel bogstav over i en temp-variable og finder ASC()-værdinen af dette bogstav, og lægger 5 til, tilsidst bruger du CHR()-værdien til at omdanne det til bogstav igen, og lægger dette tilbage i strengen igen.

Hvis du har problemer med det, så vil jeg gerne lave det for dig.


Du tager hver enkelt bo

Chr(65)          returnerer bogstav A.
                  (den funktion hedder chr() eller char() i næsten alle sprog)
Asc(\"A\")          returnerer bogstavkode 65
                  (den funktion hedder int() i C og ord() i pascal)

mvh  JakobA

Prøv nogle af mine små krypteringsprogram. ;)

\'--- Hex kryptering. ---

Public Function EnHex(Data As String) As String
    Dim iCount As Double
    Dim sTemp As String
    For iCount = 1 To Len(Data)
        sTemp = Hex$(Asc(Mid$(Data, iCount, 1)))
        If Len(sTemp) < 2 Then sTemp = \"0\" & sTemp
        EnHex = EnHex & sTemp
    Next iCount
End Function

Public Function DeHex(Data As String) As String
    Dim iCount As Double
    For iCount = 1 To Len(Data) Step 2
        DeHex = DeHex & Chr$(Val(\"&H\" & Mid$(Data, iCount, 2)))
    Next iCount
End Function

Private Sub Command1_Click()
Text1 = EnHex(Text1)
End Sub

Private Sub Command2_Click()
Text1 = DeHex(Text1)
End Sub

\'--- Hex kryptering. ---

\'--- ASC kryptering. ---

Private Function KrypterText(ByVal Text)
    For I = 1 To Len(Text)
        Letter = Mid$(Text, I, 1)
        X = X + 1: If X = 8 Then X = 0
        Mid$(Text, I, 1) = Chr$(Asc(Letter) + X)
    Next
    KrypterText = Text
End Function

Private Function AfkrypterText(ByVal Text)
    For I = 1 To Len(Text)
        Letter = Mid$(Text, I, 1)
        X = X + 1: If X = 8 Then X = 0
        Mid$(Text, I, 1) = Chr$(Asc(Letter) - X)
    Next
    AfkrypterText = Text
End Function

Private Sub Afkrypter_Click()
Text1.Text = AfkrypterText(Text1.Text)
End Sub

Private Sub Krypter_Click()
Text1.Text = KrypterText(Text1.Text)
End Sub

\'--- ASC kryptering. ---

hvis du skal bruge File kryptering(exe ,com) må du lige sige til. ;)

Ja, tak. Skal dog ikke bruge den lige i øjeblikket, men man ved jo aldrig ...

<<ghostbuster>> File kryptering:

http://home.get2net.dk/sjh/eksperten/quickkrypter.zip