-
Notifications
You must be signed in to change notification settings - Fork 177
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
b765fc6
commit 84615ff
Showing
63 changed files
with
3,733 additions
and
2,202 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,41 @@ | ||
Public Class AES | ||
Public Function AES_Encrypt(ByVal input As String, ByVal pass As String) As String | ||
Dim AES As New System.Security.Cryptography.RijndaelManaged | ||
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider | ||
Dim encrypted As String = "" | ||
Try | ||
Dim hash(31) As Byte | ||
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) | ||
Array.Copy(temp, 0, hash, 0, 16) | ||
Array.Copy(temp, 0, hash, 15, 16) | ||
AES.Key = hash | ||
AES.Mode = Security.Cryptography.CipherMode.ECB | ||
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor | ||
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input) | ||
encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) | ||
Return encrypted | ||
Catch ex As Exception | ||
Return "" | ||
End Try | ||
End Function | ||
|
||
Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String | ||
Dim AES As New System.Security.Cryptography.RijndaelManaged | ||
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider | ||
Dim decrypted As String = "" | ||
Try | ||
Dim hash(31) As Byte | ||
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) | ||
Array.Copy(temp, 0, hash, 0, 16) | ||
Array.Copy(temp, 0, hash, 15, 16) | ||
AES.Key = hash | ||
AES.Mode = Security.Cryptography.CipherMode.ECB | ||
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor | ||
Dim Buffer As Byte() = Convert.FromBase64String(input) | ||
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) | ||
Return decrypted | ||
Catch ex As Exception | ||
Return "" | ||
End Try | ||
End Function | ||
End Class |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.
Oops, something went wrong.
102 changes: 102 additions & 0 deletions
102
Xenotix Information Gathering/xss_info_sites_visited.Designer.vb
Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.
Oops, something went wrong.
Oops, something went wrong.