1
Rijndael은 새로운 소프트웨어에 사용할 암호화 된 라이센스 문자열을 생성하려고 노력하고 있으므로 고객이 지불 한 것과 동일한 금액의 앱을 사용하고 있습니다. 두 가지 일을합니다.VB.NET에서 Rijndael 개체 사용
사용자 컴퓨터 이름 가져 오기.
- 나는 다음 두 가지를 결합하고, 라이센스 번호로 (이것은 아마도 최종 버전에서 변경됩니다 사용
100과 1000000000 사이의 임의의 숫자를 추가
,하지만 난 뭔가를하고 있어요 데모 용으로 간단 함). 마법이 일어나는 곳 내로드 이벤트,하지만 여기
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim generator As New Random
Dim randomValue As Integer
randomValue = generator.Next(100, 1000000000)
' Create a new Rijndael object to generate a key
' and initialization vector (IV).
Dim RijndaelAlg As Rijndael = Rijndael.Create
' Create a string to encrypt.
Dim sData As String = My.Computer.Name.ToString + randomValue.ToString
Dim FileName As String = "C:\key.txt"
' Encrypt text to a file using the file name, key, and IV.
EncryptTextToFile(sData, FileName, RijndaelAlg.Key, RijndaelAlg.IV)
' Decrypt the text from a file using the file name, key, and IV.
Dim Final As String = DecryptTextFromFile(FileName, RijndaelAlg.Key, RijndaelAlg.IV)
txtDecrypted.Text = Final
End Sub
:
Sub EncryptTextToFile(ByVal Data As String, ByVal FileName As String, ByVal Key() As Byte, ByVal IV() As Byte)
Dim fStream As FileStream = File.Open(FileName, FileMode.OpenOrCreate)
Dim RijndaelAlg As Rijndael = Rijndael.Create
Dim cStream As New CryptoStream(fStream, _
RijndaelAlg.CreateEncryptor(Key, IV), _
CryptoStreamMode.Write)
Dim sWriter As New StreamWriter(cStream)
sWriter.WriteLine(Data)
sWriter.Close()
cStream.Close()
fStream.Close()
End Sub
내가 이해하지 못하는 몇 가지가 여기에
는 일부 샘플 codez입니다. 누군가가 텍스트 파일을 읽고 Rijndael이라는 것을 인식하고 그것을 해독하는 VB 또는 C# 응용 프로그램을 작성하면 어떻게 될까요? 나는이 모든 것을 정말로 이해하지 못한다. 너희들이 나를 도울 수 있다면 너를 영원히 사랑할 것이다. 사전
좋습니다. 예를 들어 "omg"와 같은 키를 설정하면 "omg"키를 가진 사람들 만이 이것을 해독 할 수 있습니까? – broke
흠 조금 혼란 스럽지만 좀 더 연구를 해보겠습니다. 그래도 조언 주셔서 감사합니다! – broke