Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : Handler.ashx

<%@ WebHandler Language="VB" Class="Handler" %>

Imports System
Imports System.Web
Imports System.Drawing
Imports System.Drawing.Imaging

Imports System.Web.Services
Imports System.Web.SessionState

Public Class Handler : Implements IHttpHandler, IRequiresSessionState
    
    
    Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Using b As New Bitmap(80, 30)
            'Using b As New Bitmap(250, 50)

Dim f As New Font("Arial", 12.0F)
            Dim g As Graphics = Graphics.FromImage(b)

'Dim whiteBrush As New SolidBrush(Color.White)
            'Dim blackBrush As New SolidBrush(Color.Blue)

Dim whiteBrush As New SolidBrush(Color.PowderBlue)
            Dim blackBrush As New SolidBrush(Color.Teal)

'Dim canvas As New RectangleF(0, 0, 250, 50)
            Dim canvas As New RectangleF(0, 0, 80, 30)

g.FillRectangle(whiteBrush, canvas)
            Dim sUserCaptcha As String = ""
            sUserCaptcha = GetRandomString()
            context.Session("Captcha") = sUserCaptcha
            HttpContext.Current.Session("UserCaptcha") = sUserCaptcha
            g.DrawString(context.Session("Captcha").ToString(), f, blackBrush, canvas)
            context.Response.ContentType = "image/gif"
            b.Save(context.Response.OutputStream, ImageFormat.Gif)
        End Using
        'context.Response.ContentType = "text/plain"
        'context.Response.Write("Hello World!")

End Sub
    Public Function GetRandomString() As String
        Dim arrStr As String() = "A,B,C,D,1,2,3,4,5,6,7,8,9,0".Split(",".ToCharArray())
        Dim strDraw As String = String.Empty
        Dim r As New Random()
        For i As Integer = 0 To 4
            strDraw += arrStr(r.[Next](0, arrStr.Length - 1))
        Next
        Return strDraw
    End Function
   
  
 
    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2025-11-19 01:45:43
..	dir	-	0/0	0777	2024-12-04 12:16:15
Scripts	dir	-	0/0	0777	2025-01-16 01:56:28
Styles	dir	-	0/0	0777	2025-01-16 01:56:26
bin	dir	-	0/0	0777	2025-01-18 01:08:03
css	dir	-	0/0	0777	2025-01-16 01:59:12
favicon_io	dir	-	0/0	0777	2025-01-16 01:59:06
fonts	dir	-	0/0	0777	2025-01-16 01:59:02
images	dir	-	0/0	0777	2025-07-24 01:07:08
js	dir	-	0/0	0777	2025-01-16 01:56:32
prod-car	dir	-	0/0	0777	2025-01-16 01:56:30
vendors	dir	-	0/0	0777	2025-01-16 01:56:24
Default.aspx	text/plain	17.05 KB	0/0	0666	2025-01-18 01:07:19
Handler.ashx	text/plain	2.06 KB	0/0	0666	2024-05-05 12:02:18
Home.master	text/html	20.96 KB	0/0	0666	2025-01-18 01:07:19
OtherDelicacies.aspx	text/plain	9.13 KB	0/0	0666	2025-01-18 01:07:19
PrecompiledApp.config	text/plain	49 B	0/0	0666	2025-01-18 01:07:18
_default.aspx	text/html	3.72 KB	0/0	0666	2024-12-19 03:20:24
_default.aspx.vb	text/plain	75 B	0/0	0666	2018-10-31 10:25:34
aboutus.aspx	text/plain	6.95 KB	0/0	0666	2025-01-18 01:07:19
contactus.aspx	text/html	10.53 KB	0/0	0666	2025-01-18 01:07:19
inner.master	text/html	17.98 KB	0/0	0666	2025-01-18 01:07:19
rss.php	text/x-php	22.77 KB	0/0	0666	2025-11-19 01:45:43
thanks.aspx	text/plain	1.72 KB	0/0	0666	2025-01-18 01:07:19
typesofmomos.aspx	text/plain	13.13 KB	0/0	0666	2025-01-18 01:07:19
web.config	text/xml	435 B	0/0	0666	2025-01-09 11:12:16

Team Anon Force

https://t.me/Professor6T9x