Hi!
L3viathan
Habe dir gerade meine Version geschick habe eine Automatisierte mail zurückbekommen das du gerade im Urlaub bist! 
LG Kleienr
[abgeschlossen] µitLight August '10
-
-
Moin, ich meld mich mal an, Mail geht gleich raus.
-
Hi!
Ist es möglich eine Verbesserung o. erweiterung einzuschicken?
Habe da noch eine Func die ich mit bei tun möchte!
LG Kleiner
-
Ja, schon möglich. Deshalb sage ich aber: Bitte erst einschicken, wenn ihr wirklich fertig seid... -
Hab Gestern schon abgegeben.
Mein Mailserver ist aber bissl komisch zurzeit. kam denn schon was an ?mfg
Mars(i) -
nur sagen das ich es nicht mehr schaffe.
Ich hatte mich entschieden eine asymmetrischen Verschlüsslung zu schreiben.
Zu großen Teilen ist der Skript auch fertig, nur fehlt mir für ein paar Funktionen eine effizientere Verarbeitung welche aber für das Gesamtergebnis unablässlich ist.
Ich hab die letzten Tage und Nächte daran gearbeitet
bin aber nicht fertig geworden und fahre morgen nun in den Urlaub.
Denn Skript werde ich wenn ich fertig bin hier im Forum posten
Also dann , allen Anderen dann noch viel Spaß beim schreiben einer eigenen Verschlüsslung
Und für die Schüler noch 2 schöne Ferienwochen
-
Naja, ich hab mal was aus meiner Grabbelkiste nach AU3 portiert. Ist mehr oder weniger eine kleine Spielerei für den Hausgebrauch. Die Performance, die ich unter AU3 herauskitzeln konnte, finde ich allerdings nicht wirklich berauschend. Vielleicht könnt ihr nach Veröffentlichung mal einen Bilck darauf werfen und mir sagen, wie das schneller geht.
Das Skript schicke ich per PM an L3viathan.
Bis dann!
-
hiho..
sorry werde es nicht schaffen es bis heute Abend fertig zu bekommen..
MFG chris
-
Zitat von chrisatack
sorry werde es nicht schaffen es bis heute Abend fertig zu bekommen..Ich warscheinlich auch nicht, Hat noch zuviele Fehler
-
Werds leider auch nicht mehr schaffen.
-
Es kommt doch nicht auf die Fehler an, gebt doch noch ab, was ihr habt. Das gröbste berichtigen, den Rest bewerten wir schon "Dabeisein ist alles". Falls ihr zu dem Geschriebenen eine konstruktive Kritik wollt, seid ihr hier doch richtig. Das ist L3viathans letzter µitLight. Enttäuscht ihn also nicht
Edit: Ja, Urlaubsmail war von mir. Sorry...
-
Das ist L3viathans letzter µitLight. Enttäuscht ihn also nicht
m(
Und ich dachte, ich könnte mir etwas Arbeit ersparen
-
Vergiss es! Wenn du schon Pause machst, dann soll sich die wenigstens lohnen
-
So ich bin gespannt auf die Auswertung und die Scripte von den Anderen
-
Hi!
Ich auch, das erste mal hir im Forum dabei!
LG Keiner
-
So ich bin gespannt auf die Auswertung und die Scripte von den Anderen
Ich auch, spricht denn was dagegen, wenn wir unsere Abgaben hier jetzt schon veröffentlichen, damit wir unsere Abgaben gegenseitig betrachten können ?
-
Eigentlich nicht es werden ja keine Abgaben mehr angenommen.
-
Das denke ich auch, von daher fang ich mal an, ich hab RSA in Autoit abgebildet - gaaaaaanz langsam
[autoit]
[spoiler=RSA pure Autoit]
[/autoit][autoit][/autoit][autoit]
#include <BigNum.au3>; #FUNCTION# ;====================================================================================
[/autoit][autoit][/autoit][autoit]
;
; Name...........: _rsa_nat
; Description ...: RSA in pure AutoIt
; Syntax.........: _rsa_nat($iKey,$iBlock,$iNum)
; Parameters ....: $iKey and $iBlock : public of private key pair
; $iNum : Ascii-Code to be (de)crypted - based on key pair
;
; Return values .: Success - (de)cryption of $iNum
; Failure - to be done
;
; Author ........: SlowlyDead
; Date ..........: 21.08.2010
; Requires .......: _BigNum_mod and _BigNum_Pow (BigNum-udf)
; ;===============================================================================================Func _rsa_nat($iKey,$iBlock,$iNum)
[/autoit][autoit][/autoit][autoit]
$iReturn = _BigNum_Mod(_BigNum_Pow($iNum,$iKey),$iBlock)Return $iReturn
[/autoit][autoit][/autoit][autoit]
EndFunc ;==>_rsa_nat; #FUNCTION# ;====================================================================================
[/autoit][autoit][/autoit][autoit]
;
; Name...........: _rsa_nat_string
; Description ...: RSA in pure AutoIt
; Syntax.........: _rsa_nat($iKey,$iBlock,$sString)
; Parameters ....: $iKey and $iBlock : public of private key pair
; $sString: String to be (de)crypted - based on key pair
;
; Return values .: Success - (de)cryption of $sString
; Failure - to be done
;
; Author ........: SlowlyDead
; Date ..........: 21.08.2010
; Requires .......: _BigNum_mod and _BigNum_Pow (BigNum-udf), $rsa_nat
; Limits: ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz,.-#+´ßäöü<>!"§$%&/()=?`*'_:;²³{[]}\ and few more
; ;===============================================================================================Func _rsa_nat_string($iKey,$iBlock,$sString)
[/autoit][autoit][/autoit][autoit]
Local $aString = StringToASCIIArray($sString)For $i = 0 to UBound($aString)-1 Step 1
[/autoit][autoit][/autoit][autoit]
$aString[$i] = _rsa_nat($iKey,$iBlock,$aString[$i])
Next$sReturn = StringFromASCIIArray($aString)
[/autoit][autoit][/autoit][autoit]Return $sReturn
[/autoit][autoit][/autoit][autoit]
EndFunc ;==>_rsa_nat_string; #Example ;====================================================================================
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
;
; Example Key-Pair
; public : (23,713)
; private : (287,713)
; ;===============================================================================================$iKey_public = 23
[/autoit][autoit][/autoit][autoit]
$iKey_private = 287
$iBlock = 713$sString = InputBox("RSA in pure AutoIt","Enter string to (de)crypt","AutoIt")
[/autoit][autoit][/autoit][autoit]$encr = _rsa_nat_string($iKey_public,$iBlock,$sString)
[/autoit][autoit][/autoit][autoit]MsgBox(0,"RSA - Encrypted","Encrypted String: " & @CRLF & $encr)
[/autoit][autoit][/autoit][autoit]
MsgBox(0,"RSA - Encrypted","Decrypted String: " & @CRLF & _rsa_nat_string($iKey_private,$iBlock,$encr))$sString2 = InputBox("RSA in pure AutoIt","Enter string to (de)crypt","ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz,.-#+´ßäöü<>!""§$%&/()=?`*'_:;²³{[]}\")
[/autoit][autoit][/autoit][autoit]$encr2 = _rsa_nat_string($iKey_public,$iBlock,$sString2)
[/autoit][autoit][/autoit][autoit]MsgBox(0,"RSA - Encrypted","Encrypted String: " & @CRLF & $encr2)
[/autoit]
MsgBox(0,"RSA - Encrypted","Decrypted String: " & @CRLF & _rsa_nat_string($iKey_private,$iBlock,$encr2))
Die BigNum.au3 udf ist nötig.
