Verfügbare Informationen zu "Hacker-Text-Generator"
Qualität des Beitrags: Beteiligte Poster: darmzerfetzer - MaLaRiA - Sepp - Anonymous Forum: Blood Board Forenbeschreibung: Multifunction-Board: Metal, Tasteless, Computer aus dem Unterforum: Pure Basic Antworten: 6 Forum gestartet am: Montag 16.08.2004 Sprache: deutsch Link zum Originaltopic: Hacker-Text-Generator Letzte Antwort: vor 18 Jahren, 6 Monaten, 6 Tagen, 7 Stunden, 31 Minuten Getaggt durch: Computer
Alle Beiträge und Antworten zu "Hacker-Text-Generator"
Re: Hacker-Text-Generator
darmzerfetzer - 27.09.2004, 15:03Hacker-Text-Generator
Hier is ein kleiner Hacker-Text-Generator:
Code: ; Informations for STupX:
; ------------------------------------------------
; PRGNAME=HackerText Generator
; VERSION=1,0,0,0
; DESCRIP=HackerText Generator
; COMPANY=Bloody Bytes
; AUTHOR=Aljoscha Drögemeier
; E-MAIL=darmzerfetzer@gmx.de
; WEB=www.darmzerfetzer.de.vu
;
; Code-Informations:
;
; ++++++++++++++++++++++++++++++++++++++++++
; +++++++++++ HackerText Generator +++++++++
; ++++++++++++++++++++++++++++++++++++++++++
;
; Author: Aljoscha Drögemeier
; eMail: darmzerfetzer@gmx.de
; Homepage: http://www.darmzerfetzer.de.vu
; Date: 27. August 2004
; Genre: Fun
; Comment: This is my first little open source project *gg*.
; I programmed it because I didn't know of another
; Cool-Text-Generator written in PureBasic as open source.
; So I tried my best *lol* ... It is a very small tool
; to generate an easy hackername. It isn't very big
; so I wanted to "open the source" ;-)
;
; Enter a text in the first textbox and click on the button "G3N3Ra73"
; to convert the string to a hackertext ... you can edit the
; source but you're not allowed to edit the source and give it to somebody ....
; This source has the normal open source rights ... So don't do the wrong *eg*
;
; Have fun ;-)
;
; Aljoscha Drögemeier
;- Constants
Enumeration
#String_0
#String_1
#Frame3D_0
#Button_0
#Button_1
EndEnumeration
Procedure.s CoolText(Text.s) ; HackerText-Procedure
Text.s = UCase(Text.s) ; set text to uppercase ...
; ... and do the following:
Zufall = Random(5)
If Zufall = 1
Text.s = ReplaceString(Text.s, "A", "@")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "A", "a")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "A", "/-\")
ElseIf Zufall = 4
Text.s = ReplaceString(Text.s, "A", "4")
; 'Else' is not needed because the text is set to uppercase!
; If random (Zufall) is 5 the text Text.s (UCase(Text.s)) will not change ...
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "B", "b")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "B", "8")
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "C", "c")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "C", Chr(169))
EndIf
Zufall = Random(4)
If Zufall = 1
Text.s = ReplaceString(Text.s, "D", "d")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "D", "|)")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "D", Chr(208))
EndIf
Zufall = Random(12)
If Zufall = 1
Text.s = ReplaceString(Text.s, "E", "e")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "E", "3")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "E", Chr(232))
ElseIf Zufall = 4
Text.s = ReplaceString(Text.s, "E", Chr(233))
ElseIf Zufall = 5
Text.s = ReplaceString(Text.s, "E", Chr(234))
ElseIf Zufall = 6
Text.s = ReplaceString(Text.s, "E", Chr(235))
ElseIf Zufall = 7
Text.s = ReplaceString(Text.s, "E", Chr(200))
ElseIf Zufall = 8
Text.s = ReplaceString(Text.s, "E", Chr(201))
ElseIf Zufall = 9
Text.s = ReplaceString(Text.s, "E", Chr(202))
ElseIf Zufall = 10
Text.s = ReplaceString(Text.s, "E", Chr(203))
ElseIf Zufall = 11
Text.s = ReplaceString(Text.s, "E", "€")
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "F", "f")
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "G", "6")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "G", "g")
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "H", "h")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "H", "|-|")
EndIf
Zufall = Random(11)
If Zufall = 1
Text.s = ReplaceString(Text.s, "I", "i")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "I", "1")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "I", Chr(204))
ElseIf Zufall = 4
Text.s = ReplaceString(Text.s, "I", Chr(205))
ElseIf Zufall = 5
Text.s = ReplaceString(Text.s, "I", Chr(206))
ElseIf Zufall = 6
Text.s = ReplaceString(Text.s, "I", Chr(207))
ElseIf Zufall = 7
Text.s = ReplaceString(Text.s, "I", Chr(236))
ElseIf Zufall = 8
Text.s = ReplaceString(Text.s, "I", Chr(237))
ElseIf Zufall = 9
Text.s = ReplaceString(Text.s, "I", Chr(238))
ElseIf Zufall = 10
Text.s = ReplaceString(Text.s, "I", Chr(239))
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "J", "j")
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "K", "k")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "K", "|<")
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "L", "l")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "L", Chr(163))
EndIf
Zufall = Random(4)
If Zufall = 1
Text.s = ReplaceString(Text.s, "M", "m")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "M", "|V|")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "M", "|\/|")
EndIf
Zufall = Random(4)
If Zufall = 1
Text.s = ReplaceString(Text.s, "N", "n")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "N", "|\|")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "N", Chr(209))
EndIf
Zufall = Random(4)
If Zufall = 1
Text.s = ReplaceString(Text.s, "O", "o")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "O", "0")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "O", Chr(216))
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "P", "p")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "P", Chr(182))
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "Q", "q")
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "R", "r")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "R", Chr(174))
EndIf
Zufall = Random(7)
If Zufall = 1
Text.s = ReplaceString(Text.s, "S", "s")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "S", "§")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "S", "$")
ElseIf Zufall = 4
Text.s = ReplaceString(Text.s, "S", "5")
ElseIf Zufall = 5
Text.s = ReplaceString(Text.s, "S", "Z")
ElseIf Zufall = 6
Text.s = ReplaceString(Text.s, "S", "z")
EndIf
Zufall = Random(4)
If Zufall = 1
Text.s = ReplaceString(Text.s, "T", "t")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "T", "+")
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "T", "7")
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "U", "u")
EndIf
Zufall = Random(3)
If Zufall = 1
Text.s = ReplaceString(Text.s, "V", "v")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "V", "\/")
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "W", "w")
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "X", "x")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "X", Chr(215))
EndIf
Zufall = Random(5)
If Zufall = 1
Text.s = ReplaceString(Text.s, "Y", "y")
ElseIf Zufall = 2
Text.s = ReplaceString(Text.s, "Y", Chr(221))
ElseIf Zufall = 3
Text.s = ReplaceString(Text.s, "Y", Chr(255))
ElseIf Zufall = 4
Text.s = ReplaceString(Text.s, "Y", Chr(253))
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "Z", "z")
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "Ä", "ä")
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "Ö", "ö")
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "Ü", "ü")
EndIf
Zufall = Random(2)
If Zufall = 1
Text.s = ReplaceString(Text.s, "?", Chr(191))
EndIf
ProcedureReturn Text.s
EndProcedure
Procedure Generate() ; Procedure to generate the cool text ...
Name.s = GetGadgetText(#String_0) ; Get text to convert ...
Text.s = "" ; Set old text to a nul-string ...
For i=1 To Len(Name.s)
Text.s = Text.s + CoolText(Mid(Name.s, i, 1)) ; ... convert the text ...
Next
SetGadgetText(#String_1, CoolText(Text.s)) ; ... set gadgettext ...
ActivateGadget(#String_0) ; ... and activate the stringgadget (VB: TextBox ...)!
EndProcedure
;- Window
hWnd = OpenWindow(0, 282, 211, 306, 121, #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_TitleBar , "H4©K3®-tÈ×+-GËNEr/-\t0r")
If hWnd ; If the window has been opened ...
hBrush1 = CreateSolidBrush_(RGB(0, 0, 0)) ; CreateSolidBrush ...
SetClassLong_(hWnd, #GCL_HBRBACKGROUND, hBrush1) ; ... to colorize the window!
If CreateGadgetList(WindowID())
StringGadget(#String_0, 10, 10, 285, 20, "")
StringGadget(#String_1, 10, 35, 285, 20, "", #PB_String_ReadOnly)
Frame3DGadget(#Frame3D_0, 5, 0, 295, 120, "")
ButtonGadget(#Button_0, 15, 70, 230, 35, "G3N3Ra73")
ButtonGadget(#Button_1, 245, 70, 45, 35, "1nF0")
ActivateGadget(#String_0) ; Activate the gadget number 0
; Ad the shortcuts Return, F1 and Escape:
AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
AddKeyboardShortcut(0, #PB_Shortcut_F1, 1)
AddKeyboardShortcut(0, #PB_Shortcut_Escape, 2)
EndIf
;- Event Loop
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadget
GadgetID = EventGadgetID()
If GadgetID = #Button_0 ; Generate text
Generate()
ElseIf GadgetID = #Button_1 ; Information
MessageRequester("Information", "Hacker-Text-Generator © 27.8.2004 by Aljoscha Drögemeier"+Chr(10)+Chr(9)+"ViSiT http://www.darmzerfetzer.de.vu", #MB_ICONINFORMATION)
ActivateGadget(#String_0)
EndIf
ElseIf Event = #PB_EventMenu
MenuID = EventMenuID()
If MenuID = 0 ; Generate text, too
Generate()
ElseIf MenuID = 1 ; Information
MessageRequester("Information", "Hacker-Text-Generator © 27.8.2004 by Aljoscha Drögemeier"+Chr(10)+Chr(9)+"ViSiT http://www.darmzerfetzer.de.vu", #MB_ICONINFORMATION)
ActivateGadget(#String_0)
ElseIf MenuID = 2
End
EndIf
EndIf
Until Event = #PB_EventCloseWindow
Else
MessageRequester("Error", "Can't open window!", #MB_ICONERROR) ; Error
EndIf
End ; End of the source :'(
; ExecutableFormat=Windows
; Executable=C:\PureBasic\HackerTextGenerator.exe
; EOF
Re: Hacker-Text-Generator
MaLaRiA - 12.10.2004, 15:02
ganz ordentlich!
Re: Hacker-Text-Generator
Sepp - 05.11.2004, 13:34
könnt ich ja jezz mal ausprobieren das ding und dann sofort noch a bisl weiter pb lernen
Re: Hacker-Text-Generator
Anonymous - 12.09.2005, 11:39
Eine programmiertechniche Frage:
Warum hast du die ganzen If-ElseIf-EndIf-Blöcke benutzt? Das ist doch total unübersichtlich. Machs doch so:
Code:
Select Random(10)+1
Case 1
Text.s = ReplaceString(Text.s, "E", "e")
Case 2
Text.s = ReplaceString(Text.s, "E", "3")
Case 3
Text.s = ReplaceString(Text.s, "E", Chr(232))
Case 4
Text.s = ReplaceString(Text.s, "E", Chr(233))
Case 5
Text.s = ReplaceString(Text.s, "E", Chr(234))
Case 6
Text.s = ReplaceString(Text.s, "E", Chr(235))
Case 7
Text.s = ReplaceString(Text.s, "E", Chr(200))
Case 8
Text.s = ReplaceString(Text.s, "E", Chr(201))
Case 9
Text.s = ReplaceString(Text.s, "E", Chr(202))
Case 10
Text.s = ReplaceString(Text.s, "E", Chr(203))
Case 11
Text.s = ReplaceString(Text.s, "E", "€")
EndSelect
Re: Hacker-Text-Generator
darmzerfetzer - 13.09.2005, 15:33
hmm .. weil sich die select-anwendung für manche kleine änderungen nicht lohnt. also z.b. für die
if blabla
xxx
elseif blabla
xxx
endif
kurzen dinge. war das nicht sorum, das if/end if schneller arbeitet als select/case?
Re: Hacker-Text-Generator
Sepp - 19.10.2005, 14:56
ja hast du auch schon wieder mit deinem mar den fretch gecrätchd um den puck zu flacken?
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Blood Board
Lieblingsbilder von euren Lieblingsbands - gepostet von Sepp am Sonntag 19.02.2006
Ähnliche Beiträge wie "Hacker-Text-Generator"
[SUCHE]USKO - Olympia > Large Hacker +7 - b0raas (Dienstag 06.02.2007)
Bilder in einem Text einfügen - drohne (Donnerstag 09.08.2007)
Der Hacker - h@ck (Dienstag 14.03.2006)
The Original Ice Cream Flavor Generator Game! - DIANAD1 (Mittwoch 26.04.2006)
Computer Hacker! - Muh (Mittwoch 13.12.2006)
Hompage hacker - d0s3 (Sonntag 03.06.2007)
Text für Einladung - melek1 (Dienstag 06.03.2007)
Text SB - dagober7 (Montag 29.01.2007)
Ein dummer spruch im Theater Text - Charly (Samstag 12.08.2006)
Hier ein text für euch - dan the fan (Dienstag 25.04.2006)