+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف يمكن التعامل مع هذه الشفرة وفيها SecureString (/showthread.php?tid=1452)
كيف يمكن التعامل مع هذه الشفرة وفيها SecureString - عبد الله - 05-01-14
السلام عليكم ورحمة الله وبركاته
اخواني لدي هذه الشفرة
كود :
Shared Sub runRD(strIP As String, strUN As String, strPW As SecureString)
Dim proc As New ProcessStartInfo
proc.UseShellExecute = False
proc.FileName = "MSTSC.exe"
proc.Arguments = "/v:" & strIP
proc.UserName = strUN
proc.Password = strPW
Process.Start(proc)
End Subكيف يمكن التعامل مع هذا النوع من المتغيرات علماً إني أرسل البيانات بهذه الطريقة
إقتباس :runRD(TextBox10.Text, TextBox1.Text, TextBox2.Text)
الدالة لا تستقبل قيمة من مربع نص مباشرة فكيف يمكن التعامل معها ؟
RE: كيف يمكن التعامل مع هذه الشفرة وفيها SecureString - ali.alfoly - 05-01-14
السلام عليكم اخي عبد الله
التحويل الضمني في هذه الحالة لايصح
يجب ان تقوم بالتحويل الصريح
انا كنت بعدل المثال الان لاكن اكتشفت شئ خطير
عند بناء كائن جديد من New ProcessStartInfo يقبل منك 2 برمتر الاول سلسلة حرفية والاخر طول السلسلة
وعندما اردت تحويل المتغير strPW الي سلسلة حرفية لاسناده للدالة قالت ميكرو سوفت ان الامر لايصح لمستخدمي VB.NET
لانها تقبل سلسلة حرفية امنية وهي متوفرة في الـ #C فقط راجع
لا ادري هل هناك طريقة لتحويل متغير من نوع String الي SecureString في VB.NET
ممكن تعمل دالة في ملف ديل بالـ #C وتقوم باستخدامها في ذلك الامر
لا اعلم لعل احد من الاخوة يكون عنده حل
RE: كيف يمكن التعامل مع هذه الشفرة وفيها SecureString - sooriaty03 - 05-01-14
السلام عليكم ورحمة الله وبركاته
أخي الكريم
المشكلة كما قال لك الأخ علي ولكن تستطيع تمرير النص في أداة مربع النص إلى متغير من نوع SecureString وذلك بالطريقة التالية:
كود :
Dim SecureString1 As New SecureString
For Each I As Char In TextBox2.Text.ToCharArray
SecureString1.AppendChar(I)
Nextوبعد ذلك تقوم باستدعاء الدالة بالشكل التالي
كود :
runRD(TextBox10.Text, TextBox1.Text, SecureString1)بالتوفيق
RE: كيف يمكن التعامل مع هذه الشفرة وفيها SecureString - ali.alfoly - 05-01-14
السلام عليكم
جزاك الله خيرا اخي ابو محمد
انا فعلا شفت الاجراء AppendChar لاكني ظنيت انه يقبل حرف امني ايضا
كده المشكلة انحلت
الكود النهائي
كود :
Shared Sub runRD(strIP As String, strUN As String, strPW As String)
Dim proc As New ProcessStartInfo
proc.UseShellExecute = False
proc.FileName = "MSTSC.exe"
proc.Arguments = "/v:" & strIP
proc.UserName = strUN
For Each Cr As Char In Split(strPW) : proc.Password.AppendChar(Cr) : Next
Process.Start(proc)
End Sub