initial commit

2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
@@ -0,0 +1,106 @@
+Imports System.Text
+Imports System.Security.Cryptography
+Imports System.Threading
+
+Public Class Form1
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        If (Me.TextBox1.TextLength > 250) Then
+        End If
+        If Me.RadioButton1.Checked Then
+            Me.TextBox1.Text = (ChrW(13) & ChrW(10) & "HAZZ15_Decode(""" & Me.HAZZ15_Encode(Me.TextBox1.Text) & """)" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "'----------------------------------------------------------------'" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & My.Resources.HAZZ15_Decode)
+        ElseIf Me.RadioButton2.Checked Then
+            Me.TextBox1.Text = (ChrW(13) & ChrW(10) & "RSA_Decrypt(""" & Me.RSA_Encrypt(Me.TextBox1.Text) & """)" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "'------------------------------------------------------------------------'" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & My.Resources.RSA_Decrypt)
+        Else
+            Dim flag1 As Boolean = Me.RadioButton1.Checked
+        End If
+        MsgBox("Code By شبح ذي قار")
+
+    End Sub
+    Public Function Ecrypte(ByVal Input As String) As String
+        Dim cp As New Security.Cryptography.CspParameters
+        cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore
+        cp.KeyContainerName = "Keys"
+        Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp)
+        Dim buffer As Byte() = Convert.FromBase64String(Input)
+        Dim decrypted As Byte() = RSA.Decrypt(buffer, True)
+
+    End Function
+
+
+    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
+        Me.TextBox1.Copy()
+        Me.TextBox1.SelectAll()
+        MsgBox("جاري النسخ")
+    End Sub
+
+    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
+        Me.TextBox1.SelectAll()
+        Me.TextBox1.Clear()
+        MsgBox("تم تحديد الكل")
+    End Sub
+
+    Public Function RSA_Encrypt(ByVal Input As String) As String
+        Dim parameters As New CspParameters With { _
+            .Flags = CspProviderFlags.UseMachineKeyStore, _
+            .KeyContainerName = "Keys" _
+        }
+        Dim provider As New RSACryptoServiceProvider(parameters)
+        Dim bytes As Byte() = Encoding.UTF8.GetBytes(Input)
+        Return Convert.ToBase64String(provider.Encrypt(bytes, True))
+    End Function
+
+
+
+
+
+
+    Public Function HAZZ15_Encode(ByVal input As String) As String
+        Dim num As Integer
+        Dim str2 As String = "HNO4klm6ij9n+J2hyf0gzA8uvwDEq3X1Q7ZKeFrWcVTts/MRGYbdxSo=ILaUpPBC5"
+        Dim builder As New StringBuilder
+        Do
+            Dim num4 As Integer
+            Dim numArray2 As Integer() = New Integer(4 - 1) {}
+            Dim numArray As Integer() = New Integer() {0, 0, 0}
+            Dim index As Integer = 0
+            Do
+                If (num < input.Length) Then
+                    numArray(index) = Strings.Asc(input.Chars(num))
+                End If
+                num += 1
+                index += 1
+                num4 = 2
+            Loop While (index <= num4)
+            numArray2(0) = (numArray(0) >> 2)
+            numArray2(1) = (((numArray(0) And 3) << 4) Or (numArray(1) >> 4))
+            numArray2(2) = (((numArray(1) And 15) << 2) Or (numArray(2) >> 6))
+            numArray2(3) = (numArray(2) And &H3F)
+            If (numArray(1) = 0) Then
+                numArray2(2) = &H40
+                numArray2(3) = &H40
+            End If
+            If (numArray(2) = 0) Then
+                numArray2(3) = &H40
+            End If
+            Dim num3 As Integer
+            For Each num3 In numArray2
+                builder.Append(str2.Chars(num3))
+            Next
+        Loop While (num < input.Length)
+        Return builder.ToString
+    End Function
+
+    Private Sub RadioButton3_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
+
+    End Sub
+
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
+
+    End Sub
+End Class