ich wollt mich nicht einmischen, aber das letzte mal,
als ich Zufallsbuchstaben gesehen habe, da hab ich einen AutoIt-Virus analysiert.
Ich finde das nicht lustig.
Meiner Ansicht nach Grund genug den Thread zu schliessen.
ich wollt mich nicht einmischen, aber das letzte mal,
als ich Zufallsbuchstaben gesehen habe, da hab ich einen AutoIt-Virus analysiert.
Ich finde das nicht lustig.
Meiner Ansicht nach Grund genug den Thread zu schliessen.
Nein möchte ich wirklich nicht.
Mir reichts wenn Word geht.
Bei mir hat SEuBo 's Script nicht geklappt (z.B. Taste "t")
@Mods bitte löschen, falls ihr den Zweck als Spaßvirus etc. anseht
Opt("WinTitleMatchmode", 4)
Opt("SendKeyDelay", 3)
Opt("SendKeyDownDelay", 3)
For $i = 65 To 90
HotKeySet(Chr($i), "_hks")
Next
For $i = 97 To 122
HotKeySet(Chr($i), "_hks")
Next
While 1 * Sleep(1000)
WEnd
Func _hks()
$sHK = @HotKeyPressed
If Not WinActive("[CLASS:Notepad]") Then
Return HotKeySet($sHK) And Send($sHK) And HotKeySet($sHK, "_hks")
Else
Local $sType, $iAsc = Asc(StringRegExpReplace($sHK, "}|{", ""))
If $iAsc >= 65 And $iAsc <= 90 Then $iA = 65
If $iAsc >= 97 And $iAsc <= 122 Then $iA = 97
$iNew = $iA * 2 + 25 - $iAsc
$sSend = "{" & Chr($iNew) & "}"
Return HotKeySet($sSend) And Send($sSend) And HotKeySet($sSend, "_hks")
EndIf
EndFunc ;==>_hks
Alles anzeigenBei mir hat SEuBo 's Script nicht geklappt (z.B. Taste "t")
@Mods bitte löschen, falls ihr den Zweck als Spaßvirus etc. anseht
Spoiler anzeigen
[autoit]Opt("WinTitleMatchmode", 4)
[/autoit] [autoit][/autoit] [autoit]
Opt("SendKeyDelay", 3)
Opt("SendKeyDownDelay", 3)For $i = 65 To 90
[/autoit] [autoit][/autoit] [autoit]
HotKeySet(Chr($i), "_hks")
Next
For $i = 97 To 122
HotKeySet(Chr($i), "_hks")
NextWhile 1 * Sleep(1000)
[/autoit] [autoit][/autoit] [autoit]
WEndFunc _hks()
[/autoit]
$sHK = @HotKeyPressed
If Not WinActive("[CLASS:Notepad]") Then
Return HotKeySet($sHK) And Send($sHK) And HotKeySet($sHK, "_hks")
Else
Local $sType, $iAsc = Asc(StringRegExpReplace($sHK, "}|{", ""))
If $iAsc >= 65 And $iAsc <= 90 Then $iA = 65
If $iAsc >= 97 And $iAsc <= 122 Then $iA = 97
$iNew = $iA * 2 + 25 - $iAsc
$sSend = "{" & Chr($iNew) & "}"
Return HotKeySet($sSend) And Send($sSend) And HotKeySet($sSend, "_hks")
EndIf
EndFunc ;==>_hks
ähm das standt doch schon im forum
Zitatähm das standt doch schon im forum
Also diesem Thread stand der Quellcode SO nicht drin...
Welcher Post war es denn?
PS: Teste doch alle bisherigen Codes z.B. mit der Taste "t"...
Es soll doch zufallsmäßig ein Buchstabe ausgewählt werden, oder? Wie willst du dann einen Text damit verschlüsseln? Wenn dein Gegenüber den verschlüsselten Text bekommt, wie soll er den dann entschlüsseln, sind doch immer Zufallsbuchstaben.
Bei mir hat SEuBo 's Script nicht geklappt (z.B. Taste "t")
ganz einfach Zeile 21
[autoit]If $iNew > $iA + 26 Then $iNew -= 26
[/autoit]
durch
If $iNew >= $iA + 26 Then $iNew -= 26
[/autoit]ersetzen...
Es soll doch zufallsmäßig ein Buchstabe ausgewählt werden, oder? Wie willst du dann einen Text damit verschlüsseln? Wenn dein Gegenüber den verschlüsselten Text bekommt, wie soll er den dann entschlüsseln, sind doch immer Zufallsbuchstaben.
wo hab ich das den geschrieben
Ich dachte das z-B- so ich schreibe ein Wort wie z.B. Affe bei ICQ meinem freund und dann wird ihm aber kppq geschickt, er tippt das ein kppq und dan steht bei ihm Wieder affe
Ich denke, die meisten hier halten sich zurück, weil wir keinen Keylogger-Support bieten wollen und das was Du vorhast geht schon sehr weit in diese Richtung (Tastendrücke abfangen).
Mal abgesehen davon, dass die "Verschlüsselung", die Dir da vorstrebt nicht gerade stark ist (leicht zu knacken).
Es wäre einfacher, wenn Du einfach einen ICQ-Client benutzt, der "von Haus aus" die Daten verschlüsselt.
wo hab ich das den geschrieben
--> Post Nr. 12:
Ich wollte nämlich eine art Geheimsprache machen.
Man giebt z.B. Affe ein und raus kommt klaaq.
Der andere hat dan das gegenprogramm und fertig...
naja ok wenn ihr meint brechen wir halt hier ab.
aber warum kann ich folgenden script nicht per s starten?
HotKeySet ("s" , TestFunc1())
Func TestFunc1()
[/autoit][autoit][/autoit][autoit]MsgBox (1, "test", "test")
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]EndFunc
[/autoit]Weil dein Skript sich sofort nach Abarbeitung der HotkeySet-Zeile wieder beendet (hat ja nichts mehr zu tun).
Musst also noch eine Endlosschleife oder ähnliches, was das Skriptende verzögert, einbauen
ja und wie?
So:
[autoit]
HotKeySet ("s" , TestFunc1())
While Sleep(50)
WEnd
Func TestFunc1()
MsgBox (1, "test", "test")
EndFunc
Langsam wirst du aber schwierig !
Bau ne While Schleife ein..
[autoit]HotKeySet ("s" , TestFunc1())
[/autoit][autoit][/autoit][autoit]While 1
Sleep (10)
WEnd
Func TestFunc1()
[/autoit][autoit][/autoit][autoit]MsgBox (1, "test", "test")
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]EndFunc
[/autoit]Edit:
Wohl zu langsam
Ich hab dir doch schon ein Stichwort genannt: "Endlosschleife".
Im Wissen das dieses Forum im Besitz einer Suchfunktion ist, stellt dieser Hinweis eine Hilfe zur Selbsthilfe dar...
Ist noch keinen aufgefallen das auch ein Fehler in HotKeySet drin ist?
[autoit]HotKeySet ("s" , TestFunc1())
[/autoit]Müsste eigentlich so heißen, dann funzt auch HotKeySet.
[autoit]HotKeySet("s", "TestFunc1")
[/autoit]Ich dachte das z-B- so ich schreibe ein Wort wie z.B. Affe bei ICQ meinem freund und dann wird ihm aber kppq geschickt, er tippt das ein kppq und dan steht bei ihm Wieder affe
Was ist denn das problem an meinem script?
einfach bei deinem Freund nicht 7 stellen vorrücken, sondern 7 zurück.
Hab jetzt nochmal überarbeitet.
Opt("WinTitleMatchmode", 4)
Opt("SendKeyDelay", 3)
Opt("SendKeyDownDelay", 3)
$sEnc = True ;<------ das hier muss bei deinem Freund auf False stehen.
For $i = 97 To 122
HotKeySet(Chr($i), "_hks")
Next
While 1 * Sleep(1000)
WEnd
Func _hks()
$sHK = @HotKeyPressed
If Not WinActive("[CLASS:Notepad]") Then
Return HotKeySet($sHK) And Send($sHK) And HotKeySet($sHK, "_hks")
Else
Local $sType, $iAsc = Asc(StringRegExpReplace($sHK, "}|{", ""))
If $iAsc >= 65 And $iAsc <= 90 Then $iA = 65
If $iAsc >= 97 And $iAsc <= 122 Then $iA = 97
If $sEnc Then
$iNew = $iAsc + 7
If $iNew >= $iA + 26 Then $iNew -= 26
Else
$iNew = $iAsc - 7
If $iNew < $iA Then $iNew += 26
EndIf
$sSend = "{" & Chr($iNew) & "}"
Return HotKeySet($sSend) And Send($sSend) And HotKeySet($sSend, "_hks")
EndIf
EndFunc ;==>_hks
wo hab ich das den geschrieben
Schau mal in deinem 1. Post, mit dem du den Thread gestartet hast. Warum nennst du dich eigentlich nicht H34DSH0T, sondern H43DSH0T? Es soll doch Headshot heißen oder nicht?