Druckbare Version
Hey habe mal beim druchstöbern was gefunden:
das ganze auch mal ausprobiert, allerdings liefert die funktion
kein brauchbares PW zurück, sie liefert garnichts zurück... fällt jemandem auf anhieb auf warum, oder bin ich blind // blöd ?Code:UncryptUseNextPW(MS:TMemoryStream):string;
THX schonmal
eine möglichkeit wäre, dass der quelltext einfach zu alt ist und usenext ihren client akutallisiert haben.
der source soll wohl mitte 2011 noch funktioniert haben und ich hab noch nen alten clienten auf ner vm gehabt, von mitte 2011 aber igwie tut sich trotzdem nix ,...
Wie rufst Du es denn genau auf? Wenn ich das richtig sehe, ist UncryptUseNextPW ja nur eine Hilfsfunktion.
GetUseNextPassword soll wohl die eigentliche Funktion zum Auslesen sein, die Du dann aufrufen musst.
jop, tu ich ja auch, wie gesagt, es wird der Benutzname ausgelesen, es wird version 4 ausgelesen,... aber er decrypted mir das pw nicht
wäre ja mal Interresant wie das PW gecrypted ist.....
Also ich habe die Version 5.27 und es funktioniert perfekt.
die unit welchen link ich geschickt hatte ? gibt es auch das passwort aus ?
Wie gesagt, ich hatte es eben nur kurz getestet, und bei der Version die ich noch auf dem PC habe - Version 5.27 - ging es. User und Passwort...
Welche Version von Usenext benutzt du denn? Dann lade ich mir die Version mal runter und schaue, ob ich es "fixxen" kann...
Edit: Gerade erst bemerkt was du für eine "Funktion" aufrufen möchtest...
Du musst schon die richtige verwenden :P
Versuch es mal so:
Code:ShowMessage(GetUseNextPassword.Text);
Hab das mal so probiert, dan spuckt er mir genauso kryptisches zeugs aus,... genauso als wenn ich sage:
... habe jetz version 5.32 funzt nicht, welche versions forher war weiß ich nicht mehr, aber vllt bekommt man die alte ja noch,..Zitat:
ListBox1.Items.assign(GetUseNextPassword());
Code:Function GetUseNextPassword:TStringList;
TStringList ...
Ohne das .Text wirst du wegen dem Format Probleme bekommen, da es kein einfacher String ist.
wenn ich showmessage(... .Text) mache, steht da das selbe drinnnen wie in der tstringlist, kann dir grad nich ganz folgen, sry
Wenns nicht geht, sag doch einfach mal welche Version von Usenext du benutzt...
Dann werde ich mal schauen ob ich den Code an die neuere Version anpassen kann...
hatte ich schon geschrieben, momentan hab ich die 5.32 laufen, ich werd jetz mal sehn ob ich mir igwo die usenext version von dir holen kann, dann werd ich mal testen obs da geht, das prob ist, das was mir die funktion ausspuckt, ist die version der datei (4) dan einen teil den ich aber so auch in der datei finde, und dan den benutzernamen
auch bei deiner version : 5.27, habe die mal geladen installiert und es getestet, keine reaktion funktioiert genauso wenig
Wenn es bei Rüdiger funktioniert und bei Dir nicht, scheint es an der verwendeten Delphi Version zu liegen und ein Unicode Problem zu sein (Zitat: "kryptische Zeichen").
Einer von Euch benutzt wahrscheinlich Delphi Version >= 2009 (mit Unicode) und einer Delphi Version <= 7 oder = 2007.
von der siete hab ichs noch garnich gesehn, ich hab embarcadero Delphi XE (übringends sehr geil ) kann man das igwie um // abschalten ?
Abschalten kann man es nicht, aber Du kannst probieren alle chars in ansichars, strings in ansistrings, pchars in pansichars usw. amzuwandeln.
xdd da grab ich lieber meine alte delphi 7 aus XD ^^ na vllt kann Rüdiger mir mal seine kompilierte file zukommen lassen, dan teste ichs mal obs bei mir geht und wenn ja mach ich mir die arbeit :)
Ich verwende Delphi 2007.
Aber hier die fertige file: http://www.xup.in/dl,34454107/Project1.exe/
danke werd gleich mal sehn ob das was ausgibt ,....
mom
Sehr nice, geht XD aber ich find meine alte delphi 7 nicht mehr :( und usenext gibt auch nichts her, hast du zufällig dazu auch noch igwo nen link // iso rumliegen ??
schönen dank schonmal :)
Nur für diesen Code eine neue IDE zu installieren halte ich für ziemlich überzogen.
Es dauert ungefähr 2 Minuten den Code mit der Suchen und Ersetzen Funktion kompatibel zu Delphi >= 2009 zu machen...
muss man da nur die besagten änderungen durchführn die du eben schon beschrieben hattest?Zitat:
Zitat von inout
Wenn ich nichts übersehen habe, sollte es genügen, wenn Du nur string durch ansistring und char durch ansichar ersetzt.
Beachte aber, dass Du nur ganze Wörter ersetzt, also z.B. utf8string nicht durch utf8ansistring ersetzen usw...
das dacht ich mir auch, funktioniert leider nicht ,...
jetz sagt es mir file not found, mom
Muss jetz erstmal los, es gibt menschen die der meinung sind RL ist wichtiger ^^
danke schonmal für eure hilfe, wenn sich jemand mit beschäftigen mag, das für delphi >=2009 hinzubiegen, würd ich das gern sehn, ich bekomms nicht hin
mal gugen ob nachher noch igwas geht
Habs hinbekommen allerdings wird das erste zeichen des PW nicht ausgegeben, hat jemand ne idee ?
//fixed, manchmal ist man ect blind, kompiliert mit lazarus, läuft ohne probleme