암호화, 복호화

일단,

이 밑의 소스를

모듈이나

코드의

End Class

바로위에 붙여넣기 해주세요!

Public Function enciph(ByVal text As String, ByVal plusval As Single) As String
        Dim letters() As Char
        Dim lefinal As String = ""
        letters = text.Substring(0)
        For Each i In letters
            lefinal += Chr(Asc(i) + plusval).ToString
        Next
        Return lefinal
    End Function
    Public Function deciph(ByVal text As String, ByVal plusval As Single) As String
        Dim letters() As Char
        Dim lefinal As String = ""
        letters = text.Substring(0)
        For Each i In letters
            lefinal += Chr(Asc(i) - plusval).ToString
        Next
        Return lefinal
    End Function

90% 자작입니다!사용방법 :
암호화는 enciph("안녕? Hello?", 4)이렇게하면 "안녕? Hello?" 라는 문자를4를 키넘버로 사용해서 암호화합니다.키넘버는 1~10 사이의숫자를 아무거나 넣으면됩니다.

복호화는deciph("앍노C$LippsC", 4)이렇게하면 "앍노C$LippsC" 라는 문자를4를 키넘버로 사용해서 복호화합니다.("앍노C$LippsC" 는 "안녕? Hello?" 를 4를 키넘버로하여 암호화한겁니다.)키넘버는 암호화할때 쓰인 키넘버를 넣어야합니다.

암호화예제 : dim txt, tex as stringtex = textbox1.texttxt = enciph(tex, 4)

복호화예제 :dim txt, tex as stringtex = textbox1.texttxt = deciph(tex, 4)