顶一下

又被吞了

百度什么都不牛皮，就吞楼牛皮

对了我来分析一下原理：
DEC加密其实只能加密字符串（至少设计时只能加密字符串），
而且安全性极其的弱，
密码正确可能性是1/65535
基本上几秒就破了

Console.WriteLine("注意：Dec算法并不安全，请不要把他当作加密算法
请输入文件：")
Dim file As String = Console.ReadLine()
If IO.File.Exists(file) Then
Console.WriteLine("请输入密码：")
Dim password As UShort = Console.ReadLine().GetHashCode() And UShort.MaxValue
Dim reader As New StreamReader(file)
Dim strbulid As New StringBuilder("#DEC_ENC::") strbulid.Append(Encrypt("DecHacker Gen Dec File", code2) & "::" & Encrypt("XXX.XXX.XXX.XXX", code2) & "::" & Encrypt("ENCODED", password) & vbCrLf & Encrypt(reader.ReadToEnd(), password))
Console.WriteLine(strbulid.ToString())
End If
Else
Console.WriteLine("输入错误")
Console.ReadKey()
Main()
End If
Console.ReadKey()
End Sub

Private Function Encrypt(data As String, passcode As UShort) As String
Dim stringBuilder As StringBuilder = New StringBuilder()
For i As Integer = 0 To data.Length - 1
Dim num As Integer = CInt((AscW(data(i)) * AscW("ܞ"c)) + AscW("翿"c) + passcode)
stringBuilder.Append(CStr(num) + " ")
Next
Return stringBuilder.ToString().Trim()
End Function
' Hacknet.FileEncrypter

Private Function Decrypt(data As String, passcode As UShort) As String
Dim stringBuilder As StringBuilder = New StringBuilder()
Dim array As String() = Split(data, " ")
If String.IsNullOrWhiteSpace(data) Then Return ""
For i As Integer = 0 To array.Length - 1
Dim num As Integer = Convert.ToInt32(array(i))
Dim num2 As Integer = 32767
Dim num3 As Integer = num - num2 - CInt(passcode)
num3 /= 1822
stringBuilder.Append(ChrW(num3))
Next
Return stringBuilder.ToString().Trim()
End Function

选择性吞楼，i了i了

我win10 下载了，怎么安装不了？？

不明白
我的win10可以正常运行
你试试安装net 4.8

@宇帅哥♬

*发现bug了
如果dec文件带有扩展名这个可选头，那么破解点将不会在第五个元素
而是第三个元素

至于第五个函数的头是啥，我也不明白