| |
| |
|
Andreas
Gaida | Hi!
Yo habe hier una para mich wichtige frage a redactar de DLL y deren weitergabe.
Yo habe me con Purebasic una DLL erstellt. El MD5 befehle de Purebasic en se ha ,habe el aber alles así erweitert el ellos de Profano aufgerufen voluntad puede y como eigener Tread laufen sin Profano anzuhalten y Message a verständigen si Tread fertig es.
Yo sería gerne el DLL hier frei a verfügung stellen aber habe bedenken wegen Outsourcing.
Mi Cuestión es Yo genug propio erarbeitet oder podría uno mich wegen Outsourcing el
Befehle MD5FileFingerprint() ,MD5Fingerprint() ,IsThread() belangen.
Wenn alguien como a näheres wüste wäre Yo para Beratung muy dankbar.
Der Quellcode el de me erstellten MD5 DLL
ProcedureDLL MD5_FILE_Thread(Lnge.l)
Shared Texto.s
adrre.l = PeekL((Lnge.l + 0 ))
lenge.l = PeekL((Lnge.l + 4 ))
ziel1.l = PeekL((Lnge.l + 8 ))
tid.l = PeekL((Lnge.l + 12))
hwd.l = PeekL((Lnge.l + 16))
msg.l = PeekL((Lnge.l + 20))
lpa.l = PeekL((Lnge.l + 24))
wpa.l = PeekL((Lnge.l + 28))
Texto = PeekS(adrre.l, lenge.l)
Texto = MD5FileFingerprint(Texto)
PokeS(ziel1.l, Texto)
If (hwd.l > 0) And (msg.l > 0)
resultado.l = SendMessage_ (hwd.l,msg.l,wpa.l,tid.l)
EndIf
ProcedureReturn @Texto
EndProcedure
ProcedureDLL MD5_BUFFER_Thread(Lnge.l)
Shared Texto.s
adrre.l = PeekL((Lnge.l + 0 ))
lenge.l = PeekL((Lnge.l + 4 ))
ziel1.l = PeekL((Lnge.l + 8 ))
tid.l = PeekL((Lnge.l + 12))
hwd.l = PeekL((Lnge.l + 16))
msg.l = PeekL((Lnge.l + 20))
lpa.l = PeekL((Lnge.l + 24))
wpa.l = PeekL((Lnge.l + 28))
;Texto = PeekS(adrre.l, lenge.l)
Texto.s = MD5Fingerprint(adrre.l, lenge.l)
PokeS(ziel1.l, Texto)
If (hwd.l > 0) And (msg.l > 0)
resultado.l = SendMessage_ (hwd.l,msg.l,wpa.l,tid.l)
EndIf
ProcedureReturn @Texto
EndProcedure
ProcedureDLL Start_Thread_MD5_File(Lnge.l)
Shared MD5A.s
Hilo.l = CreateThread(@MD5_FILE_Thread(), Lnge.l)
PokeL((Lnge.l + 12), Hilo.l)
ProcedureReturn Hilo.l
EndProcedure
ProcedureDLL Start_Thread_MD5_Buffer(Lnge.l)
Shared MD5A.s
Hilo.l = CreateThread(@MD5_BUFFER_Thread(), Lnge.l)
PokeL((Lnge.l + 12), Hilo.l)
ProcedureReturn Hilo.l
;ProcedureReturn Lnge.l
EndProcedure
ProcedureDLL INFO_DLL()
Shared MD5A.s
MD5A = MD5 DLL V0.01 de Andreas Gaida
ProcedureReturn @MD5A
EndProcedure
ProcedureDLL Status_MD5_Thread(Lnge.l)
Shared MD5A.s
Hilo.l = IsThread(Lnge.l)
ProcedureReturn Hilo.l
EndProcedure
MfG
Andreas |
|
| |
| Athlon X2 4800 , 2GB Ram , GeForce 7800GT
Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b | 31.03.2008 ▲ |
|
| |
|
|
H.Brill | Also Yo sería lo NICHT hacer, alleine wegen
el Cipher y Hilo - Libraries. Como gab lo früher
ya öfter Ärger deswegen. Nur bastante Hausgemachtes
es erlaubt.
¿Puede el DLL aber sin schlechtes Gewissen para dich privat
nutzen.
Lies aber auch todavía el Condiciones de uso en el PB-Ayuda,
como es lo auch todavía bajo Rechtliches drin.
|
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 01.04.2008 ▲ |
|
| |
|
|
Andreas
Gaida | Hi!
Thx para el Ratschlag ,voluntad ihm auch befolgen.
Como uno heut a tage para jede kleinigkeit igual en zig Tausende verklagt voluntad kann es wohl gesünder para mich.
Auch si mein Gewissen auch andersrum rein wäre , si cada soviel Geld para Software ausgeben sería Yo
hätte el Welt no sólo una Bill Gates.
MfG
Andreas |
|
| |
| Athlon X2 4800 , 2GB Ram , GeForce 7800GT
Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b | 03.04.2008 ▲ |
|
| |
|
|
H.Brill | Sí, belassen wir lo hierbei.
Noch como Anmerkung :
Mir wäre lo sí egal, aber bedenke, daß hier auch así
mancher PBler (como Invitado) mitliest. Como passiert lo rápidamente, daß
alguien Link en el PB-Foro después de hier macht, y lo entonces a
unnötigen Diskussionen kommt.
Yo selber habe antes Jahren en un relativ unbekannten
Basic-Foro erlebt, como en una vez como bekannte Personas de
otro Programmier - Foren como waren. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 03.04.2008 ▲ |
|
| |
|
|
 | H.Brill
Nur bastante Hausgemachtes
es erlaubt.
Yo glaube bastante sooo es auch no.
Es hingegen sicherlich unerwünscht/no erlaubt si una Biblioteca publizierst welche una reiner Wrapper ya vorgefertigter Características es.
Ab wann una Biblioteca una reiner Wrapper es sería Yo z.B. así formulieren:
Ein reiner Wrapper ermöglicht el Nutzen de Características por una más Ziel (Ziel wäre hierbei z.B. XProfan) como ursprünglich angedacht y bietet salvo uno nötigen Schnittstelle para Ziel en el Verhältnis a gewrappten Características no más oder verhältnismäßig geringen Sinn.
Su o.g. Ver código fuente en el Initialposting sería Yo z.B. como solch una reinen Wrapper llamada.
PS: Wrapper ha (desafortunadamente) wenig con Wopper a tun!  |
|
| |
| |
| |
|
|
H.Brill | Sí, IF magst sí wohl Recht haben.
Kommt siempre darauf a, cómo lo sieht.
War sí sólo una guter Rat, como manche de el PB - Gemeinde
desafortunadamente algo a genau son y sólo en algo como warten. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 04.04.2008 ▲ |
|
| |
|
(1.145)
Deutsch
English
Français
Español
Italia