Meine Libary von mir die ich erweitern werde mit meinen UDF's

qon

Hi Leute,

will euch mal 4 (edit: 5 edit2: 6) Funktionen von mir vorstellen die ich oft gut gebrauchen konnte.
Will sie euch nicht vorenthalten.
Weiss nicht obs manche von den Funktionen schon gab, wenn isses mir auch egal
_stringencrypt kannte ich aber wollte was eigenes machen, das gleiche bei _xGetip() wobei es mir da noch mehr auf den kürzeren Code ankam.

Hier der Code mit ein paar Beispielen, im Anhang aber auch nochmal die richtigen UDF's (Libary) die man natürlich für die Beispiele braucht.
Über etwas Feedback würd ich mich freuen

Spoiler anzeigen

[autoit]

#include "qonLibary.au3"

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _random09az
$lol = _Random09az(5000)
msgbox(0,"_random19az",$lol)

[/autoit] [autoit][/autoit] [autoit]

$lol = _Random09az(5)
msgbox(0,"_random19az",$lol)

[/autoit] [autoit][/autoit] [autoit]

$lol = _Random09az()
msgbox(0,"_random19az",$lol)

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _inetgetau3time
;~ $lol = _inetgetau3time()
;~ msgbox(64,"Autoit.de Zeit","Autoit.de sagt mir, dass es jetzt " & $lol[0] & " Uhr ist.")
;~ _arraydisplay($lol)

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _regread
$lol = _regread("Derkey\wirdsicher\nichgefunden","Wert","Der Standard :)")
msgbox(0,"_regread",$lol)

[/autoit] [autoit][/autoit] [autoit]

$lol = _regread("Derkey\wirdsicher\nichgefunden","Wert")
msgbox(0,"_regread",@error)

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _wordinstr
$lol = _wordinstr("Dies ist kein Sachtext","ein")
msgbox(0,"_wordinstr - stringinstr würde ja sagen (falsch wenn man ein wort sucht)",$lol)

[/autoit] [autoit][/autoit] [autoit]

$lol = _wordinstr("Dies ist ein Sachtext","ein")
msgbox(0,"_wordinstr - stringinstr würde ja sagen (richtig auch wenn man ein wort sucht)",$lol)

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _qoncrypt
$lol = _qoncrypt("Das hier ist ein Text",1)
msgbox(0,"_qoncrypt",$lol)
$lol = _qoncrypt($lol,0)
msgbox(0,"_qoncrypt",$lol)

[/autoit] [autoit][/autoit] [autoit]

$lol = _qoncrypt("Das auch",1,10)
msgbox(0,"_qoncrypt",$lol)
$lol = _qoncrypt($lol,0,10)
msgbox(0,"_qoncrypt",$lol)

[/autoit] [autoit][/autoit] [autoit]

;Beispiel _xGetIp
;~ $lol = _xgetip()
;~ msgbox(0,"IP Address",$lol)

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _IsPrime
$File = FileOpen("primenumbers.txt",1)
FileWriteLine($File,"all prime numbers between 1 and 1000")
For $i = 1 to 1000
If _IsPrime($i) = 1 Then
FileWriteLine($File,$i)
EndIf
Next
FileClose($File)
msgbox(0,"2063",_IsPrime(2063))
msgbox(0,"1385",_IsPrime(1385))

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _GetCountry
$lol = _GetCountry()
msgbox(0,"Your Country",$lol)

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _CheckIpConnect
$lol = _CheckIpConnect("192.168.0.200")
If $lol = 1 then
msgbox(0,"","du hast eine connection zur ip 192.168.0.200 [das ist in qons fall ein router]")
Else
msgbox(0,"","du hast KEINE connection zur ip 192.168.0.200 [das ist in qons fall ein router]")
EndIf

[/autoit] [autoit][/autoit] [autoit]

;Beispiele _CheckProcessConnect
$lol = _CheckProcessConnect("icq.exe")
$lol2 = _CheckProcessConnect("icqlite.exe")
If $lol = 1 or $lol2 = 1 then
msgbox(0,"","du bist im icq connected ;)")
Else
msgbox(0,"","dein icq ist nicht connected")
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Edit:
Hab die UDF's mal noch etwas angepasst an eine "Codenorm" die hier im Forum zu finden ist ( natürlich kein muss aber dient zur Übersicht ).
Und 2 Funktionen hinzugefügt.
Ich werd diese Libary immer weiter erweitern um meine neuen Funktionen die ich so schreibe, da könnt ihr sie benutzen.
Edit:
Wieder neue Funktionen hinzugefügt, _InetGetAu3Time und _xGetIp erstmal auskommentiert im Beispiel, da diese zur Zeit nicht funktioniern, werd ich aber bald fixen

LG qon

qon

So..,

Habe mal meine Funktion _qoncrypt noch fertig gemacht und die Beispiele verändert.
Auserdem gibt die Funktion _random09az jetzt auch GROßBUCHSTABEN zurück
Und hab sie umbenannt von _random19az in _random09az, da sie ja die Null auch dabei ist

Kommt schon etwas Feedback geht

mfg qon

Fast2

Naja also: Coole UDF, werd ich öfters benutzen...
Ne jetzt im Ernst: Ich finde die UDF cool aber irgendwie habe ich erst mal keine Verwendung dafür.

[KdD]Wolf

Hi qon

Jaaaa! ... ich finde die wirklich toll ... ECHT JETZT besonders die _qoncrypt() aber doof is daran das man das verschlüsselte nich irgendwie schützen kann wie bei der _StringEncrypt() da kann nämich nich jeder einfach das verschlüsselte ein geben und dann entschlüsseln ... oder habe ich das was faltsch verstanden?? Glaube nich oder
_____________
MfG [KdD]Wolf

qon

Soo.. Danke erstmal
Fast2: Die Verwendung kommt ganz bestimmt noch *hoff*

@Wolf: Naja, also du kannst das von _qoncrypt verschlüsselte natürlich ncht mit _stringencrypt wieder entschlüsseln weils ja nen ganz anderes verfahren ist, aber wenn man den sourcecode hat kann man natürlich gucken mit welchem lvl es verschlüsselt wurde und den verschlüsselten text der in der datei steht entschlüsseln. Also siehst du schon richtig. Man könnte den Level ja innerhalb des Skripts mit random(1,20,1) zB festlegen, allerdings muss man den grad ja beim nächsten scriptaufruf irgendwo her kriegen, ums wieder richtig zu entschlüsseln. Achja ...
Mit dem SOurcecode ist praktisch jede verschlüsselung zu knacken ( möglich ) natürlich ist das bei manchen total schwer
ABer hier sowas kann man ja eher verwenden um geheime informationen ( Irgendwelche pw's ) in der registry / ini zu speichern ohne das sie jeder sieht

Edit:
Schaut euch das mal an:

Spoiler anzeigen

[autoit]

#include "qonLibary.au3"
#include <string.au3>
Dim $asd = "Das hier ist mal ein etwas längerer Text der keinen besonderen Sinn hat, sondern einfach nur dazu dient, die Geschwindigkeit zu messen. Oo so viel schreiben ist schon blöd Egal irgendwas muss mir einfallen ... Autoit ist cool, oder? Jaa auf jeden Fall! So noch etwas um den String zu verlängern: ASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASDASD"

[/autoit] [autoit][/autoit] [autoit]

msgbox(0,"","geht jetzt los")

[/autoit] [autoit][/autoit] [autoit]

$timer1 = timerinit()
$lol = _qoncrypt($asd,1,5)
msgbox(0,"",Timerdiff($timer1))
msgbox(0,"",$lol)

[/autoit] [autoit][/autoit] [autoit]

$timer2 = timerinit()
$lol2 = _Stringencrypt(1,$asd,"lol",5)
msgbox(0,"",TimerDiff($timer2))
msgbox(0,"",$lol2)

[/autoit]

Oder hier mal mit meinem auf level 25, auch ellenlang das verschlüsselte am ende aber geht wesentlich schneller

Spoiler anzeigen

[autoit]

$timer3 = timerinit()
$lol3 = _qoncrypt($asd,1,25)
msgbox(0,"",Timerdiff($timer3))
msgbox(0,"",$lol3)

[/autoit]

[autot]

Also bei _Stringencrypt brauch er bei level 5 un nem 3stelligen passwort über 10 sekunden bei mir
mit _qoncrypt ne halbe. Natürlich ists mit _stringencrypt besser Verschlüsselt, aber lesbar isses ohne Sourcecode auch nicht, oder?
mfg qon