Encryptie Programma willen maken

[lccookie1992]

Hallo allemaal ik zou graag een Encryptie programa willen maken
gewoon iets simpels
je verhaal typen in een txt
daar een copy van maken
dat verstleutelen

gewoon om een voorbeeld te noemen
a=b
b=c
c=d

ik weet dat dit wiel al is uit gevonden maar wil het toch eens proberen :$

alle tips zijn welcome heb ook nog geen voorkeur in welke programeertaal ik het ga schrijfen

 

[vanschagen]

source code http://www.thefreecountry.com/sourcecode/encryption.shtml

 

[lccookie1992]

en welk van deze wijzigt de letters in een txt document?

 

[CaptainBri]

Hier een project in Visual Basic 2008, die RC4 encryptie gebruikt. Kan je even naar kijken.
Zie de bijlage, of download Hier

Stel dat je niet wil downloaden, maar alleen een voorbeeld:

Imports System.Text
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = rc4(TextBox2.Text, TextBox1.Text)
    End Sub
    Public Shared Function rc4(ByVal message As String, ByVal password As String) As String
        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim cipher As New StringBuilder
        Dim returnCipher As String = String.Empty
        Dim sbox As Integer() = New Integer(256) {}
        Dim key As Integer() = New Integer(256) {}
        Dim intLength As Integer = password.Length
        Dim a As Integer = 0
        While a <= 255
            Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))
            key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
            sbox(a) = a
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While
        Dim x As Integer = 0
        Dim b As Integer = 0
        While b <= 255
            x = (x + sbox(b) + key(b)) Mod 256
            Dim tempSwap As Integer = sbox(b)
            sbox(b) = sbox(x)
            sbox(x) = tempSwap
            System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
        End While
        a = 1
        While a <= message.Length
            Dim itmp As Integer = 0
            i = (i + 1) Mod 256
            j = (j + sbox(i)) Mod 256
            itmp = sbox(i)
            sbox(i) = sbox(j)
            sbox(j) = itmp
            Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)
            Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
            itmp = Asc(ctmp)
            Dim cipherby As Integer = itmp Xor k
            cipher.Append(Chr(cipherby))
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While
        returnCipher = cipher.ToString
        cipher.Length = 0
        Return returnCipher
    End Function

End Class

 

[lccookie1992]

leuk programma
allen jammer dat na 1 zinetje de boel word af ge kapt
helaas niet wat ik zoek

 

[vanschagen]

ik dacht dat je zelf wou gaan programmeren,maar jij wilt dus een kan en klare oplossing
dan had je je vraag anders moeten stellen
wat wij geven zijn voorbeelden waar je zelf wat aan kan passen zoals jij het wilt hebben

 

[lccookie1992]

zo ver ben ik nog niet in het programeren had allen het idee dat ik max 2 bestanden zou moeten maken ipv een stuk of 30..

p.s als er een programma bestaat waar je het algoritme kan wijzigen naar wat jezelf wil dan is dat ook prima
voorbeeld: het inporteren van een txt bestand met de
a=b
b=c
c=d
er in

 

[lccookie1992]

had het idee dat het ook ongeveer zo iets kon wezen

get file test.txt
make copy
convett a - b
convert b - c
convert c - d
if z dan save copy as onleesbaar.txt

 

[lccookie1992]

ik neem aan dat geen antwoord hetzelfde is als dit is niet mogelijk ?