+ import code
commit
8ad111672e
|
@ -0,0 +1,355 @@
|
|||
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™ 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
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
Attribute VB_Name = "MODULE11"
|
||||
Type meow
|
||||
X As Integer
|
||||
Y As Integer
|
||||
End Type
|
||||
|
|
@ -0,0 +1,39 @@
|
|||
Type=Exe
|
||||
Form=FORM1.FRM
|
||||
Module=MODULE11; MODULE1.BAS
|
||||
Module=modBass; bass.bas
|
||||
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
|
||||
IconForm="Form1"
|
||||
Startup="Form1"
|
||||
HelpFile=""
|
||||
Title="PROJECT1"
|
||||
ExeName32="keygen.exe"
|
||||
Command32=""
|
||||
Name="NyaaKeygen"
|
||||
HelpContextID="0"
|
||||
CompatibleMode="0"
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
RevisionVer=0
|
||||
AutoIncrementVer=0
|
||||
ServerSupportFiles=0
|
||||
VersionCompanyName="Meow"
|
||||
CompilationType=0
|
||||
OptimizationType=1
|
||||
FavorPentiumPro(tm)=0
|
||||
CodeViewDebugInfo=0
|
||||
NoAliasing=0
|
||||
BoundsCheck=0
|
||||
OverflowCheck=0
|
||||
FlPointCheck=0
|
||||
FDIVCheck=0
|
||||
UnroundedFP=0
|
||||
StartMode=0
|
||||
Unattended=0
|
||||
Retained=0
|
||||
ThreadPerObject=0
|
||||
MaxNumberOfThreads=1
|
||||
DebugStartupOption=0
|
||||
|
||||
[MS Transaction Server]
|
||||
AutoRefresh=1
|
|
@ -0,0 +1,3 @@
|
|||
Form1 = 401, 118, 1086, 649, , 22, 22, 547, 462, C
|
||||
MODULE11 = 280, 36, 805, 476,
|
||||
modBass = 88, 88, 613, 528,
|
Loading…
Reference in New Issue