[مشروع] مساعدة في مشروع برنامج يفك تشفير الفيديو المسجل من رسيفر لتشغيلها على الحاسب

PHP كود :
   Private Function GetDetailsCore(currentProcess As Process, func As Func(Of Process, String)) As String
        Return func(currentProcess)
    End Function

    Friend Function GetHardDriveModelNumber() As String
        Return GetDetailsCore(New Process, Function(current As Process)
                                               Using current
                                                   Dim result As String = CType(Nothing, String)

                                                   Dim pi As ProcessStartInfo = New ProcessStartInfo
                                                   pi.Arguments = "/c wmic diskdrive get Model"
                                                   pi.FileName = "cmd"
                                                   pi.RedirectStandardOutput = True
                                                   pi.UseShellExecute = False
                                                   pi.CreateNoWindow = True
                                                   current.StartInfo = pi
                                                   current.Start()
                                                   Using reader As StreamReader = current.StandardOutput
                                                       result = CStr(reader.ReadToEnd())
                                                   End Using

                                                   ' check if string contains white space, if true remove wite spaces 
                                                   If result.Contains(" ") Then
                                                       result = result.Replace(" ", "")
                                                   End If

                                                   'check if string contains dots, if true remove dots
                                                   If result.Contains(".") Then
                                                       result = result.Remove(".", "")
                                                   End If

                                                   ' check if string contains dashes, if true remove wite dashes 
                                                   If result.Contains("-") Then
                                                       result = result.Replace("-", "")
                                                   End If

                                                   ' check if string contains the word model, if true remove word model
                                                   If result.Contains("Model") Then
                                                       result = result.Replace("Model", "")
                                                   End If
                                                   Return result

                                               End Using
                                               Return Nothing
                                           End Function)
    End Function

    Friend Function GetMemorychipSerialNumber() As String
        Return GetDetailsCore(New Process, Function(current As Process)
                                               Using current
                                                   Dim result As String = CType(Nothing, String)

                                                   Dim pi As ProcessStartInfo = New ProcessStartInfo
                                                   pi.Arguments = "/c wmic memorychip get SerialNumber"
                                                   pi.FileName = "cmd"
                                                   pi.RedirectStandardOutput = True
                                                   pi.UseShellExecute = False
                                                   pi.CreateNoWindow = True
                                                   current.StartInfo = pi
                                                   current.Start()
                                                   Dim reader As StreamReader = current.StandardOutput
                                                   result = CStr(reader.ReadToEnd())

                                                   ' check if string contains white space, if true remove wite spaces 
                                                   If result.Contains(" ") Then
                                                       result = result.Replace(" ", "")
                                                   End If

                                                   'check if string contains dots, if true remove dots
                                                   If result.Contains(".") Then
                                                       result = result.Remove(".", "")
                                                   End If

                                                   ' check if string contains dashes, if true remove wite dashes 
                                                   If result.Contains("-") Then
                                                       result = result.Replace("-", "")
                                                   End If

                                                   ' check if string contains the word model, if true remove word model
                                                   If result.Contains("SerialNumber") Then
                                                       result = result.Replace("SerialNumber", "")
                                                   End If
                                                   Return result

                                               End Using
                                               Return Nothing
                                           End Function)
    End Function