AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Textanalyse v 1.1b

Textanalyse v 1.1b

Ein Thema von DGL-luke · begonnen am 23. Mai 2005 · letzter Beitrag vom 25. Mai 2005
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von DGL-luke
DGL-luke
Registriert seit: 1. Apr 2005
Sodele, heute mal wieder ne kleine Fingerübung gemacht.
Es gibt doch die Verschlüsselungsmethode, dass man alle Buchstaben um einen bestimmten Wert verschiebt.
Wenn man nun so einen Text entschlüsseln will, ist der Ansatz meistens, anhand der Häufigkeit der vorkommenden Buchstaben das Leerzeichen(falls verschlüsselt), das e usw. rauszufinden.
Das geht mit meinem prog ganz einfach: Textdatei auf die Form ziehen, "Analysieren!" drücken, "Markieren!" drücken und schon hat man die Vorkommen aller 255 ASCII-zeichen.

Das Programm besteht aus eine Exe-Datei und ist, nach der allgemeinen Definition, Freeware. Da der Source nicht besonders kompliziert ist, lohnt sich die veröffentlichung kaum, ich kann den algo aber auf anfrage hier posten.

Verwendet habe ich die RB-Controls. (http://www.delphipages.com)

Ich plane noch, die Markierung einstellbar zu machen und evtl. einige andere textformate analysierbar zu machen. Allerdings nur, wenn es einfach einzubauen ist. Da das ganze noch in Entwicklung ist, sind Verbesserungsvorschläge willkommen. Wenn genug Interesse besteht, könnte ich gleich die entsprechende Entschlüsselungsfunktion mit einbauen. Die dann natürlich als Verschlüsselung auch funktionieren würde.

Hab gerade kurz mal getest, was beim Maximieren passiert...
Wird beim nächsten Update gefixt!

Version 1.1b

- längerer Standardtext
- Pagecontrol fällt weg -> die ComCtrls.dcu is komplett raus
- F1 bringt jetzt eine Messagebox, und für alle die es noch nicht gemerkt haben, seit Version 1.0b kann man die Überprüfung mit <Esc> abbrechen.
- archiviert wird jetzt mit 7Zip. For legal reasons...
- Maximieren sieht jetzt einigermassen aus. Aber wofür braucht man das überhaupt? Wird in der nächsten Version deaktiviert.
EDIT
Die Hälfte vom Changelog hab ich ja vergessen....
- Es gibt jetzt für jede Progressbar einen Hint, in dem drinsteht, wie viele zeichen es tatsächlich sind
- Grau markiert wird nur noch, wenn das Zeichen wirklich nicht vorkommt. 0% ist also nicht gleich 0%.

Developer's environment
- BS: WinXP SP 1
- CPU: AMD Athlon x86
- IDE: Delphi 2005 PE
- wollt ihr mehr? könnt ihr haben!
Miniaturansicht angehängter Grafiken
textanalyse10_650.jpg  
Angehängte Dateien
Dateityp: exe textanalyse1_1b.sfx_141.exe (244,1 KB, 21x aufgerufen)
Dateityp: 7z textanalyse1_1b_726.7z (166,6 KB, 31x aufgerufen)
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
 
Benutzerbild von malo
malo
 
#2
  Alt 23. Mai 2005, 19:37
Öhm, was ist die "Gesamtprozentzahl"?
  Mit Zitat antworten Zitat
Waldteufel
 
#3
  Alt 23. Mai 2005, 19:43
Hi.

Die Summe aller 255 Prozentzahlen... (bei mir kamen zwischenzeitlich auch 99% und 101% )
  Mit Zitat antworten Zitat
Benutzerbild von malo
malo
 
#4
  Alt 23. Mai 2005, 19:50
Öhm, die Summe der Prozentzahlen MUSS zwangsläufig 100 sein. Anders ergibt das doch keinen Sinn
  Mit Zitat antworten Zitat
Waldteufel
 
#5
  Alt 23. Mai 2005, 19:53
Hi.

Probiers doch mal aus: "abc" (Gesamtprozentzahl = 99%)
Mathematisch gesehen muss da natürlich 100% rauskommen. Das muss ein Rundungsfehler sein...
  Mit Zitat antworten Zitat
Benutzerbild von malo
malo
 
#6
  Alt 23. Mai 2005, 19:54
Zitat von Waldteufel:
Hi.

Probiers doch mal aus: "abc" (Gesamtprozentzahl = 99%)
Mathematisch gesehen muss da natürlich 100% rauskommen. Das muss ein Rundungsfehler sein...
Der Standardtext bringt 94% Gesamtprozent
  Mit Zitat antworten Zitat
Benutzerbild von DGL-luke
DGL-luke

 
Delphi 2006 Professional
 
#7
  Alt 23. Mai 2005, 21:58
richtig. genau deswegen hab ich auch diese messagebox da reingetan, um das zu überprüfen. es ist anscheinend wirklich ein rundungsfehler.

kaum haut man n paar bugs in sein programm, schon kriegt man n haufen feedback - ich glaub ich weiss, warum MS-Produkte so verbuggt sind!

bei abc muss es übrigens so sein, da man ja pro buchstabe 33% kriegt, und das sich dann auf insgesamt 99% summiert - wenn aufgerundet wird, halt auch mal mehr. aber ne größere genauigkeit gibt so eine TRBProgressbar halt auch nicht her, obwohl sie ja intern per PB.Max und PB.StepIt die absolute Genauigkeit bekommt.
Lukas Erlacher
  Mit Zitat antworten Zitat
velgreyer

 
Delphi 6 Professional
 
#8
  Alt 24. Mai 2005, 06:58
Nur so als Tipp: Benutz Canvas und zeichne eine komplette Oberfläche mit der Auswertung, und nicht 127 Progressbars. Ich seh ja immer wie sich das ganze aufbaut wenn ich das Fenster in den Vordergrund nehme

http://www.datar.de/s.jpg, vel
  Mit Zitat antworten Zitat
Benutzerbild von DGL-luke
DGL-luke

 
Delphi 2006 Professional
 
#9
  Alt 24. Mai 2005, 09:37
also ich hab da absolut keine performanceprobleme. und es braucht ja auch nur knapp 5 MB RAM.

und das ganze mit canvas... hm.. das wäre mir jetz 1. viel aufwand und würde 2. beschissen aussehen...

aber ich kann es mal versuchen.

aber jetz kommt erstmal n update auf version 1.1(siehe ersten Post)!
Lukas Erlacher
  Mit Zitat antworten Zitat
velgreyer

 
Delphi 6 Professional
 
#10
  Alt 24. Mai 2005, 09:45
Zitat von DGL-luke:
keine performanceprobleme
Es gibt leider noch Menschen, wie mich, die sich nichts modernes leisten können.
Zitat von DGL-luke:
1. viel aufwand
Gott bzw. Borland hat doch Schleifen erfunden
Zitat von DGL-luke:
2. beschi***n aussehen...
Nur wenn du es falsch machst

Zudem würdest du das 100%-Problem lösen, indem du einfach alle Werte in nem Array als Real abspeicherst (ja, bei «abc» hat man dann 99,9999~).

http://www.datar.de/s.jpg, vel
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz