phantomas90 Posted August 3, 2010 Report Share Posted August 3, 2010 (edited) Poate vi se pare de gradinita programul dar poate la unii le va fi folositor. Executabilul: crypt.exe - 355.2 Kb Compilat in AutoIT v3 Sursa: #include <GUIConstantsEx.au3>#include <EditConstants.au3>#include <WindowsConstants.au3>#include <Crypt.au3>#include <WinAPI.au3>;**************************************************Func _Base64Encode($sData) Local $oXml = ObjCreate("Msxml2.DOMDocument") If Not IsObj($oXml) Then SetError(1, 1, 0) EndIf Local $oElement = $oXml.createElement("b64") If Not IsObj($oElement) Then SetError(2, 2, 0) EndIf $oElement.dataType = "bin.base64" $oElement.nodeTypedValue = Binary($sData) Local $sReturn = $oElement.Text If StringLen($sReturn) = 0 Then SetError(3, 3, 0) EndIf Return $sReturnEndFunc;*************************************************Func _Base64Decode($sData) Local $oXml = ObjCreate("Msxml2.DOMDocument") If Not IsObj($oXml) Then SetError(1, 1, 0) EndIf Local $oElement = $oXml.createElement("b64") If Not IsObj($oElement) Then SetError(2, 2, 0) EndIf $oElement.dataType = "bin.base64" $oElement.Text = $sData Local $sReturn = BinaryToString($oElement.nodeTypedValue, 4) If StringLen($sReturn) = 0 Then SetError(3, 3, 0) EndIf Return $sReturnEndFunc;*******************************************************GUICreate("Encrypt",200,250,100,100,-1)GUISetState(@SW_SHOW)GUICtrlCreateLabel("Text in clar:",10,10,200,20,-1)GUICtrlCreateLabel("Text criptat:",10,100,200,20,-1)$text_input=GUICtrlCreateEdit("",10,30,180,50,$ES_AUTOVSCROLL)$text_output=GUICtrlCreateEdit("",10,120,180,50,$ES_AUTOVSCROLL)$buton_crypt=GUICtrlCreateButton("Crypt",100,80,90,20,-1)$buton_decrypt=GUICtrlCreateButton("Decrypt",10,170,90,20,-1)$buton_close=GUICtrlCreateButton("Close",130,220,60,20,-1)while 1 $msg=guigetmsg() if $msg=$buton_crypt Then $text_clar=GUICtrlRead($text_input) $text_criptat=_Base64Encode($text_clar) GUICtrlSetData($text_output,$text_criptat,"") EndIf if $msg=$buton_decrypt Then $text_criptat=GUICtrlRead($text_output) $text_clar=_Base64Decode($text_criptat) GUICtrlSetData($text_input,$text_clar,"") EndIf if $msg=$buton_close Then ExitLoop if $msg=$GUI_EVENT_CLOSE Then ExitLoopWEndDefinitia functiilor _base64Encode si _base64Decode apartin forumului AutoIT! Edited August 3, 2010 by phantomas90 Quote Link to comment Share on other sites More sharing options...
Guest Mosad Posted August 3, 2010 Report Share Posted August 3, 2010 nice,la mai multe Quote Link to comment Share on other sites More sharing options...
cmiN Posted August 3, 2010 Report Share Posted August 3, 2010 De ce dll-uri am nevoie ? Versiunea e xp sp3 (wine @ unix). Quote Link to comment Share on other sites More sharing options...
gamer Posted August 3, 2010 Report Share Posted August 3, 2010 "text in clar" mai bn scriai in englezaon: frumos programul. dar nu prea merita osteneala. eu folosesc online Quote Link to comment Share on other sites More sharing options...
phantomas90 Posted August 3, 2010 Author Report Share Posted August 3, 2010 Cmin Local $oXml = ObjCreate("Msxml2.DOMDocument") cred ca la acest MsXML2.DOMDocument se refera eroarea ta.Gamer l-am facut cand ma plictiseam, chiar nu aveam nici o idee. Si eu le folosesc pe cele online, de obicei au mai multe criptari la un loc.Sa vad cand ma mai plictisesc poate il dezvolt pe asta.Text in clar asta e exprimarea in toate cartile de criptografie. Quote Link to comment Share on other sites More sharing options...
no_id_online Posted August 17, 2010 Report Share Posted August 17, 2010 am incercat si eu acest decriptor dar fara succes,tocmai ce mi-am luat un script si am gasit cateva erori care imi dau dureri de cap,din care cea mai mare problema ar fi footer acolo incepe asa eval(base64_decode("b2Jfc3RhcnQoKTsgJGNvZGVsb2NrX2R....... are 'nspemii de caractere,orice decryptor de base 64 care l-am incercat nu a reusit sa imi decripteze asta, ma poate ajuta si pe mine cineva daca este nevoie pun aici php-ul Quote Link to comment Share on other sites More sharing options...
Nytro Posted August 17, 2010 Report Share Posted August 17, 2010 Posteaza aici PHP-ul. Dar cel mai probabil e obfuscat, deci va fi destul de greu sa ajungi la sursa propriu-zisa. Quote Link to comment Share on other sites More sharing options...
no_id_online Posted August 17, 2010 Report Share Posted August 17, 2010 FileShare Download footer.php Quote Link to comment Share on other sites More sharing options...
Nytro Posted August 17, 2010 Report Share Posted August 17, 2010 (edited) Primul base64:http://pastebin.com/sXuDLdPKApoi, acel base64 din ce e in link-ul de mai sus e encryptat cu un xor simplu.Si cred ca dupa aceea se ajunge la sursa originala. In loc de:eval($codelock_decrypter["c"]);Pui si tu:echo $codelock_decrypter["c"];Si te uiti in sursa paginii rezultate. Edited August 17, 2010 by Nytro Quote Link to comment Share on other sites More sharing options...