From 8ad111672e995afb60dd747900e4dadf480ac293 Mon Sep 17 00:00:00 2001
From: Dominique Liberda <ja@sdomi.pl>
Date: Wed, 7 Dec 2022 15:24:29 +0100
Subject: [PATCH] + import code

---
 FORM1.FRM    | 355 +++++++++++++++++++++++++++++++++++++++++++++++++++
 FORM1.frx    | Bin 0 -> 1090 bytes
 MODULE1.BAS  |   6 +
 PROJECT1.MAK |  39 ++++++
 PROJECT1.vbw |   3 +
 meow.bat     |   5 +
 6 files changed, 408 insertions(+)
 create mode 100644 FORM1.FRM
 create mode 100644 FORM1.frx
 create mode 100644 MODULE1.BAS
 create mode 100644 PROJECT1.MAK
 create mode 100644 PROJECT1.vbw
 create mode 100644 meow.bat

diff --git a/FORM1.FRM b/FORM1.FRM
new file mode 100644
index 0000000..659b298
--- /dev/null
+++ b/FORM1.FRM
@@ -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
+
diff --git a/FORM1.frx b/FORM1.frx
new file mode 100644
index 0000000000000000000000000000000000000000..3cdb9252430c1a74deae67debac2ac3ac834308a
GIT binary patch
literal 1090
zcmbVLF>b>!47?--ipoHfAH-9U7i4VuppM;RpdaWeXwj^xtDwbC3DBiu#tcE!qa4Ws
z;x3_0i$@+Q13JAv0Pi2bmMbvB9BsRj5WjQah3jfH;LQwpUH}{BTKXG(hSY|R+-d6o
zzUaDP;g=!3L*Mr-#PlLYiRgSJC7=6DIp?ZQfpsE5XEQ?$xOCiLWtD?dnGXkIRrLc_
zQdi?-MRM7I?Up^I&iNpH#A#GLKmAZOKjFe3kQ?WxsG4V+5JI(I6SOu#<^MzQnu+g>
zrA!M2d+kTeQO0QPGoS1bwDBW71aE>V7>y?*(?Q6e;ajZX&J`^AiGUgy?6QdQL`fX6
zj|c2xkM)grSl;A>_fP%|tWUu12<$I(@*;EG;xopdW!hJCF3NA|S?4|DY3nFzR;cT=
z@XPRCo%57Ai%N3VN?-?p@T`>-sIVb_6;=|3<b_JdlTHWR7;V1f5O|_Y<b!P}2&s!u
eXmZugOW^bf9C^RR54`JBajKEmlYdxqW$z!ki3A}4

literal 0
HcmV?d00001

diff --git a/MODULE1.BAS b/MODULE1.BAS
new file mode 100644
index 0000000..a0d178c
--- /dev/null
+++ b/MODULE1.BAS
@@ -0,0 +1,6 @@
+Attribute VB_Name = "MODULE11"
+Type meow
+    X As Integer
+    Y As Integer
+End Type
+
diff --git a/PROJECT1.MAK b/PROJECT1.MAK
new file mode 100644
index 0000000..a889ad9
--- /dev/null
+++ b/PROJECT1.MAK
@@ -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
diff --git a/PROJECT1.vbw b/PROJECT1.vbw
new file mode 100644
index 0000000..56627ea
--- /dev/null
+++ b/PROJECT1.vbw
@@ -0,0 +1,3 @@
+Form1 = 401, 118, 1086, 649, , 22, 22, 547, 462, C
+MODULE11 = 280, 36, 805, 476, 
+modBass = 88, 88, 613, 528, 
diff --git a/meow.bat b/meow.bat
new file mode 100644
index 0000000..e0d5f27
--- /dev/null
+++ b/meow.bat
@@ -0,0 +1,5 @@
+@echo off
+
+regsvr32 /s mscomctl.ocx
+regsvr32 /s comdlg32.ocx
+start keygen
\ No newline at end of file