[C#]qCrypt - Open Source Encryption

[ExploitR]

This is just substitution so its more like a cipher..And it has no real use since for each letter is replaced with something massive, imagine a 12 character pass "encrypted" with this, the field in the db would have to hold like 120 characters..

[FrostElite]

why not use a switch inside the forloop instead of all those ifs?

[Supicioso]

He could also use case instead of if. lol.

---------- Post added at 09:59 PM ---------- Previous post was at 09:56 PM ----------

I wonder.. could this be used to encrypt a file?

[FrostElite]

He could also use case instead of if. lol.

---------- Post added at 09:59 PM ---------- Previous post was at 09:56 PM ----------

I wonder.. could this be used to encrypt a file?

cases are inside switch statements

[Phant0m]

A good encryption system should have a password, and from that password the encryption for the text should be made. That way there is no way in hell some one can break it without threatening you :P

Still very good though :)

[*LoRD*]

same in vb.net

Namespace qCrypt.Classes
    Module Encrypt
        Sub New()
        End Sub
        Private FinalIntegers As String
        Private EncryptText As String
        Private MyIntArray As Integer() = New Integer(31) {}
        
        Public Sub StartEncryption(ByVal MyText As String)
            'Uppering it just in case.
            MyText = MyText.ToUpper()
            
            'Making these strings empty.
            FinalIntegers = String.Empty
            EncryptText = String.Empty
            
            'Main loop where checking each letter.
            For i As Integer = 0 To MyText.Length - 1
                If MyText(i) = "A" Then
                    EncryptText = "67147804386935659614295334925265"
                End If
                
                If MyText(i) = "B" Then
                    EncryptText = "40234261117512095921888831693698"
                End If
                
                If MyText(i) = "C" Then
                    EncryptText = "25554594088772765822059033491034"
                End If
                
                If MyText(i) = "D" Then
                    EncryptText = "49257666344761728762503183692300"
                End If
                
                If MyText(i) = "E" Then
                    EncryptText = "92345676992698286431550173278515"
                End If
                
                If MyText(i) = "F" Then
                    EncryptText = "93726526035464017048882091246568"
                End If
                
                If MyText(i) = "G" Then
                    EncryptText = "24590313462079242595407758509550"
                End If
                
                If MyText(i) = "H" Then
                    EncryptText = "83759930172522751880516343255280"
                End If
                
                If MyText(i) = "I" Then
                    EncryptText = "90291595376905753003909888385940"
                End If
                
                If MyText(i) = "K" Then
                    EncryptText = "37127880863226049166796151709548"
                End If
                
                If MyText(i) = "L" Then
                    EncryptText = "71461042420384157122852407900801"
                End If
                
                If MyText(i) = "M" Then
                    EncryptText = "58006678924036605768805688980313"
                End If
                
                If MyText(i) = "N" Then
                    EncryptText = "12447122735386729167866363617985"
                End If
                
                If MyText(i) = "O" Then
                    EncryptText = "36141394090474783907420403818251"
                End If
                
                If MyText(i) = "P" Then
                    EncryptText = "99248304649302231675368493493475"
                End If
                
                If MyText(i) = "Q" Then
                    EncryptText = "40735018298008298730725431001991"
                End If
                
                If MyText(i) = "R" Then
                    EncryptText = "81629254782078072283690311362428"
                End If
                
                If MyText(i) = "S" Then
                    EncryptText = "11484931118782297739315078625300"
                End If
                
                If MyText(i) = "T" Then
                    EncryptText = "80642658828236815024324663471131"
                End If
                
                If MyText(i) = "V" Then
                    EncryptText = "98185113022618718347727108401890"
                End If
                
                If MyText(i) = "W" Then
                    EncryptText = "64055954743088822242668717475581"
                End If
                
                If MyText(i) = "X" Then
                    EncryptText = "34011518510939004400504471925399"
                End If
                
                If MyText(i) = "Y" Then
                    EncryptText = "34044922747088848241238723934011"
                End If
                
                If MyText(i) = "Z" Then
                    EncryptText = "34084952747088846202261871934781"
                End If
                
                For n As Integer = 0 To 31
                    'Adding.
                    MyIntArray(n) = MyIntArray(n) + Convert.ToInt32(EncryptText(n))
                    
                    'Checking if the value is more than 10.
                    While MyIntArray(n) > 9
                        MyIntArray(n) = MyIntArray(n) - 10
                    End While
                Next
            Next
            
            'Adding everything.
            For i As Integer = 0 To 31
                FinalIntegers = FinalIntegers + Convert.ToString(MyIntArray(i))
                
                'TODO - Add your own sequence here. - TODO//
            Next
        End Sub
        
        'Returning encrypted text.
        Public Function ReturnString() As String
            Return FinalIntegers
        End Function
        
    End Module
End Namespace 

[Hailey]

hmm interesting.
i have a question though,
where it says [example]the encryption per letter or w/e if i wanted to encrypt the word "hello" would it subtract the numbers per those 5 letters? sorry for being so curious, hopefully this makes sense to you guys.