Aktuelle Zeit: 25.01.2021 16:26

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 2 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Homoglyphic Confusion
BeitragVerfasst: 10.04.2020 20:43 
Offline

Registriert: 24.04.2018 19:13
Kontaktvermeidung, Quarantäne, Langeweile. Warum nicht irgendwas programmieren? Aber was?
Code:
; Homoglyphic Confusion
; Purpose: Let robots not find a search term
; Replaces some latin characters in UTF-8 text files by cyrillic, greek and armenian look-alikes.
; Output: A UTF-8 text file named 'homoglyphed.txt' on the users desktop (tested only under Windows 10).
; A UTF-8 text file is expected as parameter (under Windows 10, notepad.exe saves this format).
; Compiler options -> Executable format: Console
; Simply drag and drop the text file onto the .exe
;

EnableExplicit

#InFile= 0
#OutFile= 1

Define.s Parameter$, InStrings$, Latins$, LookAlikes$
Define.b i

Latins$=     "aceopxyCBHJKMSTijsAEINOPXYZghnoqu3" ; original latin characters
LookAlikes$= "асеорхуСВНЈКМЅТіјѕΑΕΙΝΟΡΧΥΖցհոօզսЗ" ; cyrillic, greek and armenian look-alikes

Parameter$ = ProgramParameter( 0)

If ReadFile( #InFile, Parameter$)
  OpenConsole( "Homoglyphic Confusion")
  CreateFile( #OutFile, GetUserDirectory(#PB_Directory_Desktop)+"homoglyphed.txt", #PB_UTF8)
 
  While Eof( #InFile) = 0
    InStrings$= ReadString( #InFile)
    For i=1 To Len( LookAlikes$)
      InStrings$= ReplaceString( InStrings$,  Mid(Latins$, i, 1), Mid(LookAlikes$, i, 1))
    Next i
    PrintN( InStrings$)
    WriteStringN( #OutFile, InStrings$)
  Wend
  CloseFile( #InFile)
  CloseFile( #OutFile)
  MessageRequester( "", "A file named 'homoglyphed.txt' should have been created on your desktop.")
  Else
    MessageRequester( "Error","UTF-8 text file expected as parameter")
EndIf


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Homoglyphic Confusion
BeitragVerfasst: 11.04.2020 16:10 
Offline

Registriert: 24.04.2018 19:13
Mmh, die "3" sieht hier nicht so gut aus. Kann man weglassen, indem man jeweils das letzte Zeichen der beiden Strings entfernt, also die Zeilen 19 und 20 ändert in
Code:
Latins$=     "aceopxyCBHJKMSTijsAEINOPXYZghnoqu" ; original latin characters
LookAlikes$= "асеорхуСВНЈКМЅТіјѕΑΕΙΝΟΡΧΥΖցհոօզս" ; cyrillic, greek and armenian look-alikes


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 2 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 17 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye