visual basic 6.0 project hack text

                                            أسلام عليكم اليوم سوف أقدم لكم مشروع جديد سنستخدم visual basic 6.0

              سوف أشرح بي باللغة الانجليزية لكي يفهم الجميع

           welcome  today will give you a new project we will use visual basic 6.0 

             Will explain to me in English So that everyone understands 

 now goto vb6 and new project

now make form for your project

we need 2 command and 2 textbox

 now set that code in form code

 ()Private Sub Command1_Click

   ( Text2.Text = Encrypt(Text1.Text, Len(Text1.Text

End Sub

Public Function Encrypt(Name As String, Key As Long) As String

Dim v As Long, c1 As String, z As String

 (For v = 1 To Len(Name

       ( c1 = Asc(Mid(Name, v, 1

      (  c1 = Chr(c1 + Key

        z = z & c1

    Next v

    Encrypt = z

End Function

()Private Sub Command2_Click

   ( Text2.Text = Decrypt(Text2.Text, Len(Text2.Text

    

End Sub

Public Function Decrypt(Name As String, Key As Long) As String

Dim v As Long, c1 As String, z As String

   ( For v = 1 To Len(Name

       ( c1 = Asc(Mid(Name, v, 1

       ( c1 = Chr(c1 - Key

        z = z & c1

    Next v

    Decrypt = z

End Function

thanks for  your time

I hope that you like

watch this video for further clarification

if you wan download this project goto this url

http://www47.zippyshare.com/v/58932328/file.html