[lion4]

Public Function XOR_Encrypt(ByVal Input As String, ByVal pass As String) As String
        Dim out As New System.Text.StringBuilder
        Dim u As Integer
        For i As Integer = 0 To Input.Length - 1
            Dim tmp As String = Hex(Asc(Input(i)) Xor Asc(pass(u)))
            If tmp.Length = 1 Then tmp = "0" & tmp
            out.Append(tmp)
            If u = pass.Length - 1 Then u = 0 Else u = u + 1
        Next
        Return out.ToString
    End Function



    Public Function XOR_Decrypt(ByVal Input As String, ByVal pass As String) As String
        Dim out As New System.Text.StringBuilder
        Dim u As Integer
        For i As Integer = 0 To Input.Length - 1 Step +2
            Dim tmp As String = Chr(("&H" & Input.Substring(i, 2)) Xor Asc(pass(u)))
            out.Append(tmp)
            If u = pass.Length - 1 Then u = 0 Else u = u + 1
        Next
        Return out.ToString
    End Function

[bidaya]

كود :

    public string XOR_Encrypt(string Input, string pass)
        {
            System.Text.StringBuilder @out = new System.Text.StringBuilder();
            int u = 0;
            for (int i = 0; i <= Input.Length - 1; i++)
            {
                string tmp = Conversion.Hex(Strings.Asc(Input[i]) ^ Strings.Asc(pass[u]));
                if (tmp.Length == 1)
                {
                    tmp = "0" + tmp;
                }
                @out.Append(tmp);
                if (u == pass.Length - 1)
                {
                    u = 0;
                }
                else
                {
                    u++;
                }
            }
            return @out.ToString();
        }
        
        
        
        public string XOR_Decrypt(string Input, string pass)
        {
            System.Text.StringBuilder @out = new System.Text.StringBuilder();
            int u = 0;
            for (int i = 0; i <= Input.Length - 1; i += + 2)
            {
                string tmp = System.Convert.ToString(Strings.Chr(System.Convert.ToInt32(int.Parse(("&H" + Input.Substring(i, 2))) ^ Strings.Asc(pass[u]) )));
                @out.Append(tmp);
                if (u == pass.Length - 1)
                {
                    u = 0;
                }
                else
                {
                    u++;
                }
            }
            return @out.ToString();
        }