+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176)
+--- الموضوع : يمكن تحويلها إلى C-Sharp شكرا جزيلا لك (/showthread.php?tid=37984)
يمكن تحويلها إلى C-Sharp شكرا جزيلا لك - lion4 - 10-03-21
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
RE: يمكن تحويلها إلى C-Sharp شكرا جزيلا لك - bidaya - 11-03-21
كود :
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();
}