commit 96b8700a57e77b23341bb762e6bec27b3932751f Author: skidoodle Date: Fri Apr 5 19:29:02 2024 +0200 init kretacli diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..1ff0c42 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,63 @@ +############################################################################### +# Set default behavior to automatically normalize line endings. +############################################################################### +* text=auto + +############################################################################### +# Set default behavior for command prompt diff. +# +# This is need for earlier builds of msysgit that does not have it on by +# default for csharp files. +# Note: This is only used by command line +############################################################################### +#*.cs diff=csharp + +############################################################################### +# Set the merge driver for project and solution files +# +# Merging from the command prompt will add diff markers to the files if there +# are conflicts (Merging from VS is not affected by the settings below, in VS +# the diff markers are never inserted). Diff markers may cause the following +# file extensions to fail to load in VS. An alternative would be to treat +# these files as binary and thus will always conflict and require user +# intervention with every merge. To do so, just uncomment the entries below +############################################################################### +#*.sln merge=binary +#*.csproj merge=binary +#*.vbproj merge=binary +#*.vcxproj merge=binary +#*.vcproj merge=binary +#*.dbproj merge=binary +#*.fsproj merge=binary +#*.lsproj merge=binary +#*.wixproj merge=binary +#*.modelproj merge=binary +#*.sqlproj merge=binary +#*.wwaproj merge=binary + +############################################################################### +# behavior for image files +# +# image files are treated as binary by default. +############################################################################### +#*.jpg binary +#*.png binary +#*.gif binary + +############################################################################### +# diff behavior for common document formats +# +# Convert binary document formats to text before diffing them. This feature +# is only available from the command line. Turn it on by uncommenting the +# entries below. +############################################################################### +#*.doc diff=astextplain +#*.DOC diff=astextplain +#*.docx diff=astextplain +#*.DOCX diff=astextplain +#*.dot diff=astextplain +#*.DOT diff=astextplain +#*.pdf diff=astextplain +#*.PDF diff=astextplain +#*.rtf diff=astextplain +#*.RTF diff=astextplain diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..4dad9d8 --- /dev/null +++ b/.gitignore @@ -0,0 +1,366 @@ +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. +## +## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore + +# User-specific files +*.rsuser +*.suo +*.user +*.userosscache +*.sln.docstates + +# User-specific files (MonoDevelop/Xamarin Studio) +*.userprefs + +# Mono auto generated files +mono_crash.* + +# Build results +[Dd]ebug/ +[Dd]ebugPublic/ +[Rr]elease/ +[Rr]eleases/ +x64/ +x86/ +[Ww][Ii][Nn]32/ +[Aa][Rr][Mm]/ +[Aa][Rr][Mm]64/ +bld/ +[Bb]in/ +[Oo]bj/ +[Oo]ut/ +[Ll]og/ +[Ll]ogs/ + +# Visual Studio 2015/2017 cache/options directory +.vs/ +# Uncomment if you have tasks that create the project's static files in wwwroot +#wwwroot/ + +# Visual Studio 2017 auto generated files +Generated\ Files/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +# NUnit +*.VisualState.xml +TestResult.xml +nunit-*.xml + +# Build Results of an ATL Project +[Dd]ebugPS/ +[Rr]eleasePS/ +dlldata.c + +# Benchmark Results +BenchmarkDotNet.Artifacts/ + +# .NET Core +project.lock.json +project.fragment.lock.json +artifacts/ + +# ASP.NET Scaffolding +ScaffoldingReadMe.txt + +# StyleCop +StyleCopReport.xml + +# Files built by Visual Studio +*_i.c +*_p.c +*_h.h +*.ilk +*.meta +*.obj +*.iobj +*.pch +*.pdb +*.ipdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*_wpftmp.csproj +*.log +*.vspscc +*.vssscc +.builds +*.pidb +*.svclog +*.scc + +# Chutzpah Test files +_Chutzpah* + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opendb +*.opensdf +*.sdf +*.cachefile +*.VC.db +*.VC.VC.opendb + +# Visual Studio profiler +*.psess +*.vsp +*.vspx +*.sap + +# Visual Studio Trace Files +*.e2e + +# TFS 2012 Local Workspace +$tf/ + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper +*.DotSettings.user + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# AxoCover is a Code Coverage Tool +.axoCover/* +!.axoCover/settings.json + +# Coverlet is a free, cross platform Code Coverage Tool +coverage*.json +coverage*.xml +coverage*.info + +# Visual Studio code coverage results +*.coverage +*.coveragexml + +# NCrunch +_NCrunch_* +.*crunch*.local.xml +nCrunchTemp_* + +# MightyMoose +*.mm.* +AutoTest.Net/ + +# Web workbench (sass) +.sass-cache/ + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.[Pp]ublish.xml +*.azurePubxml +# Note: Comment the next line if you want to checkin your web deploy settings, +# but database connection strings (with potential passwords) will be unencrypted +*.pubxml +*.publishproj + +# Microsoft Azure Web App publish settings. Comment the next line if you want to +# checkin your Azure Web App publish settings, but sensitive information contained +# in these scripts will be unencrypted +PublishScripts/ + +# NuGet Packages +*.nupkg +# NuGet Symbol Packages +*.snupkg +# The packages folder can be ignored because of Package Restore +**/[Pp]ackages/* +# except build/, which is used as an MSBuild target. +!**/[Pp]ackages/build/ +# Uncomment if necessary however generally it will be regenerated when needed +#!**/[Pp]ackages/repositories.config +# NuGet v3's project.json files produces more ignorable files +*.nuget.props +*.nuget.targets + +# Microsoft Azure Build Output +csx/ +*.build.csdef + +# Microsoft Azure Emulator +ecf/ +rcf/ + +# Windows Store app package directories and files +AppPackages/ +BundleArtifacts/ +Package.StoreAssociation.xml +_pkginfo.txt +*.appx +*.appxbundle +*.appxupload + +# Visual Studio cache files +# files ending in .cache can be ignored +*.[Cc]ache +# but keep track of directories ending in .cache +!?*.[Cc]ache/ + +# Others +ClientBin/ +~$* +*~ +*.dbmdl +*.dbproj.schemaview +*.jfm +*.pfx +*.publishsettings +orleans.codegen.cs + +# Including strong name files can present a security risk +# (https://github.com/github/gitignore/pull/2483#issue-259490424) +#*.snk + +# Since there are multiple workflows, uncomment next line to ignore bower_components +# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) +#bower_components/ + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file +# to a newer Visual Studio version. Backup files are not needed, +# because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm +ServiceFabricBackup/ +*.rptproj.bak + +# SQL Server files +*.mdf +*.ldf +*.ndf + +# Business Intelligence projects +*.rdl.data +*.bim.layout +*.bim_*.settings +*.rptproj.rsuser +*- [Bb]ackup.rdl +*- [Bb]ackup ([0-9]).rdl +*- [Bb]ackup ([0-9][0-9]).rdl + +# Microsoft Fakes +FakesAssemblies/ + +# GhostDoc plugin setting file +*.GhostDoc.xml + +# Node.js Tools for Visual Studio +.ntvs_analysis.dat +node_modules/ + +# Visual Studio 6 build log +*.plg + +# Visual Studio 6 workspace options file +*.opt + +# Visual Studio 6 auto-generated workspace file (contains which files were open etc.) +*.vbw + +# Visual Studio LightSwitch build output +**/*.HTMLClient/GeneratedArtifacts +**/*.DesktopClient/GeneratedArtifacts +**/*.DesktopClient/ModelManifest.xml +**/*.Server/GeneratedArtifacts +**/*.Server/ModelManifest.xml +_Pvt_Extensions + +# Paket dependency manager +.paket/paket.exe +paket-files/ + +# FAKE - F# Make +.fake/ + +# CodeRush personal settings +.cr/personal + +# Python Tools for Visual Studio (PTVS) +__pycache__/ +*.pyc + +# Cake - Uncomment if you are using it +# tools/** +# !tools/packages.config + +# Tabs Studio +*.tss + +# Telerik's JustMock configuration file +*.jmconfig + +# BizTalk build output +*.btp.cs +*.btm.cs +*.odx.cs +*.xsd.cs + +# OpenCover UI analysis results +OpenCover/ + +# Azure Stream Analytics local run output +ASALocalRun/ + +# MSBuild Binary and Structured Log +*.binlog + +# NVidia Nsight GPU debugger configuration file +*.nvuser + +# MFractors (Xamarin productivity tool) working folder +.mfractor/ + +# Local History for Visual Studio +.localhistory/ + +# BeatPulse healthcheck temp database +healthchecksdb + +# Backup folder for Package Reference Convert tool in Visual Studio 2017 +MigrationBackup/ + +# Ionide (cross platform F# VS Code tools) working folder +.ionide/ + +# Fody - auto-generated XML schema +FodyWeavers.xsd + +# build shit +build/ diff --git a/.idea/.idea.KretaCLI/.idea/.gitignore b/.idea/.idea.KretaCLI/.idea/.gitignore new file mode 100644 index 0000000..279f948 --- /dev/null +++ b/.idea/.idea.KretaCLI/.idea/.gitignore @@ -0,0 +1,14 @@ +# Default ignored files +/shelf/ +/workspace.xml +# Rider ignored files +/.idea.KretaCLI.iml +/contentModel.xml +/modules.xml +/projectSettingsUpdater.xml +# Editor-based HTTP Client requests +/httpRequests/ +# Datasource local storage ignored files +/dataSources/ +/dataSources.local.xml +/dictionaries diff --git a/.idea/.idea.KretaCLI/.idea/encodings.xml b/.idea/.idea.KretaCLI/.idea/encodings.xml new file mode 100644 index 0000000..df87cf9 --- /dev/null +++ b/.idea/.idea.KretaCLI/.idea/encodings.xml @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/.idea/.idea.KretaCLI/.idea/indexLayout.xml b/.idea/.idea.KretaCLI/.idea/indexLayout.xml new file mode 100644 index 0000000..7b08163 --- /dev/null +++ b/.idea/.idea.KretaCLI/.idea/indexLayout.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/.idea/.idea.KretaCLI/.idea/vcs.xml b/.idea/.idea.KretaCLI/.idea/vcs.xml new file mode 100644 index 0000000..35eb1dd --- /dev/null +++ b/.idea/.idea.KretaCLI/.idea/vcs.xml @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/KretaCLI.sln b/KretaCLI.sln new file mode 100644 index 0000000..8e925ec --- /dev/null +++ b/KretaCLI.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 17 +VisualStudioVersion = 17.9.34407.89 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "KretaCLI", "KretaCLI\KretaCLI.vbproj", "{3253C6CB-65FC-4FFE-8B84-E20957B1A784}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {3253C6CB-65FC-4FFE-8B84-E20957B1A784}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {3253C6CB-65FC-4FFE-8B84-E20957B1A784}.Debug|Any CPU.Build.0 = Debug|Any CPU + {3253C6CB-65FC-4FFE-8B84-E20957B1A784}.Release|Any CPU.ActiveCfg = Release|Any CPU + {3253C6CB-65FC-4FFE-8B84-E20957B1A784}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {B0BF5AAE-26EE-462A-8815-57990639EEBE} + EndGlobalSection +EndGlobal diff --git a/KretaCLI/KretaCLI.vbproj b/KretaCLI/KretaCLI.vbproj new file mode 100644 index 0000000..f9d2db0 --- /dev/null +++ b/KretaCLI/KretaCLI.vbproj @@ -0,0 +1,13 @@ + + + + Exe + KretaCLI + net8.0 + + + + + + + diff --git a/KretaCLI/Program.vb b/KretaCLI/Program.vb new file mode 100644 index 0000000..026c0f3 --- /dev/null +++ b/KretaCLI/Program.vb @@ -0,0 +1,568 @@ +Imports System.IO +Imports System.Net.Http +Imports System.Reflection +Imports System.Runtime.InteropServices +Imports System.Security.Cryptography +Imports System.Text +Imports Newtonsoft.Json.Linq + +Module Program + Sub Main(args As String()) + Console.ForegroundColor = ConsoleColor.Red + Console.WriteLine( + "Figyelmeztetés: Ennek az programnak a használatával elfogadod, hogy bármi kárért én nem vállalok felelősséget.") + Console.WriteLine( + "Csak saját felhasználásra alkalmas ez a program. (3rd party unofficial Kréta frontend)" + vbCrLf) + Console.ForegroundColor = ConsoleColor.Gray + If args.Length > 0 AndAlso args(0) = "schools" Then + If args.Length > 1 Then + If args.Length > 2 Then + Dim argums = "" + For i = 1 To args.Length - 1 + If i = args.Length - 1 Then + argums += args(i) + Else + argums += args(i) + " " + End If + Next + GetSchools(argums).Wait() + Else + GetSchools(args(1)).Wait() + End If + + Else + Console.WriteLine("Nincs elég paraméter! (schools )") + End If + ElseIf args.Length > 0 AndAlso args(0) = "auth" Then + if not args.Length > 2 andalso not args(1) = "refresh" andalso not args(1) = "logout" Then + Console.WriteLine("Nincs elég paraméter! (auth login @)") + Console.WriteLine("Vagy (auth refresh) ha frissíteni akarod a bejelentkezésed") + Console.WriteLine("Vagy ha kiszeretnél jelentkezni, (auth logout).") + exit sub + end if + If args(1) = "login" Then + if not args(2).Contains("@") then + Console.WriteLine("Elfelejtetted a @-ot! (auth login @)") + Else + Dim split As String() = args(2).Split("@") + Console.WriteLine("Add meg a jelszavad:") + Dim password As String = readpassword() + getBearer(split(0), password, split(1)).Wait() + end if + elseif args(1) = "refresh" Then + AuthRefreshToken().wait() + elseif args(1) = "logout" Then + if not File.Exists(GetStartupPath() + "loginData.json") Then + Console.WriteLine("Miért szeretnél kijelentkezni, ha nem is vagy bejelentkezve?") + exit sub + End If + Console.WriteLine("FIGYELMEZTETÉS: Kijelentkezni készülsz, biztos vagy benne hogy folytatod?") + Console.WriteLine("i(gen) / n(em) (y/n)") + Dim answer As String = Console.ReadLine() + if answer = "i" or answer = "igen" or answer = "y" or answer = "yes" Then + Console.WriteLine("UTOLSÓ FIGYELMEZTETÉS: Még mindig ki szeretnél jelentkezni?") + Console.WriteLine("Ha igen, akkor írd be az iskolád azonosítóját. (pl. klik06982123)") + Dim answer2 As String = ReadPassword() + dim logindata as string = GetStartupPath() + "loginData.json" + dim jsonString as string = file.ReadAllText(logindata) + dim jsonObject as JObject = JObject.Parse(jsonString) + dim school as string = jsonObject("institute_code").ToString() + if answer2.ToLower() = school.ToLower() Then + revokeRefreshToken().Wait() + File.Delete(logindata) + Console.WriteLine("Sikeresen kijelentkeztél.") + Else + Console.WriteLine("Az iskolád azonosítója nem egyezik a bejelentkezett iskoládéval.") + Console.WriteLine("Kijelentkezés megszakítva.") + End If + end if + Else + Console.WriteLine("Nincs elég paraméter! (auth login @)") + Console.WriteLine("Vagy (auth refresh) ha frissíteni akarod a bejelentkezésed") + Console.WriteLine("Vagy ha kiszeretnél jelentkezni, (auth logout).") + End If + elseif args.Length > 0 andalso args(0) = "help" Then + Console.WriteLine("KRÉTA CLI " + Version) + Console.WriteLine(vbcrlf) + Console.Writeline("Parancsok:") + Console.ForegroundColor = ConsoleColor.Yellow + Console.Write("auth ") + Console.ForegroundColor = ConsoleColor.Gray + Console.Write("@") + Console.WriteLine(vbtab + " - Bejelentkezés a fiókba (Token generálás)") + Console.ForegroundColor = consolecolor.DarkCyan + Console.Writeline(vbTab + "Példa: hatizsak@klik06982123") + Console.WriteLine() + Console.ForegroundColor = ConsoleColor.Yellow + Console.Write("auth ") + Console.ForegroundColor = ConsoleColor.Gray + Console.Write("refresh") + Console.WriteLine(vbtab + " - Token frissítése") + Console.ForegroundColor = ConsoleColor.DarkCyan + Console.WriteLine() + Console.ForegroundColor = ConsoleColor.Yellow + Console.Write("auth ") + Console.ForegroundColor = ConsoleColor.Gray + Console.Write("logout") + Console.WriteLine(vbtab + " - Kijelentkezés") + Console.WriteLine() + Console.ForegroundColor = ConsoleColor.Yellow + Console.Write("schools ") + Console.ForegroundColor = ConsoleColor.Gray + Console.Write("") + Console.WriteLine(vbtab + " - Iskolák keresése") + Console.ForegroundColor = ConsoleColor.DarkCyan + Console.WriteLine(vbTab + "Példa: schools klik") + Console.WriteLine() + Console.ForegroundColor = ConsoleColor.Yellow + Console.Write("adatlap ") + Console.ForegroundColor = ConsoleColor.Gray + Console.Write("") + Console.WriteLine(vbtab + " - Adatlap lekérése") + Console.WriteLine() + Console.ForegroundColor = ConsoleColor.yellow + Console.write("changelog") + Console.ForegroundColor = ConsoleColor.Gray + Console.WriteLine(vbtab + " - Verzióváltások") + Console.WriteLine() + Console.ForegroundColor = ConsoleColor.yellow + Console.write("privacy") + Console.ForegroundColor = ConsoleColor.Gray + Console.WriteLine(vbtab + " - Adatvédelmi cucc (idk mi a neve)") + Console.WriteLine() + Elseif args.Length > 0 andalso args(0) = "adatlap" Then + if args.Length > 1 Then + if args(1) = "tanulo" Then + TanuloiAdatlap().Wait() + elseif args(1) = "gondviselo" Then + Console.WriteLine("Ha tanulói fiókkal vagy ez nagy eséllyel nem fog menni." + vbcrlf) + GondviseloiAdatlap().wait() + Else + Console.WriteLine("Ismeretlen paraméter! (adatlap )") + End If + Else + Console.WriteLine("Nincs elég paraméter! (adatlap )") + End If + elseif args.Length > 0 andalso args(0) = "changelog" then + Console.WriteLine(Readonlymodule.Changelog) + elseif args.Length > 0 andalso args(0) = "privacy" Then + Console.WriteLine(Readonlymodule.Privacy) + Else + Console.WriteLine("Ismeretlen parancs, kérlek használd a segítséget. (help)") + End If + End Sub + + Private Function GetSchools(search As String) As Task + Dim task As Task = Task.Run( + Sub() + dim path as string = GetStartupPath() + "schools.json" + Dim lastWriteTime As DateTime = File.GetLastWriteTime(path) + Dim timediff As TimeSpan = DateTime.Now.Subtract(lastWriteTime) + If File.Exists(path) AndAlso timediff.TotalHours < 10 AndAlso Not timediff.TotalHours < 0 Then + Dim schools As String = File.ReadAllText(path) + Console.ForegroundColor = ConsoleColor.DarkGreen + Console.WriteLine("Volt egy már cachelt változat, ami {0} órája volt letöltve.", + timediff.TotalHours.ToString("0.0")) + Console.ForegroundColor = ConsoleColor.Gray + Dim sarray = "" + Dim searchIndex As Integer = schools.ToLower.IndexOf(search.ToLower, StringComparison.Ordinal) + If searchIndex = - 1 Then + Console.WriteLine("Nincs találat, próbálj valami mást.") + Else + searchIndex = 0 + Dim jArray As JArray = JArray.Parse(schools) + For Each jObject As JObject In jArray + Dim nev As String = jObject("nev").ToString().ToLower() + Dim azonosito As String = jObject("azonosito").ToString().ToLower() + Dim found = False + If nev.Contains(search.ToLower, StringComparison.CurrentCultureIgnoreCase) Then + searchIndex += 1 + sarray += jObject.ToString + found = True + End If + If found = False Then + If azonosito.Contains(search.ToLower, StringComparison.CurrentCultureIgnoreCase) _ + Then + searchIndex += 1 + sarray += jObject.ToString + End If + End If + Next + If searchIndex = 1 Then + Console.WriteLine(sarraygen(sarray)) + Else + Dim arrays As String() = sarray.Split("}{").ToArray + Dim number = 0 + For Each sarray In arrays + number += 1 + Console.WriteLine(vbCrLf + "{0}. Találat", number.ToString) + Console.WriteLine(sarraygen(sarray)) + Next + Console.WriteLine(vbCrLf) + Console.WriteLine("A parancs 1-nél több iskolát ({0}) talált.", number.ToString) + Console.WriteLine("Ha lehet kicsit specifikusabban add meg a nevét!") + End If + End If + Else + Dim client = New HttpClient() + client.DefaultRequestHeaders.Add("api-version", "v1") + Dim response As HttpResponseMessage = + client.GetAsync("https://kretaglobalapi.e-kreta.hu/intezmenyek/kreta/publikus").Result + If response.IsSuccessStatusCode Then + Dim schools As String = response.Content.ReadAsStringAsync().Result + File.Delete(path) + File.WriteAllText(path, schools) + Dim sarray = "" + Dim searchIndex As Integer = schools.ToLower.IndexOf(search.ToLower, + StringComparison.Ordinal) + If searchIndex = - 1 Then + Console.WriteLine("Nincs találat, próbálj valami mást.") + Else + searchIndex = 0 + Dim jArray As JArray = JArray.Parse(schools) + For Each jObject As JObject In jArray + Dim nev As String = jObject("nev").ToString().ToLower() + Dim azonosito As String = jObject("azonosito").ToString().ToLower() + Dim found = False + If nev.Contains(search.ToLower, StringComparison.CurrentCultureIgnoreCase) Then + searchIndex += 1 + sarray += jObject.ToString + found = True + End If + If found = False Then + If azonosito.Contains(search.ToLower, StringComparison.CurrentCultureIgnoreCase) _ + Then + searchIndex += 1 + sarray += jObject.ToString + End If + End If + Next + If searchIndex = 1 Then + Console.WriteLine(sarraygen(sarray)) + Else + Dim arrays As String() = sarray.Split("}{").ToArray + Dim number = 0 + For Each sarray In arrays + number += 1 + Console.WriteLine(vbCrLf + "{0}. Találat", number.ToString) + Console.WriteLine(sarraygen(sarray.ToString())) + Next + Console.WriteLine(vbCrLf) + Console.WriteLine("A parancs 1-nél több iskolát ({0}) talált.", number.ToString) + Console.WriteLine("Ha lehet kicsit specifikusabban add meg a nevét!") + End If + End If + Else + Console.WriteLine("Hiba, {0}", response.StatusCode) + End If + + End If + End Sub) + Return task + End Function + + Private Function SarrayGen(stringarray As String) + Dim str As String = stringarray.Replace(" ", "").Replace(": ", ":") + dim list + if RuntimeInformation.IsOSPlatform(OSPlatform.Windows) then + list = New List(Of String)(str.Split(New String() {vbCrLf}, StringSplitOptions.None)) + Else + list = New List(Of String)(str.Split(New String() {vbLf}, StringSplitOptions.None)) + end if + dim azonosito as string = + list.Item(2).Replace("""azonosito"":""", "Azonosító: ").Replace(""",", "").Replace(vbCrLf, ""). + ToString + dim nev as String = + list.Item(3).Replace("""nev"":""", "Név: ").Replace(""",", "").Replace(vbCrLf, "").ToString + If nev.Contains("\""") Then + nev = nev.Replace("\""", "") + End If + dim link as String = + list.Item(6).Replace("""kretaLink"":""", "Link: ").Replace(""",", "").Replace(vbCrLf, "").ToString + Dim final As String = vbCrLf + azonosito + vbCrLf + nev + vbCrLf + link + Return final + End Function + + Private Function GetNonce() + Dim nonce = "" + Dim client = New HttpClient() + Dim response As HttpResponseMessage = client.GetAsync("https://idp.e-kreta.hu/nonce").Result + If response.IsSuccessStatusCode Then + nonce = response.Content.ReadAsStringAsync().Result + Else + Console.WriteLine("Hiba, {0}", response.StatusCode) + End If + Return nonce + End Function + + Private Function GetStartupPath() As String + dim path as string = IO.Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location) + if RuntimeInformation.IsOSPlatform(OSPlatform.Windows) Then + path = path + "\" + Else + path = path + "/" + End if + Return path + End Function + ' megfogom ölni magam + Private Function GetBearer(username As String, password As String, instituteCode As String) As Task + Dim task As Task = Task.Run( + Sub() + Dim client = New HttpClient() + Dim nonce As String = getNonce() + Dim authpoolkey As String = GenAuthorizationPolicy(username, institutecode, nonce) + Dim content = New FormUrlEncodedContent(New Dictionary(Of String, String) From { + {"userName", username}, + {"password", password}, + {"institute_code", institutecode}, + {"grant_type", "password"}, + {"client_id", "kreta-ellenorzo-mobile-android"} + }) + client.DefaultRequestHeaders.Add("X-Authorizationpolicy-Key", authpoolkey) + client.DefaultRequestHeaders.Add("X-Authorizationpolicy-Version", "v2") + client.DefaultRequestHeaders.Add("X-Authorizationpolicy-Nonce", nonce) + Dim response As HttpResponseMessage = + client.PostAsync("https://idp.e-kreta.hu/connect/token", content).Result + If response.IsSuccessStatusCode Then + Dim result As String = response.Content.ReadAsStringAsync.Result + Console.WriteLine("Sikeres lekérés mentve.") + Try + Dim path As String = GetStartupPath() + "login.json" + File.Delete(path) + File.WriteAllText(path, result) + path = GetStartupPath() + "loginData.json" + File.Delete(path) + Dim jObject As JObject = JObject.Parse(result) + Dim token As String = jObject("access_token").ToString() + Dim refreshToken As String = jObject("refresh_token").ToString() + Dim json As String = "{""access_token"":""" + token + """," + vbCrLf + """refresh_token"":""" + + refreshToken + """," + vbCrLf + """institute_code"":""" + instituteCode + + """}" + File.WriteAllText(path, json) + File.Delete(GetStartupPath() + "login.json") + Catch ex As Exception + Console.WriteLine("Hiba történt a mentés során.") + Exit Try + End Try + Console.WriteLine("Adatok elmentve!") + Else + Console.WriteLine("Hiba, {0}", response.StatusCode) + Console.WriteLine("{0}", response.Content.ReadAsStringAsync().Result) + End If + End Sub) + Return task + End Function + + Private Function GenAuthorizationPolicy(username As String, institutecode As String, nonce As String) + Const hmacKey = "baSsxOwlU1jM" + Dim hmac = New HMACSHA512(Encoding.UTF8.GetBytes(hmacKey)) + Dim unenc As String = institutecode.ToUpper + nonce + username.ToUpper + Dim enc As Byte() = hmac.ComputeHash(Encoding.UTF8.GetBytes(unenc)) + Dim base64 As String = Convert.ToBase64String(enc) + Return base64 + End Function + + private function TanuloiAdatlap() as task + dim task as task = task.run(Sub() + Dim lastWriteTime As DateTime = File.GetLastWriteTime(getstartuppath + "diakadatlap.json") + Dim timediff As TimeSpan = DateTime.Now.Subtract(lastWriteTime) + if _ + File.Exists(getstartuppath + "diakadatlap.json") AndAlso timediff.TotalHours < 10 AndAlso + Not timediff.TotalHours < 0 Then + Dim diakadatlap As String = File.ReadAllText(getstartuppath + "diakadatlap.json") + Console.ForegroundColor = ConsoleColor.DarkGreen + Console.WriteLine("Volt egy már cachelt változat, ami {0} órája volt letöltve.", + timediff.TotalHours.ToString("0.0")) + Console.ForegroundColor = ConsoleColor.Gray + Console.WriteLine(diakadatlap) + Else + dim client = new HttpClient() + dim apikey = "21ff6c25-d1da-4a68-a811-c881a6057463" + client.DefaultRequestHeaders.Add("apiKey", apikey) + dim path as string = GetStartupPath() + "loginData.json" + dim token as string + dim school as string + if File.Exists(path) Then + dim jsonString as string = file.ReadAllText(path) + dim jsonObject as JObject = JObject.Parse(jsonString) + token = jsonObject("access_token").ToString() + school = jsonObject("institute_code").ToString() + Else + Console.WriteLine("Jelenleg nem vagy authentikálva / nem található a loginData.json fájl.") + Console.WriteLine("Kérlek használd az auth parancsot.") + exit sub + End If + client.DefaultRequestHeaders.Add("Authorization", "Bearer " + token) + dim response as HttpResponseMessage = + client.GetAsync("https://" + school + ".e-kreta.hu/ellenorzo/v3/sajat/TanuloAdatlap").Result + if response.IsSuccessStatusCode Then + dim savepath as string = getstartuppath + "diakadatlap.json" + Dim result As String = response.Content.ReadAsStringAsync.Result + File.Delete(savepath) + File.WriteAllText(savepath, result) + Console.WriteLine(result) + Else + Console.WriteLine("Hiba, {0}", response.StatusCode) + Console.WriteLine("{0}", response.Content.ReadAsStringAsync().Result) + End If + End If + end sub) + return task + End function + + private function GondviseloiAdatlap() as task + dim task as task = task.run(Sub() + Dim lastWriteTime As DateTime = File.GetLastWriteTime(getstartuppath + "szuloadatlap.json") + Dim timediff As TimeSpan = DateTime.Now.Subtract(lastWriteTime) + if file.Exists(getstartuppath + "szuloadatlap.json") AndAlso timediff.TotalHours < 10 AndAlso + Not timediff.TotalHours < 0 Then + dim szuloadatlap as string = file.ReadAllText(getstartuppath + "szuloadatlap.json") + Console.ForegroundColor = ConsoleColor.DarkGreen + Console.WriteLine("Volt egy már cachelt változat, ami {0} órája volt letöltve.", + timediff.TotalHours.ToString("0.0")) + Console.ForegroundColor = ConsoleColor.Gray + Console.WriteLine(szuloadatlap) + Else + dim client = new HttpClient() + dim apikey = "21ff6c25-d1da-4a68-a811-c881a6057463" + client.DefaultRequestHeaders.Add("apiKey", apikey) + dim path as string = GetStartupPath() + "loginData.json" + dim token as string + dim school as string + if File.Exists(path) Then + dim jsonString as string = file.ReadAllText(path) + dim jsonObject as JObject = JObject.Parse(jsonString) + token = jsonObject("access_token").ToString() + school = jsonObject("institute_code").ToString() + Else + Console.WriteLine("Jelenleg nem vagy authentikálva / nem található a loginData.json fájl.") + Console.WriteLine("Kérlek használd az auth parancsot.") + exit sub + End If + client.DefaultRequestHeaders.Add("Authorization", "Bearer " + token) + dim response as HttpResponseMessage = + client.GetAsync("https://" + school + ".e-kreta.hu/ellenorzo/v3/sajat/GondviseloAdatlap").Result + if response.IsSuccessStatusCode Then + dim savepath as string = getstartuppath + "szuloadatlap.json" + Dim result As String = response.Content.ReadAsStringAsync.Result + File.Delete(savepath) + File.WriteAllText(savepath, result) + Console.WriteLine(result) + Else + if response.StatusCode.ToString() = "Forbidden" Then + Console.WriteLine("Használj inkább tanulói adatlapot! (adatlap tanulo)") + End If + Console.WriteLine("Hiba, {0}", response.StatusCode) + Console.WriteLine("{0}", response.Content.ReadAsStringAsync().Result) + End If + End If + end sub) + return task + End function + + private function AuthRefreshToken() as task + dim task as task = Task.run( + Sub() + dim client = new HttpClient() + dim path as string = GetStartupPath() + "loginData.json" + dim refreshtok as string + dim institutecode as string + if File.Exists(path) Then + dim jsonString as string = file.ReadAllText(path) + dim jsonObject as JObject = JObject.Parse(jsonString) + refreshtok = jsonObject("refresh_token").ToString() + institutecode = jsonObject("institute_code").ToString() + Else + Console.WriteLine("Nem voltál authentikálva / nem található a loginData.json fájl.") + Console.WriteLine("Kérlek használd az auth parancsot.") + exit sub + End If + Dim content = New FormUrlEncodedContent(New Dictionary(Of String, String) From { + {"institute_code", institutecode}, + {"refresh_token", refreshtok}, + {"grant_type", "refresh_token"}, + {"client_id", "kreta-ellenorzo-mobile-android"} + }) + dim response as HttpResponseMessage = + client.PostAsync("https://idp.e-kreta.hu/connect/token", content).Result + If response.IsSuccessStatusCode Then + Dim result As String = response.Content.ReadAsStringAsync.Result + Console.WriteLine("Sikeres lekérés mentve.") + Try + path = GetStartupPath() + "login.json" + File.Delete(path) + File.WriteAllText(path, result) + path = GetStartupPath() + "loginData.json" + File.Delete(path) + Dim jObject As JObject = JObject.Parse(result) + Dim token As String = jObject("access_token").ToString() + Dim refreshToken As String = jObject("refresh_token").ToString() + Dim json As String = "{""access_token"":""" + token + """," + vbCrLf + """refresh_token"":""" + + refreshToken + """," + vbCrLf + """institute_code"":""" + instituteCode + + """}" + File.WriteAllText(path, json) + file.Delete(GetStartupPath() + "login.json") + Catch ex As Exception + Console.WriteLine("Hiba történt a mentés során.") + Exit Try + End Try + Console.WriteLine("Adatok elmentve!") + Else + Console.WriteLine("Hiba, {0}", response.StatusCode) + Console.WriteLine("{0}", response.Content.ReadAsStringAsync().Result) + End If + end sub) + return task + End function + + private Function ReadPassword() As String + Dim password As New System.Text.StringBuilder() + While True + Dim info As ConsoleKeyInfo = Console.ReadKey(True) + If info.Key = ConsoleKey.Enter Then + Console.WriteLine() + Exit While + ElseIf info.Key = ConsoleKey.Backspace Then + If password.Length > 0 Then + password.Remove(password.Length - 1, 1) + Console.Write(vbBack) + Console.Write(" ") + Console.Write(vbBack) + End If + Else + password.Append(info.KeyChar) + Console.Write("*") + End If + End While + Return password.ToString() + End Function + + private function RevokeRefreshToken() as Task + dim task as task = task.run( + Sub() + dim client = new HttpClient() + dim path as string = GetStartupPath() + "loginData.json" + dim refreshtok as string + if File.Exists(path) Then + dim jsonString as string = file.ReadAllText(path) + dim jsonObject as JObject = JObject.Parse(jsonString) + refreshtok = jsonObject("refresh_token").ToString() + Else + exit sub + End If + Dim content = New FormUrlEncodedContent(New Dictionary(Of String, String) From { + {"token", refreshtok}, + {"client_id", "kreta-ellenorzo-mobile-android"} + }) + dim response as HttpResponseMessage = + client.PostAsync("https://idp.e-kreta.hu/connect/revocation", content).Result + If response.IsSuccessStatusCode Then + Console.WriteLine("Refresh token érvénytelenítve.") + Else + Console.WriteLine("Hiba, {0}", response.StatusCode) + Console.WriteLine("{0}", response.Content.ReadAsStringAsync().Result) + End If + end sub) + return task + End function +End Module diff --git a/KretaCLI/readonlymodule.vb b/KretaCLI/readonlymodule.vb new file mode 100644 index 0000000..fecb8bf --- /dev/null +++ b/KretaCLI/readonlymodule.vb @@ -0,0 +1,29 @@ +Module Readonlymodule + Public ReadOnly Version as string = "1.3" + + ' lejebb = újabb + Public ReadOnly _ + Changelog as string = "innentől van changelog baszomaszád" + vbcrlf + vbcrlf + "1.1" + vbcrlf + + "+ Kijelentkezés" + + vbCrlf + + "+ Bejelentkezést lefrissítő rendszer" + + vbcrlf + + "+ login.json törlő" + vbcrlf + "+ Adatlap lekérő" + vbcrlf + vbcrlf + "1.2" + vbcrlf + + "+ Jelszó elrejtés bejelentkezésnél" + vbcrlf + "+ user@host felállás bejelentkezésnél" + + vbcrlf + vbcrlf + "1.3" + vbcrlf + "+ Refresh token érvénytelenítés kijelentkezésnél" + + public ReadOnly Privacy as string = "Az adataid védelme a te kezedben van és sorsuk rajtad múlik." + vbCrLf + + "Ha ellopják vagy bármi történik vele és rossz kezekbe kerül az a te problémád." + + vbcrlf + + "Ez a program nem táról / küld el semmilyen adatot se." + vbcrlf + + "Ha a Kréta rossz kezekbe kerül, akkor a Krétát hibáztasd. (Már volt rá példa)" + + vbtab + + "Ettől eltekintve mégis erőltetik a Krétát, mert állami" + vbcrlf + vbcrlf + + "Az alkalmazás a Kréta szerverek és a te géped között dobálja az adatokat, titkosítással. (https (legalább erre futotta az állami támogatás, mármint a Krétának))" + + vbcrlf + + "Kréta adatkezelési tájékoztató: https://tudasbazis.ekreta.hu/pages/viewpage.action?pageId=4065038" + + vbcrlf + vbcrlf + "Ez a szépséges alkalmazás nem gyűjt használati adatot." + + vbcrlf + + "+ Ha összeomlik nincs hibajelentés úgyhogy majd valahogy bejelented. (igen basztam ilyet csinálni)" + + vbcrlf + "Kérdésed van vagy kő a szórsz? contact@balazsmanus.hu" +End Module \ No newline at end of file diff --git a/README.md b/README.md new file mode 100644 index 0000000..e39d2d7 --- /dev/null +++ b/README.md @@ -0,0 +1,4 @@ +# KrétaCLI +![kretacli_logo](https://github.com/BalazsManus/KretaCLI/assets/82440273/ab03d34e-046c-401f-8b9b-1dd941cd1910) + +VB.NET-be íródott, szóval a leghülyébb embernek is értenie kell a kódot. diff --git a/build.bat b/build.bat new file mode 100644 index 0000000..450bad1 --- /dev/null +++ b/build.bat @@ -0,0 +1,12 @@ +@echo off +rmdir /s /q "KretaCLI\bin\Release\net8.0\" + +dotnet publish --no-dependencies --self-contained true --os linux +dotnet publish --no-dependencies --self-contained true --os win + +del /q build\* +rmdir /s /q build +mkdir build + +tar -cf build\linux-x64.zip -C KretaCLI\bin\Release\net8.0\linux-x64\publish . +tar -cf build\win-x64.zip -C KretaCLI\bin\Release\net8.0\win-x64\publish . \ No newline at end of file diff --git a/build.sh b/build.sh new file mode 100644 index 0000000..8ae021d --- /dev/null +++ b/build.sh @@ -0,0 +1,17 @@ +#!/bin/bash + +# clean (delete) folders before build +rm -r KretaCLI/bin/Release/net8.0/ + +# make packages with dotnet8 preinstalled +# those will be x64 only and they will be put into the publish folder under the platform name +dotnet publish --no-dependencies --self-contained true --os linux +dotnet publish --no-dependencies --self-contained true --os win + +# remake build folder +rm -r build/ +mkdir build + +# zip em' +zip -r build/linux-x64.zip KretaCLI/bin/Release/net8.0/linux-x64/publish/ +zip -r build/win-x64.zip KretaCLI/bin/Release/net8.0/win-x64/publish/ diff --git a/docs/index.html b/docs/index.html new file mode 100644 index 0000000..56bd13c --- /dev/null +++ b/docs/index.html @@ -0,0 +1,59 @@ + + + + + KrétaCLI + + + + + +
+
+ 
+                                       =@@@@@@@@@@                                        
+                                        -@@@@@@@%                                         
+                                         =@@@@@@:                                         
+                                         .@@@@@-                                          
+                                           @@@                                            
+                                                                                          
+@@@@@     =@@@@@@@:@@@@@@@@@@@@==    @@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@@=     =@@          
+@@@@@   -@@@@@@*-  @@@@@@@@@@@@@@%-  @@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@@=    *@@@@-        
+@@@@@  #@@@@@@#    @@@@@@@@@@@@@@@@  @@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@@=   @@@@@@@:       
+@@@@@*@@@@@@*-     @@@@@@    .@@@@@* @@@@@                 =@@@@@         %@@@@@@@%       
+@@@@@@@@@@@:       @@@@@@   =#@@@@@= @@@@@=========        =@@@@@        @@@@@@@@@@@      
+@@@@@@@@@@@-       @@@@@@@@@@@@@@@*  @@@@@@@@@@@@@@        =@@@@@      .@@@@@@%@@@@@@-    
+@@@@@@@@@@@@=      @@@@@@@@@@@@@@:   @@@@@@@@@@@@@@        =@@@@@      #@@@@@@ =@@@@@@:   
+@@@@@*-*@@@@@*     @@@@@@-*@@@@@-    @@@@@---------        =@@@@@     *@@@@@*   -@@@@@*   
+@@@@@   *@@@@@%    @@@@@@  @@@@@@-   @@@@@                 =@@@@@   -@@@@@%      -@@@@@*  
+@@@@@    =@@@@@@   @@@@@@   @@@@@@   @@@@@@@@@@@@@@@=      =@@@@@  :@@@@@@:       =@@@@@@ 
+@@@@@      %@@@@@* @@@@@@    %@@@@@  @@@@@@@@@@@@@@@=      =@@@@@  %@@@@@-         *@@@@@*
+@@@@@      :@@@@@@=@@@@@@    :@@@@@@ @@@@@@@@@@@@@@@=      =@@@@@ @@@@@@            =@@@@@
+                                                                                          
+                                           =@@                                            
+                                          *@@@@-                                          
+                                         =@@@@@@:                                         
+                                        -@@@@@@@%                                         
+
+
+
+ + + \ No newline at end of file