356 lines
10 KiB
Plaintext
356 lines
10 KiB
Plaintext
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
|
||
|