pro-nouns-keygen/FORM1.FRM
2022-12-07 15:24:29 +01:00

356 lines
10 KiB
Plaintext
Raw Permalink Blame History

VERSION 5.00
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Pro Nouns Keygen"
ClientHeight = 5385
ClientLeft = 1680
ClientTop = 1350
ClientWidth = 4860
DrawStyle = 6 'Inside Solid
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 238
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Icon = "FORM1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 5385
ScaleWidth = 4860
Begin VB.CommandButton Command1
Caption = "Generate Key"
Height = 375
Left = 120
TabIndex = 12
Top = 4920
Width = 1935
End
Begin VB.TextBox Text2
Height = 285
Left = 2160
Locked = -1 'True
TabIndex = 11
Top = 4950
Width = 2535
End
Begin VB.Frame Frame1
Height = 2175
Left = 120
TabIndex = 2
Top = 2640
Width = 4575
Begin VB.CheckBox Check2
Caption = "Validate Trans Rights"
Height = 255
Left = 2280
TabIndex = 10
Top = 1800
Width = 2175
End
Begin VB.CheckBox Check1
Caption = "Extra Gay Edition"
Height = 255
Left = 120
TabIndex = 9
Top = 1800
Width = 2175
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 285
Left = 120
Locked = -1 'True
TabIndex = 8
Text = "she/her/they"
Top = 1440
Width = 4335
End
Begin VB.OptionButton Option5
Caption = "Other, please specify:"
Height = 255
Left = 120
TabIndex = 7
Top = 1200
Width = 4335
End
Begin VB.OptionButton Option4
Caption = "it/its"
Height = 255
Left = 120
TabIndex = 6
Top = 960
Width = 4335
End
Begin VB.OptionButton Option3
Caption = "they/them"
Height = 255
Left = 120
TabIndex = 5
Top = 720
Width = 4335
End
Begin VB.OptionButton Option2
Caption = "he/him"
Height = 255
Left = 120
TabIndex = 4
Top = 480
Width = 2895
End
Begin VB.OptionButton Option1
Caption = "she/her"
Height = 255
Left = 120
TabIndex = 3
Top = 240
Value = -1 'True
Width = 3615
End
End
Begin VB.Timer Timer1
Left = 4560
Top = 4080
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00000000&
FillColor = &H000000FF&
ForeColor = &H80000008&
Height = 2175
Left = 120
ScaleHeight = 2145
ScaleWidth = 4545
TabIndex = 0
Top = 120
Width = 4575
End
Begin VB.Label Label1
Caption = "Which version of Nouns Pro<72> do you wish to crack?"
Height = 255
Left = 120
TabIndex = 1
Top = 2400
Width = 4575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim blue(100) As Meow
Dim pink(100) As Meow
Dim white(100) As Meow
Dim pink2(100) As Meow
Dim blue2(100) As Meow
Dim yellow(100) As Meow
Dim purple(100) As Meow
Dim black(100) As Meow
Private Function randomStr()
If Rnd * 100 > 50 Then
randomStr = Chr((Rnd * 20) + 65)
Else
randomStr = Chr((Rnd * 8) + 48)
End If
End Function
Private Sub Combo1_Change()
MsgBox "a"
End Sub
Private Sub Combo1_Validate(Cancel As Boolean)
MsgBox "a"
End Sub
Private Sub Command1_Click()
Dim res As String
If Check2.value = 1 Then
MsgBox "Trans rights are human rights!", , "Validation status"
End If
If Check1.value = 1 Then
res = "GAY-"
Else
res = "UwU-"
End If
If Option1.value = True Then
res = res + "girls,,,-" + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + "-" + randomStr() + randomStr() + randomStr() + randomStr()
ElseIf Option2.value = True Then
res = res + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + "-" + randomStr() + randomStr() + randomStr()
ElseIf Option3.value = True Then
res = res + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + "-,,,,-" + randomStr() + randomStr() + randomStr() + randomStr()
ElseIf Option4.value = True Then
res = res + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + "-" + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr()
ElseIf Option5.value = True Then
res = res + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + randomStr() + "-OwO" + randomStr()
End If
Text2.Text = res
End Sub
Private Sub Form_Load()
Timer1.Interval = 75
Picture1.ForeColor = RGB(0, 255, 0)
Picture1.FillColor = RGB(0, 0, 10)
Picture1.AutoRedraw = True
Randomize
a# = (100 / 5)
nyaa blue(), a# * 0, a#
nyaa pink(), a# * 1, a# * 2
nyaa white(), a# * 2, a# * 3
nyaa pink2(), a# * 3, a# * 4
nyaa blue2(), a# * 4, a# * 5
If Not BASS_Init(-1, 44100, 0, Me.hWnd, 0) = BASSFALSE Then
ModHandle = BASS_MusicLoad(BASSFALSE, StrPtr("toilet5.xm"), 0, 0, BASS_SAMPLE_LOOP, 1)
Call BASS_ChannelPlay(ModHandle, BASSFALSE)
End If
End Sub
Private Sub nyaa(Meow() As Meow, rangeStart As Double, rangeEnd As Double)
For I = 1 To 100
rangeStart_ = Form1.Picture1.Height * 0.01 * rangeStart
rangeEnd_ = Form1.Picture1.Height * 0.01 * rangeEnd
Meow(I).X = Rnd * Form1.Picture1.Width
Meow(I).Y = ((rangeEnd_ - rangeStart_) * Rnd) + rangeStart_
Next I
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call BASS_Free
End Sub
Private Sub checkExtra()
If Option4.value = True Or Option3.value = True Then
a# = (100 / 4)
nyaa yellow(), a# * 0, a#
nyaa white(), a# * 1, a# * 2
nyaa purple(), a# * 2, a# * 3
nyaa black(), a# * 3, a# * 4
Else
a# = (100 / 5)
nyaa blue(), a# * 0, a#
nyaa pink(), a# * 1, a# * 2
nyaa white(), a# * 2, a# * 3
nyaa pink2(), a# * 3, a# * 4
nyaa blue2(), a# * 4, a# * 5
End If
If Option5.value = True Then
Text1.Enabled = True
Text1.Locked = False
Else
Text1.Enabled = False
Text1.Locked = True
End If
End Sub
Private Sub Option1_Click()
checkExtra
End Sub
Private Sub Option2_Click()
checkExtra
End Sub
Private Sub Option3_Click()
checkExtra
End Sub
Private Sub Option4_Click()
checkExtra
End Sub
Private Sub Option5_Click()
checkExtra
End Sub
'Private Sub Picture1_Paint()
' Picture1.Cls
' uwu blue(), RGB(89, 201, 244)
' uwu pink(), RGB(224, 90, 205)
' uwu white(), RGB(255, 255, 255)
' uwu pink2(), RGB(224, 90, 205)
' uwu blue2(), RGB(89, 201, 244)
'End Sub
Private Sub Timer1_Timer()
If Option3.value = False And Option4.value = False Then
For I = 0 To 4
Picture1.Cls
uwu blue(), RGB(89, 201, 244)
uwu pink(), RGB(224, 90, 205)
uwu white(), RGB(255, 255, 255)
uwu pink2(), RGB(224, 90, 205)
uwu blue2(), RGB(89, 201, 244)
Picture1.Refresh
Next I
Else
For I = 0 To 4
Picture1.Cls
uwu yellow(), RGB(255, 244, 51)
uwu white(), RGB(255, 255, 255)
uwu purple(), RGB(155, 89, 208)
uwu black(), RGB(16, 16, 16)
Picture1.Refresh
Next I
End If
End Sub
Private Sub Timer2_Timer()
Picture1.Cls
uwu blue(), RGB(89, 201, 244)
uwu pink(), RGB(224, 90, 205)
uwu white(), RGB(255, 255, 255)
uwu pink2(), RGB(224, 90, 205)
uwu blue2(), RGB(89, 201, 244)
Picture1.Refresh
End Sub
Private Sub uwu(Meow() As Meow, color As Long)
Picture1.ForeColor = color
Picture1.DrawWidth = 4
For I = 1 To 33
Meow(I).X = Meow(I).X - 75
If Meow(I).X < 0 Then
Meow(I).X = Picture1.Width
End If
Picture1.PSet (Meow(I).X, Meow(I).Y)
Next I
Picture1.DrawWidth = 2
For I = 34 To 66
Meow(I).X = Meow(I).X - 25
If Meow(I).X < 0 Then
Meow(I).X = Picture1.Width
End If
Picture1.PSet (Meow(I).X, Meow(I).Y)
Next I
Picture1.DrawWidth = 1
For I = 67 To 100
Meow(I).X = Meow(I).X - 10
If Meow(I).X < 0 Then
Meow(I).X = Picture1.Width
End If
Picture1.PSet (Meow(I).X, Meow(I).Y)
Next I
End Sub