فقط خواستم یه چیزی رو اضافه کنم.....
این نرم افزار به هیچ وجه پسورد هارو نمیدزده و مخرب نیستش و من تنها به دلیل مسایل امنیتی سورس رو در اختیارتون نگذاشتم.....
با این حال برای اطمینانتون اگر مدیران خواستن سورسو میدم تا بررسی کنن.....
دو تا از سورسایی که مشکوک به هک هستش رو میزارم براتون که ببینید کاری با پسورد های شما نداره.....:
این برای تماس با ما و ارسال اطلاعات:
Sub sendEmail()
Try
SmtpServer.Credentials = New Net.NetworkCredential(Trim(TextBox1.Text), Trim(TextBox2.Text))
SmtpServer.Port = "587"
If ComboBox1.Text.Contains("gmail") Then
SmtpServer.EnableSsl = True
Else
SmtpServer.EnableSsl = False
End If
SmtpServer.Host = ComboBox1.Text
mail.From = New MailAddress(Trim(TextBox1.Text))
mail.To.Add(Trim(TextBox5.Text))
mail.Subject = Trim("Information")
mail.Body = Trim(TextBox3.Text & " " & TextBox4.Text)
SmtpServer.Send(mail)
MsgBox("Mail Sent", MsgBoxStyle.Information, "Mail Sent")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
این برای ارسال با پست الکترونیک:
Sub sendEmail()
Label9.Visible = True
Try
Timer1.Stop()
SmtpServer.Credentials = New Net.NetworkCredential(Trim(ComboBox1.Text), Trim(TextBox2.Text))
SmtpServer.Port = "587"
If ComboBox2.Text.Contains("gmail") Then
SmtpServer.EnableSsl = True
Else
SmtpServer.EnableSsl = False
End If
SmtpServer.Host = ComboBox2.Text
mail.From = New MailAddress(Trim(ComboBox1.Text))
For Each Name As String In Mainform.ListBox1.Items
Dim attach As New Net.Mail.Attachment(Name) 'Includes Path
mail.Attachments.Add(attach)
Next
For Each files In ListBox1.Items
mail.To.Add(files)
Next
mail.Subject = Trim(TextBox5.Text)
mail.Body = Trim(Mainform.RichTextBox1.Text)
SmtpServer.Send(mail)
MsgBox("Mail Sent", MsgBoxStyle.Information, "Mail Sent")
Me.Close()
Label9.Visible = False
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
دقیقا کد رو کپی کردم....
این پست رو فقط جهت اطلاع نوشتم.....