albert/kretacli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

init kretacli

Browse source
This commit is contained in:
skidoodle 2024-04-05 19:29:02 +02:00
commit 96b8700a57
14 changed files with 1188 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

63
.gitattributes vendored Normal file
View file

@ -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

366
.gitignore vendored Normal file
View file

@ -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/

14
.idea/.idea.KretaCLI/.idea/.gitignore generated vendored Normal file
View file

@ -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

4
.idea/.idea.KretaCLI/.idea/encodings.xml generated Normal file
View file

@ -0,0 +1,4 @@
<?xml version="1.0" encoding="UTF-8"?>
<project version="4">
<component name="Encoding" addBOMForNewFiles="with BOM under Windows, with no BOM otherwise" />
</project>

8
.idea/.idea.KretaCLI/.idea/indexLayout.xml generated Normal file
View file

@ -0,0 +1,8 @@
<?xml version="1.0" encoding="UTF-8"?>
<project version="4">
<component name="UserContentModel">
<attachedFolders />
<explicitIncludes />
<explicitExcludes />
</component>
</project>

6
.idea/.idea.KretaCLI/.idea/vcs.xml generated Normal file
View file

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<project version="4">
<component name="VcsDirectoryMappings">
<mapping directory="" vcs="Git" />
</component>
</project>

25
KretaCLI.sln Normal file
View file

@ -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

13
KretaCLI/KretaCLI.vbproj Normal file
View file

@ -0,0 +1,13 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>Exe</OutputType>
<RootNamespace>KretaCLI</RootNamespace>
<TargetFramework>net8.0</TargetFramework>
</PropertyGroup>
<ItemGroup>
<PackageReference Include="Newtonsoft.Json" Version="13.0.3"/>
</ItemGroup>
</Project>

568
KretaCLI/Program.vb Normal file
View file

@ -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 <Iskola neve/azonosítója>)")
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 <felhasználónév>@<iskola-azonosító>)")
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 <felhasználónév>@<iskola-azonosító>)")
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 <felhasználónév>@<iskola-azonosító>)")
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("<felhasználónév>@<iskola-azonosító>")
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("<Iskola neve/azonosítója>")
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("<tanulo/gondviselo>")
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 <tanulo/gondviselo>)")
End If
Else
Console.WriteLine("Nincs elég paraméter! (adatlap <tanulo/gondviselo>)")
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

29
KretaCLI/readonlymodule.vb Normal file
View file

@ -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

4
README.md Normal file
View file

@ -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.

12
build.bat Normal file
View file

@ -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 .

17
build.sh Normal file
View file

@ -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/

59
docs/index.html Normal file
View file

@ -0,0 +1,59 @@
<!DOCTYPE html>
<html>
<head>
<title>KrétaCLI</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<style>
@import url('https://fonts.googleapis.com/css2?family=JetBrains+Mono:ital,wght@0,100..800;1,100..800&display=swap');
body {
font-family: 'JetBrains Mono', monospace;
background-color: #222222;
color: #cccccc;
-webkit-user-select: none;
-khtml-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
code {
white-space: pre;
}
</style>
</head>
<body>
<div style="display: flex;justify-content: center;">
<div style="text-align: center; max-width: 705px;">
<pre style="white-space: pre;">
<code> =@@@@@@@@@@
-@@@@@@@%
=@@@@@@:
.@@@@@-
@@@
@@@@@ =@@@@@@@:@@@@@@@@@@@@== @@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@@= =@@
@@@@@ -@@@@@@*- @@@@@@@@@@@@@@%- @@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@@= *@@@@-
@@@@@ #@@@@@@# @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@@= @@@@@@@:
@@@@@*@@@@@@*- @@@@@@ .@@@@@* @@@@@ =@@@@@ %@@@@@@@%
@@@@@@@@@@@: @@@@@@ =#@@@@@= @@@@@========= =@@@@@ @@@@@@@@@@@
@@@@@@@@@@@- @@@@@@@@@@@@@@@* @@@@@@@@@@@@@@ =@@@@@ .@@@@@@%@@@@@@-
@@@@@@@@@@@@= @@@@@@@@@@@@@@: @@@@@@@@@@@@@@ =@@@@@ #@@@@@@ =@@@@@@:
@@@@@*-*@@@@@* @@@@@@-*@@@@@- @@@@@--------- =@@@@@ *@@@@@* -@@@@@*
@@@@@ *@@@@@% @@@@@@ @@@@@@- @@@@@ =@@@@@ -@@@@@% -@@@@@*
@@@@@ =@@@@@@ @@@@@@ @@@@@@ @@@@@@@@@@@@@@@= =@@@@@ :@@@@@@: =@@@@@@
@@@@@ %@@@@@* @@@@@@ %@@@@@ @@@@@@@@@@@@@@@= =@@@@@ %@@@@@- *@@@@@*
@@@@@ :@@@@@@=@@@@@@ :@@@@@@ @@@@@@@@@@@@@@@= =@@@@@ @@@@@@ =@@@@@
=@@
*@@@@-
=@@@@@@:
-@@@@@@@% </code>
</pre>
</div>
</div>
</body>
</html>