Quelltext in Quelltext setzten

[mz23]

Hallo IntErES,

vielleicht hilft dir mein kleines Programm weiter, das mir Text in Strings in meinen Programmen verschlüsselt,
so daß man nicht mehr danach suchen kann bzw. sie einfach auslesen kann.

Mit freundlichen Grüßen
Manfred Zenns

[p80286]

Zitat:

Zitat von letsfetz

Ich versteh einfach den Mechanismus nicht wozu das gut sein soll. ;-)

Nun sag doch endlich was Du erreichen willst!
Dann kann man Dir auch einen richtigen Tip geben.

MD5: stell Dir einen Hashwert einfach als das vor, was aus einem Fleischwolf kommt. Wenn Du oben das gleiche reinsteckst kommt unten das gleiche raus, aber aus dem, was unten rauskommt kannst Du im allgemeinen nicht rekonstruieren was oben reingesteckt wurde.

Gruß
K-H

Edit:Tippfehler

[IntErES]

Jungs beruhigt euch mal und lest den ganzen Thread,das mit dem MD5 war doch nur ein Gespräch nichts weiter,keiner wollte hier irgendwas mit einem MD5 machen^^.Es war nur eine Diskussion und ich hatte da eine falsche Meinung und sonst ist die Frage dieses Threads von DeddyH,p80286 und BrightAngel schon lange gelöst worden.

[IntErES]

Habe wieder ein Problem,geht wieder um das alte Thema.

Code:
'Unit Unit1'+slinebreak+
'interface'+slinebreak+
....
....
'end.';

Soweit so gut nur jetzt kommt folgender Fehler:

" '..' erwartet,aber ';' gefunden "

Was bedeutet der Fehler?Was hab ich falsch gemacht?

[implementation]

Vielleicht solltest du die Zeile mitangeben, dann kann dir besser geholfen werden...

[IntErES]

Du hast recht^^,also die letzte Zeile soll Fehler enthalten.
Hab zum Verständnis noch die zweitletzte hinzugefügt.

Code:

...
...
'end;'+slinebreak+


'end.';

[Blackheart]

Die Fehlermeldung sagt dir doch was falsch ist, du hast wahrscheinlich ein Hochkomma zuviel oder zuwenig das solltest du aber schon an der Färbung im Quelltext sehen.

[IntErES]

Nein,sorry muss dich enttäuschen sowas hätte ich bemerkt,was denkst du woran könnte es sonst noch liegen?

[p80286]

Da muß ich IntErRes in schutz nehmen, Aus unerfindlichen Grunden hat die IDE einen "Positionsaussetzer" wenn es viele Strings im Source gibt.

aber trotzdem die Fehlermeldung ist eindeutig. Schau mal nach wo in Deinem Quelltext eine array-Defintion ist, da könnte es haken (Hochkommata zählen).

Gruß
K-H

[fatalerror]

Ich wiederhole nochmal, ein Memo wäre hier angebracht gewesen!

Als Alternative, wenn ihr schon unbedingt lange und komplexe Strings verknüpfen wollt, dann würde ich als Programmierer das auch mit einem kleinen Progrämmchen tun:

uses clipbrd

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
strl: TSTringlist;
strv: string;
i:Integer;

begin
if OpenDialog1.execute then
begin
  strl:= TStringList.Create;
  try
    strl.LoadFromFile(OpenDialog1.filename);
    for i:= 0 to strl.Count - 1 do
      begin
        if i < strl.Count - 1 then
          strv:= strv + quotedstr(strl[i]) + ' + sLineBreak + ' + #13#10
        else
          strv:= strv + quotedstr(strl[i]) + ';';
       end;

   Clipboard.SetTextBuf(PWideChar(strv));
  finally
   strl.Free;
  end;

end;

end;

1. die Prozedur liest den Quelltext ein
2. Erstellt den String
3. Kopiert den String in die Zwischenablage

So nun kann nur noch in deinem Projekt der erhaltene String eingefügt werden. Also
str_Meineingebundenerquelltext:= CTLR + V

[p80286]

@FatalError
Lass doch gut sein, ist zwar ein hübscher Vorschlag, aber so lange wir nicht wissen worauf er überhaupt hinaus will......

Hinterher will er ein Auto kaufen weil er in einer Dokumentation gesehen hat das (Alt)Autos auch als Hühnerställe dienen.

Gruß
K-H

[IntErES]

Also ich weiß echt nicht weiter hab mir den Quelltext jetzt schon drei mal durchgeguckt.Vielleicht findet ihr etwas.Ich glaube eher,dass ich etwas weggelassen habe was wichtig ist.Naja schaut selbst:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
 var   squellcode:'unit Unit1'+sLinebreak+

'interface'+slinebreak+

'uses'+slinebreak+
  'Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs'+slinebreak+

'type'+slinebreak+
  'TForm1 = class(TForm)'+slinebreak+
  'private'+slinebreak+
    '{ Private-Deklarationen }'+slinebreak+
  'public'+
    '{ Public-Deklarationen }'+slinebreak+
  'end;'+slinebreak+

'var'+slinebreak+
  'Form1: TForm1;'+slinebreak+

'implementation'+slinebreak+

'{$R *.dfm}'+slinebreak+

'procedure xyz(Sender :TObject);'+slinebreak+
....
....
'end.';

PS:@Tun das Altautos nicht?:P

[Blackheart]

Delphi-Quellcode:

'procedure xyz(Sender :TObject);'+slinebreak+
.... // Was ist den Punkt, Punkt, Punkt steht da noch was ?
....
'end.';

[IntErES]

@Blackheart Ehm ja habe gedacht,dass es logisch wäre^^.Bei der Procedure wurde genau das gleiche Verfahren verwendet.
Also: 'blabla'+slinebreak+

[Blackheart]

Und wie soll man den Fehler finden wenn du nur teilweisen Code lieferst. :wink:

[IntErES]

@Blackheart Der Fehler liegt nicht in der Procedure,er liegt wie der Debugger von Delphi sagt,dass der Fehler in der letzten Zeile ist also 'end;'; der Fehler lautet: " '..' erwartet,aber ';' gefunden'.
Ich habe bereits die Procedure ausgeschnitten und nur den Code des vom am Anfang an existierenden Quelltexts überprüft und auch da steht der Fehler immer noch drin.Deswegen denke ich ja auch das ich irgendwas vergessen habe hinzuzufügen.

Was denkst du ist das vielleicht irgendwas zu wenig da :mrgreen:

[phreax]

Zitat:

Zitat von IntErES

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
 var   squellcode:'unit Unit1'+sLinebreak+

es muss

Delphi-Quellcode:

var   squellcode:string = '...';

heißen

[IntErES]

@phreax Oh Mann,als ich das gelesen habe ist mein Herz schier rausgesprungen :D
Aber leider funktioniert das nicht.Neuer Fehler [Fehler] Unit1.pas(283): Lokale Variablen können nicht initialisiert werden

Neue Vorschläge?

Edit:Ich habe in der Procedure einige Kommentare,an denen kanns ja wohl nicht liegen oder?

[phreax]

Wiedermal nicht aufgepasst :?
Also entweder du machst folgendes:

Delphi-Quellcode:

procedure xyz;
var bla: string;
begin
bla := 'deinstring';

//oder 

procedure xyz;
const bla = 'deinstring'; //geht nur wenn der Text nicht mehr verändert werden muss

Alternativ kannst Du die Variable auch noch global deklarieren.

[IntErES]

:dp: :dp: :dp: :dp:
Du bist der beste,ich danke dir vielmals,haha genial :cheers: