تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
يمكن تحويلها إلى C-Sharp شكرا جزيلا لك
#1
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
الرد
تم الشكر بواسطة:
#2
كود :
    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();
        }
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن تشغيل مشروع معتمد على الاكسس بدون وجود الاوفيس abozeyd 4 1,499 24-01-19, 09:10 PM
آخر رد: new_programer
  كيف يمكن نسخ بيانات خلية في قريد فيو في نفس العمود solnaif1440 4 1,131 25-09-18, 10:44 AM
آخر رد: elgokr
  [سؤال] كيف يمكن عمل جدول يحتوي علي صور saad mahyoub 2 992 08-05-18, 06:29 PM
آخر رد: saad mahyoub
  كيف يمكن توسيط القيم في ListBox fouadhdfouad 0 722 17-12-17, 03:28 PM
آخر رد: fouadhdfouad
  كيف يمكن استخراج القيم المتكررة والغير متكررة بين DataGridViews mmohamed 0 815 09-12-17, 12:47 AM
آخر رد: mmohamed
  [سؤال] كيف يمكن تشغيل البرنامج على حاسبة العميل بدون تنصيب فيجوال استوديو وادي العوضي 6 2,621 07-12-17, 12:31 AM
آخر رد: MoHaNaD_m
  [سؤال] كيف يمكن التحكم في تنسيق شكل الارقام في اداة DataGridView؟ Ahmed Gandos 3 2,041 12-10-17, 04:03 PM
آخر رد: Ahmed Gandos
  هل يمكن حفظ قيمة checkbox؟ abozeyd 2 1,145 26-08-17, 11:20 PM
آخر رد: abozeyd
  هل يمكن استخدام DLL بديلاً لـ login form Clickers 5 2,766 21-02-17, 08:39 PM
آخر رد: EnormousSoft
  ما هى البرامج التى يمكن عملها بلغات .Net نور الدين وليد 5 1,883 21-02-17, 08:30 PM
آخر رد: EnormousSoft

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم